Rev 9687 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
9687 | guerimand | 1 | !! duplicate an exam |
2 | |||
3 | !if $scnt>=$max_exams |
||
15494 | bpr | 4 | error=bad_maxexams |
5 | !reset job |
||
6 | !changeto var.proc |
||
9687 | guerimand | 7 | !endif |
8 | !bound exam between 1 and $scnt default $empty |
||
9 | |||
10 | !if $exam=$empty |
||
15494 | bpr | 11 | error=bad_exam |
12 | !reset job |
||
13 | !changeto var.proc |
||
9687 | guerimand | 14 | !endif |
15 | |||
16 | exocnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam |
||
17 | !if $exocnt=0 |
||
15494 | bpr | 18 | !reset job |
19 | !changeto var.proc |
||
9687 | guerimand | 20 | !endif |
21 | |||
22 | !sh cd $wims_home/log/classes/$wims_class/exams/\ |
||
23 | cp .exam$exam .exam$[$scnt+1] |
||
24 | |||
25 | p=!record $exam of wimshome/log/classes/$wims_class/exams/.exams |
||
26 | p=!replace line number 1 by 0 in $p |
||
27 | |||
28 | !appendfile wimshome/log/classes/$wims_class/exams/.exams :$p |
||
29 | |||
30 | scnt=$[$scnt+1] |
||
31 | exam=$scnt |
||
32 | message=$name_duplicateok |
||
33 | !reset job |
||
15494 | bpr | 34 | !changeto var.proc |