Subversion Repositories wimsdev

Rev

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