Subversion Repositories wimsdev

Rev

Rev 23 | Rev 10477 | 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
ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam
6
ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam
5
!if $ecnt<$exo
7
!if $ecnt<$exo
6
 ecnt=$exo
8
 ecnt=$exo
7
!endif
9
!endif
8
!for e=1 to $ecnt
10
!for e=1 to $ecnt
9
 exo_$e=!record $e of wimshome/log/classes/$wims_class/exams/.exam$exam
11
 exo_$e=!record $e of wimshome/log/classes/$wims_class/exams/.exam$exam
10
 # weight,choose,name
12
 # weight,choose,name
11
 exo_$e=!line 1 to 6 of $(exo_$e)\
13
 exo_$e=!line 1 to 7 of $(exo_$e)\
-
 
14
\
12
\
15
\
13
\
16
\
14
\
17
\
15
\
18
\
16
\
19
\
Line 24... Line 27...
24
 !endif
27
 !endif
25
!endif
28
!endif
26
!writefile wimshome/log/classes/$wims_class/exams/.exam$exam
29
!writefile wimshome/log/classes/$wims_class/exams/.exam$exam
27
!for e=1 to $ecnt
30
!for e=1 to $ecnt
28
 !if $e!=$exo or $update_field>=0
31
 !if $e!=$exo or $update_field>=0
29
  ef=!line 1 to 5 of $(exo_$e)
32
  ef=!line 1 to 7 of $(exo_$e)
30
  !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam :$ef
33
  !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam :$ef
31
 !endif
34
 !endif
32
!next e
35
!next e
33
 
36