Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
# update_field is number of field to update
2
# update_content is the new content.
3
 
4
scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
5
!for s=1 to $scnt
6
 exam_$s=!record $s of wimshome/log/classes/$wims_class/exams/.exams
7
 exam_$s=$(exam_$s)\
8
\
9
\
10
\
11
\
12
\
13
\
14
dd
15
 
16
!next s
17
!if $update_field>0
18
 exam_$exam=!replace line number $update_field by $update_content in $(exam_$exam)
19
!else
20
 !mexec examshift.sh
21
!endif
22
!writefile wimshome/log/classes/$wims_class/exams/.exams
23
!for s=1 to $scnt
24
 !if $s!=$exam or $update_field>0
25
  sf=!line 1 to 6 of $(exam_$s)
26
  !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf
27
 !endif
28
!next s
29