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