Subversion Repositories wimsdev

!! job to make/save individualisation of sheet with a technical variable.

nb=!positionof item $indivtechvar in $tv_listcode

don=!line $nb of $tv_listtechvar

!distribute item $don into name,classid,number

don=!record $number of wimshome/log/classes/$classid/.techvar

listval=!line 2 of $don

nb_val=!itemcnt $listval

!if $save_indiv!=$empty

!! save data in .sheet$sheet

  recdata=!record 0 of wimshome/log/classes/$wims_class/sheets/.sheet$sheet 

  !writefile wimshome/sessions/$wims_session/.sheettmp $recdata

  !for i=1 to $exocnt

    recdata=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet

    indiv$i=!listintersect $(indiv$i) and $listval

    recdata=!replace internal line number 11 by $(indiv$i) in $recdata\

$empty\

$empty\

$empty\

$empty\

$empty\

$empty\

$empty\

$empty\

$empty\

$empty

    !appendfile wimshome/sessions/$wims_session/.sheettmp :$recdata

  !next i

  !reset save_indiv

  !sh rm -f $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;\

      mv $wims_home/sessions/$wims_session/.sheettmp $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;

!endif