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

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


file_titles=!filelist $wims_home/log/classes/$wims_class/cdt/files/
file_titles=!lines2items $file_titles
nbfile=!itemcnt $file_titles
!bound cible within ddesc1,ddesc2,ddesc3,ddesc4,ddesc5,jdesc default ddesc1

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