Subversion Repositories wimsdev

# Script qui verifie l'existence d'une feuille

#Pour commencer, on verifie la classe
!read scripts/check.class
!if $error!=$empty
 !exit
!endif

#si le parametre qsheet contient un caractere special, on abandonne
qsheet=!translate internal ./,;?* to $             $ in $qsheet
!if $ $ isin $qsheet
 qsheet=
!endif

sheetsfile=wimshome/log/classes/$qclass/sheets/.sheets

#On compte le nombre de feuilles de la classe qclass
sheetcnt=!recordcnt $sheetsfile


#Si la feuille qsheet n'existe pas, on abandonne
!if $qsheet=$empty
 error=undefined qsheet
 !exit
!else
 !if  $qsheet>$sheetcnt
  error=sheet does not exist
  !exit
 !endif
!endif

# La feuille existe. on initialise la varible wims_sheet
wims_sheet=$qsheet
sheet_file=wimshome/log/classes/$qclass/sheets/.sheet$qsheet
sheet_properties=!record $qsheet of $sheetsfile