Rev 9934 | Rev 13320 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9934 | Rev 12465 | ||
---|---|---|---|
Line 4... | Line 4... | ||
4 | !if yes notin $script_reply |
4 | !if yes notin $script_reply |
5 | error=bad_usercls |
5 | error=bad_usercls |
6 | !reset job,checkuser |
6 | !reset job,checkuser |
7 | !exit |
7 | !exit |
8 | !endif |
8 | !endif |
9 | !read adm/class/userdef classes,$wims_class,$checkuser |
9 | !read adm/class/userdef classes,$wims_class,$checkuser |
10 | !readdef $userdef |
10 | !readdef $userdef |
11 | !if $user_exists != yes |
11 | !if $user_exists != yes |
12 | error=bad_user |
12 | error=bad_user |
13 | !exit |
13 | !exit |
14 | !endif |
14 | !endif |
15 | 15 | ||
16 | maxexo=0 |
16 | maxexo=0 |
17 | !for k in $activexams |
17 | !for k in $activexams |
18 | tmp=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$k |
18 | tmp=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$k |
19 | maxexo=$[max($maxexo,$tmp)] |
19 | maxexo=$[max($maxexo,$tmp)] |
20 | !next k |
20 | !next k |
21 | logdir=$wims_home/log/classes/$wims_class/examlog/$checkuser |
21 | logdir=$wims_home/log/classes/$wims_class/examlog/$checkuser |
22 | !if $checksession=$empty |
22 | !if $checksession=$empty |
23 | checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi |
23 | checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi |
24 | checksessions=!words2items $checksessions |
24 | checksessions=!words2items $checksessions |
25 | !for ses in $checksessions |
25 | !for ses in $checksessions |
26 | exo=!sh cd $wims_home/log/classes/$wims_class/examlog/$checkuser/$ses; ls |
26 | exo=!sh cd $wims_home/log/classes/$wims_class/examlog/$checkuser/$ses; ls |
27 | exo$ses=!words2items $exo |
27 | exo$ses=!words2items $exo |
28 | exo=!words2lines $exo |
28 | exo=!words2lines $exo |
29 | exo=!translate . to , in $exo |
29 | exo=!translate . to , in $exo |
30 | exom=!column 1 of $exo |
30 | exom=!column 1 of $exo |
31 | exom=!listuniq $exom |
31 | exom=!listuniq $exom |
32 | exam$ses=$exom |
32 | exam$ses=$exom |
33 | !for xm in $exom |
33 | !for xm in $exom |
34 | exot=!select $exo where column 1 = $xm |
34 | exot=!select $exo where column 1 = $xm |
35 | exot=!column 2 of $exot |
35 | exot=!column 2 of $exot |
36 | exo$(ses)$xm=!sort numeric items $exot |
36 | exo$(ses)$xm=!sort numeric items $exot |
37 | !next xm |
37 | !next xm |
38 | !next ses |
38 | !next ses |
39 | !if $checksessions=$empty |
39 | !if $checksessions=$empty |
- | 40 | !exit |
|
- | 41 | !endif |
|
- | 42 | !readproc adm/class/userscore1 $checkuser |
|
40 | !exit |
43 | !exit |
41 | !endif |
- | |
42 | !readproc adm/class/userscore1 $checkuser |
- | |
43 | !exit |
- | |
44 | !endif |
44 | !endif |
45 | 45 | ||
46 | exos=!sh if [ -d $logdir/$checksession ]; then cd $logdir/$checksession; ls; fi |
46 | exos=!sh if [ -d $logdir/$checksession ]; then cd $logdir/$checksession; ls; fi |
47 | exos=!words2items $exos |
47 | exos=!words2items $exos |
48 | logfile=classes/$wims_class/examlog/$checkuser/$checksession/$checkexo |
48 | logfile=classes/$wims_class/examlog/$checkuser/$checksession/$checkexo |
49 | 49 | ||
50 | !if _check isin $session |
50 | !if _check isin $session |
51 | !read adm/class/exocheck |
51 | !read adm/class/exocheck |
52 | !endif |
52 | !endif |
53 | - |