Subversion Repositories wimsdev

Rev

Rev 11100 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4561 obado 1
# GetSheet
2
# Fournit toutes les informations de la feuille qsheet (ainsi que la liste des exercices qu'elle contient)
4176 obado 3
 
14180 obado 4
# Pour commencer, on verifie la classe
4561 obado 5
!read scripts/check.class
6
!if $error!=$empty
14180 obado 7
  !exit
4561 obado 8
!endif
9
 
3261 obado 10
type=sheets
11
!read scripts/check.proc
392 obado 12
!if $error!=$empty
14180 obado 13
  !exit
392 obado 14
!endif
15
 
3261 obado 16
sheet_properties=!lines2items $qproperties\
392 obado 17
 
10935 obado 18
sheet_properties = !singlespace $sheet_properties
3996 obado 19
sheet_status=!item 1 of $sheet_properties
20
sheet_expiration=!item 2 of $sheet_properties
21
sheet_title=!item 3 of $sheet_properties
22
sheet_description=!item 4 of $sheet_properties
23
 
3261 obado 24
exocnt=!recordcnt $qfile
25
 
392 obado 26
option=!listintersect $option and $sheetdefs
27
!if $option=$empty
14180 obado 28
  option=$sheetdefs
392 obado 29
!endif