Subversion Repositories wimsdev

Rev

Rev 15494 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15494 Rev 16006
Line 12... Line 12...
12 
\
 12 
\
13 
\
 13 
\
14 
\
 14 
\
15 
\
 15 
\
16 
\
 16 
\
- 
 
 17 
\
17 
dd
 18 
\
- 
 
 19 
 
18 
 
 20 
 
19 
!next s
 21 
!next s
20 
!if $update_field>0
 22 
!if $update_field>0
21 
  exam_$exam=!replace line number $update_field by $update_content in $(exam_$exam)
 23 
  exam_$exam=!replace line number $update_field by $update_content in $(exam_$exam)
22 
!else
 24 
!else
23 
  !mexec examshift.sh
 25 
  !mexec examshift.sh
24 
!endif
 26 
!endif
25 
!writefile wimshome/log/classes/$wims_class/exams/.exams
 27 
!writefile wimshome/log/classes/$wims_class/exams/.exams
26 
!for s=1 to $scnt
 28 
!for s=1 to $scnt
27 
  !if $s!=$exam or $update_field>0
 29 
  !if $s!=$exam or $update_field>0
28 
    sf=!line 1 to 7 of $(exam_$s)
 30 
    sf=!line 1 to 8 of $(exam_$s)
29 
    !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf
 31 
    !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf
30 
  !endif
 32 
  !endif
31 
!next s
 33 
!next s