Subversion Repositories wimsdev

Rev

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

Rev 23 Rev 2329
Line -... Line 1...
-
 
1
!!!### language independant
-
 
2
!!
1
# update_field is number of field to update
3
# update_field is number of field to update
2
# update_content is the new content.
4
# update_content is the new content.
3
 
5
 
4
scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
6
scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
5
!for s=1 to $scnt
7
!for s=1 to $scnt
6
 exam_$s=!record $s of wimshome/log/classes/$wims_class/exams/.exams
8
 exam_$s=!record $s of wimshome/log/classes/$wims_class/exams/.exams
7
 exam_$s=$(exam_$s)\
9
 exam_$s=$(exam_$s)\
-
 
10
\
8
\
11
\
9
\
12
\
10
\
13
\
11
\
14
\
12
\
15
\
Line 20... Line 23...
20
 !mexec examshift.sh
23
 !mexec examshift.sh
21
!endif
24
!endif
22
!writefile wimshome/log/classes/$wims_class/exams/.exams
25
!writefile wimshome/log/classes/$wims_class/exams/.exams
23
!for s=1 to $scnt
26
!for s=1 to $scnt
24
 !if $s!=$exam or $update_field>0
27
 !if $s!=$exam or $update_field>0
25
  sf=!line 1 to 6 of $(exam_$s)
28
  sf=!line 1 to 7 of $(exam_$s)
26
  !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf
29
  !appendfile wimshome/log/classes/$wims_class/exams/.exams :$sf
27
 !endif
30
 !endif
28
!next s
31
!next s
29
 
32