Subversion Repositories wimsdev

################      UPDATE.PROC         ####################

# Procedure generique de modification/suppression pour feuille et exam

#

# pre-requis :

#   $type doit etre specifie (exams ou sheets)

#   $wims_class is the current class

#   $qsheet or $qexam : element to be modified

#   $update_field is the line number of field to update

#     If update_field=0, the element is deleted.

#   $update_content is the new content.

#

!if $type=$empty

  error=No type defined in update.proc

  !exit

!endif

!if $type=sheets

  qrecord=$qsheet

!else

  qrecord=$qexam

!endif

listfile=wimshome/log/classes/$wims_class/$type/.$type

cnt=!recordcnt $listfile

!ifval $qrecord>$cnt

  error=element #$qrecord of type $type does not exist (in update.proc)

  !exit

!endif

# On commence par remplir les valeurs _x par l'enregistrement correspondant dans l'index

!for s=1 to $cnt

  record_$s=!record $s of $listfile

  record_$s=!line 1 to 7 of $(record_$s)\

\

\

\

\

\

\

!next s

!if $update_field!=0

  record_$qrecord=!replace line number $update_field by $update_content in $(record_$qrecord)

!endif

# On peut alors reconstruire le fichier d'index des feuilles

!writefile $listfile

!for s=1 to $cnt

  !if $update_field!=0 or $s!=$qrecord

    sf=!line 1 to 5 of $(record_$s)

    !appendfile $listfile :$sf\

  !endif

!next s