Subversion Repositories wimsdev

Rev

Rev 3106 | Rev 3111 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3106 Rev 3110
Line 65... Line 65...
65 
  wimssessiondcl=session=$wims_session
 65 
  wimssessiondcl=session=$wims_session
66 
  !if $loggedsessiondcl isin $vars
 66 
  !if $loggedsessiondcl isin $vars
67 
   vars=!replace $loggedsessiondcl[\._a-z0-9]* by $wimssessiondcl in $vars
 67 
   vars=!replace $loggedsessiondcl[\._a-z0-9]* by $wimssessiondcl in $vars
68 
  !endif
 68 
  !endif
69 
  !appendfile wimshome/$wims_sesdir/var $vars
 69 
  !appendfile wimshome/$wims_sesdir/var $vars
- 
 
 70 
!!!must be careful if we replace & by &
70 
  checkqstr=!replace &+ by & in $checkqstr
 71 
  checkqstr=!replace &+ by & in $checkqstr
71 
  checkqstr=!translate & to $\
 72 
  checkqstr=!translate & to $\
72 
 $ in $checkqstr
 73 
 $ in $checkqstr
73 
  checkqstr=!trim $checkqstr
 74 
  checkqstr=!trim $checkqstr
74 
  cnt=!linecnt $checkqstr
 75 
  cnt=!linecnt $checkqstr
Line 82... Line 83...
82 
	&&wims_window$eq notin &&$l and \
 83 
	&&wims_window$eq notin &&$l and \
83 
	&&worksheet$eq notin &&$l
 84 
	&&worksheet$eq notin &&$l
84 
    qstr=!append line $l to $qstr
 85 
    qstr=!append line $l to $qstr
85 
   !endif
 86 
   !endif
86 
  !next i
 87 
  !next i
- 
 
 88 
 !if $loggedsessiondcl isin $qstr
87 
  qstr=!replace $checksession[\._a-z0-9]* by $wims_session in $qstr
89 
   qstr=!replace $loggedsessiondcl[\._a-z0-9]* by $wimssessiondcl in $qstr
- 
 
 90 
 !endif
88 
  qstr=!translate $\
 91 
  qstr=!translate $\
89 
$ to & in $qstr
 92 
$ to & in $qstr
90 
  !restart module=$checkmodule&cmd=reply&special_parm=$checkstep&$qstr
 93 
  !restart module=$checkmodule&cmd=reply&special_parm=$checkstep&$qstr
91 
 !endif
 94 
 !endif