Subversion Repositories wimsdev

!!!!!!!!!!! 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