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