Subversion Repositories wimsdev

Rev

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

Rev 3111 Rev 3112
Line 21... Line 21...
21 
 !bound checkstep between integer 1 and $steps default 1
 21 
 !bound checkstep between integer 1 and $steps default 1
22 
 vars=!record $checkstep of $logfile
 22 
 vars=!record $checkstep of $logfile
23 
 vars=!trim $vars
 23 
 vars=!trim $vars
24 
 !distribute lines $vars into checkqstr,checkmodule,checkcmd
 24 
 !distribute lines $vars into checkqstr,checkmodule,checkcmd
25 
 vars=!line 4 to -1 of $vars
 25 
 vars=!line 4 to -1 of $vars
- 
 
 26 
 memchecksession=$checksession
- 
 
 27 
 !if $checksession=$empty
- 
 
 28 
  checksession=!replace internal QUERY_STRING= by $empty in $checkqstr
- 
 
 29 
  checksession=!replace &+ by & in $checksession
- 
 
 30 
  checksession=!translate & to $\
- 
 
 31 
 $ in $checksession
- 
 
 32 
  checksession=!replace internal = by , in $checksession
- 
 
 33 
  checksession=!replace internal . by , in $checksession
- 
 
 34 
  tmp=!column 1 of $checksession
- 
 
 35 
  tmp=!positionof item session in $tmp
- 
 
 36 
  checksession=$(checksession[$tmp;2])
- 
 
 37 
 !endif
26 
 loggedsessiondcl=session=$checksession
 38 
 loggedsessiondcl=session=$checksession
27 
 wimssessiondcl=session=$wims_session
 39 
 wimssessiondcl=session=$wims_session
28 
 !if $loggedsessiondcl isin $vars
 40 
 !if $loggedsessiondcl isin $vars
29 
  vars=!replace $loggedsessiondcl[\._a-z0-9]* by $wimssessiondcl in $vars
 41 
  vars=!replace $loggedsessiondcl[\._a-z0-9]* by $wimssessiondcl in $vars
30 
 !endif
 42 
 !endif
Line 53... Line 65...
53 
w_wims_session_serial=$wims_session_serial\
 65 
w_wims_session_serial=$wims_session_serial\
54 
w_wims_session_start_time=$wims_session_start_time\
 66 
w_wims_session_start_time=$wims_session_start_time\
55 
 
 67 
 
56 
 !if $checkcmd iswordof new renew next
 68 
 !if $checkcmd iswordof new renew next
57 
  !appendfile wimshome/$wims_sesdir/var $vars
 69 
  !appendfile wimshome/$wims_sesdir/var $vars
58 
  !setdef wims_check=$module,$checkuser,$checksession,$checkexo,$steps,$score in wimshome/sessions/$session1/var.stat
 70 
  !setdef wims_check=$module,$checkuser,$memchecksession,$checkexo,$steps,$score in wimshome/sessions/$session1/var.stat
59 
  !restart module=$checkmodule&special_parm=$checkstep&cmd=resume
 71 
  !restart module=$checkmodule&special_parm=$checkstep&cmd=resume
60 
 !else
 72 
 !else
61 
  vars=!record $checkstep-1 of $logfile
 73 
  vars=!record $checkstep-1 of $logfile
62 
  vars=!trim $vars
 74 
  vars=!trim $vars
63 
  vars=!line 4 to -1 of $vars
 75 
  vars=!line 4 to -1 of $vars