Subversion Repositories wimsdev

Rev

Rev 10477 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!!!### language independant
!!
# update_field is number of field to update
# update_content is the new content.

ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam
!if $ecnt<$exo
  ecnt=$exo
!endif
!for e=1 to $ecnt
  exo_$e=!record $e of wimshome/log/classes/$wims_class/exams/.exam$exam
  # weight,choose,name
  exo_$e=!line 1 to 7 of $(exo_$e)\
\
\
\
\
\
\

!next e

!if $update_field>=0
  !if $update_field>0
    exo_$exo=!replace line number $update_field by $update_content in $(exo_$exo)
  !else
    exo_$exo=$update_content
  !endif
!endif
!writefile wimshome/log/classes/$wims_class/exams/.exam$exam
!for e=1 to $ecnt
  !if $e!=$exo or $update_field>=0
    ef=!line 1 to 7 of $(exo_$e)
    !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam :$ef
  !endif
!next e