source: ccr/trunk/p/C0CE001L.m@ 1154

Last change on this file since 1154 was 721, checked in by George Lilly, 15 years ago

ccr demo pages compiled by EWD and renamed to the C0C name space

File size: 5.7 KB
Line 
1 ;GT.M version of page loginPanel (patientportal application)
2 ;Compiled on Mon, 01 Mar 2010 17:10:45
3 ;using Enterprise Web Developer (Build 790)
4 QUIT
5 ;
6run ;
7 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
8 s ok=$$pre()
9 i ok d body
10 QUIT
11 ;
12pre() ;
13 ;
14 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
15 ;
16 s confirmText="Click OK if you're sure you want to delete this record"
17 s sessionArray("ewd_isFirstPage")="0"
18 s sessionArray("ewd_sessid_timeout")="1200"
19 s sessionArray("ewd_prePageScript")=""
20 s sessionArray("ewd_default_timeout")="1200"
21 s sessionArray("ewd_persistRequest")="true"
22 s sessionArray("ewd_pageTitle")=""
23 s sessionArray("ewd_errorPage")="ewdError"
24 s sessionArray("ewd_templatePrePageScript")=""
25 s sessionArray("ewd_onErrorScript")=""
26 s sessionArray("ewd_appName")="patientportal"
27 s sessionArray("ewd_pageName")="loginPanel"
28 s sessionArray("ewd_translationMode")="0"
29 s sessionArray("ewd_technology")="gtm"
30 s sessionArray("ewd_pageType")="ajax"
31 s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
32 s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
33 s sessid=$g(sessionArray("ewd_sessid"))
34 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
35 . s Error=$p(Error,":",2,200)
36 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
37 . s Error="EWD runtime error: "_Error
38 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
39 . n errorPage
40 . s errorPage=$g(sessionArray("ewd_errorPage"))
41 . i errorPage="" s errorPage="ewdError"
42 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
43 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
44 s stop=0
45 i Error="" d i stop QUIT 0
46 . n nextpage
47 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
48 . i nextpage'="" d
49 . . n x
50 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
51 . . s stop=1
52 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
53 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
54 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
55 w "HTTP/1.1 200 OK"_$c(13,10)
56 s ctype="text/html"
57 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
58 i $d(headers) d
59 . n lcname,name
60 . s name=""
61 . f s name=$o(headers(name)) q:name="" d
62 . . s lcname=$$zcvt^%zewdAPI(name,"l")
63 . . i lcname="content-type" s ctype=headers(name) q
64 . . w name_": "_headers(name)_$c(13,10)
65 w "Content-type: "_ctype_$c(13,10)
66 w $c(13,10)
67 QUIT 1
68 ;
69body ;
70 if ($g(Error)="") d
71 .w " <div id=""ewdscript"">"_$c(13,10)
72 .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
73 .w "if (EWD.page.yuiResourcePath == '') {"_""
74 .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
75 .w "}"_""
76 .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
77 .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
78 .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
79 .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
80 .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
81 .w "EWD.yui.resourceLoader.Dialog() ;"_""
82 .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
83 .w "var fReturnloginPanel7=function() {"_""
84 .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
85 .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
86 .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
87 .w "EWD.yui.widget.loginPanel7.render();"_""
88 .w "};"_""
89 .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
90 .w " </div>"_$c(13,10)
91 .w " <div id=""yuiDialogRegloginPanel7"">"_$c(13,10)
92 .w " <div id=""yuiDialogDivloginPanel7"" style=""visibility:hidden"">"_$c(13,10)
93 .w " <div class=""hd"">"_$c(13,10)
94 .w "Login"_""
95 .w " </div>"_$c(13,10)
96 .w " <div class=""bd"">"_$c(13,10)
97 .w "Login Form will go here"_""
98 .w " </div>"_$c(13,10)
99 .w " <div class=""ft"">"_$c(13,10)
100 .w "</div>"_$c(13,10)
101 .w " </div>"_$c(13,10)
102 .w " </div>"_$c(13,10)
103 .
104 w "<span id=""ewdajaxonload"">"_$c(13,10)
105 w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
106 s id=""
107 f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
108 . w "idPointer = document.getElementById('"_id_"') ; "
109 . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
110 s id=""
111 f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
112 . w "idPointer = document.getElementById('"_id_"') ; "
113 . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
114 k ^%zewdSession("session","ewd_hasErrors")
115 k ^%zewdSession("session","ewd_errorFields")
116 k ^%zewdSession("session","ewd_idList")
117 w " }"_""
118 w "</span>"_$c(13,10)
119 QUIT
Note: See TracBrowser for help on using the repository browser.