Rev 14043 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!!!!!!!!!!! build data about worksheets in the variables $sheet* !!!!!!!!!!!!!!
nbsheets= !recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
sheet_nums=
sheet_deaths=
sheet_titles=
!for i = 1 to $nbsheets
rec_sheet= !record $i of wimshome/log/classes/$wims_class/sheets/.sheets
!distribute line $rec_sheet into n,d,t
!if $n>=1 and $n<3
sheet_nums=$sheet_nums $i,
!endif
sheet_titles=$sheet_titles $t,
!next i
sheet_nums=!nonempty item $sheet_nums
nbsheet=!itemcnt $sheet_nums
nbexams= !recordcnt wimshome/log/classes/$wims_class/exams/.exams
exam_nums=
exam_deaths=
exam_titles=
!for i = 1 to $nbexams
rec_exam= !record $i of wimshome/log/classes/$wims_class/exams/.exams
!distribute line $rec_exam into n,d,e,t
!if $n>=1 and $n<3
exam_nums=$exam_nums $i,
!endif
exam_titles=$exam_titles $t,
!next i
exam_nums=!nonempty item $exam_nums
nbexam=!itemcnt $exam_nums
file_titles=!filelist $wims_home/log/classes/$wims_class/cdt/files/
file_titles=!lines2items $file_titles
nbfile=!itemcnt $file_titles
!bound cible within name_deposit0,name_deposit1,name_deposit2,name_deposit3,\
name_deposit4,name_deposit5 default name_deposit0
nbdocs= !recordcnt wimshome/log/classes/$wims_class/doc/.index
doc_nums=
doc_titles=
!for i = 1 to $nbdocs
d_= !record $i of wimshome/log/classes/$wims_class/doc/.index
!distribute lines $d_ into s_,t_,a_,e_,c_,o_
!if $o_>0
doc_nums=!append item c$i to $doc_nums
doc_titles=!append item $t_ to $doc_titles
!endif
!next i
nbpdocs= !recordcnt wimshome/log/classes/$wims_class/doc/.docindex
pdoc_adds=
pdoc_titles=
!for i = 1 to $nbpdocs
d_= !record $i of wimshome/log/classes/$wims_class/doc/.docindex
!distribute lines $d_ into s_,p_,t_,d_,o_
!if $o_>0
pdoc_adds=!append item $s_ to $pdoc_adds
pdoc_titles=!append item $t_ to $pdoc_titles
!endif
!next i
nbfreeworks= !recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
freework_nums=
freework_titles=
!for i = 1 to $nbfreeworks
rec= !record $i of wimshome/log/classes/$wims_class/freeworks/.freeworks
!distribute line $rec into n,d,t
!if $n>=1 and $n<3
freework_nums=!append item $i to $freework_nums
!endif
freework_titles=!append item $t to $freework_titles
!next i
nbfreeworks=!itemcnt $freework_nums
!!no ariane thread in the popup window
!distribute items no, no, into wims_ariane_self, wims_ariane_home,wims_ariane