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 |
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 |