Rev 15763 | Rev 15910 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
15763 | guerimand | 1 | !! job to make/save individualisation of sheet with a technical variable. |
2 | |||
3 | nb=!positionof item $indivtechvar in $tv_listcode |
||
4 | don=!line $nb of $tv_listtechvar |
||
5 | !distribute item $don into name,classid,number |
||
6 | don=!record $number of wimshome/log/classes/$classid/.techvar |
||
7 | listval=!line 2 of $don |
||
8 | nb_val=!itemcnt $listval |
||
9 | |||
10 | !if $save_indiv!=$empty |
||
11 | !! save data in .sheet$sheet |
||
12 | recdata=!record 0 of wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
||
13 | !writefile wimshome/sessions/$wims_session/.sheettmp $recdata |
||
14 | !for i=1 to $exocnt |
||
15 | recdata=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
||
16 | indiv$i=!listintersect $(indiv$i) and $listval |
||
17 | recdata=!replace internal line number 11 by $(indiv$i) in $recdata\ |
||
18 | $empty\ |
||
19 | $empty\ |
||
20 | $empty\ |
||
21 | $empty\ |
||
22 | $empty\ |
||
23 | $empty\ |
||
24 | $empty\ |
||
25 | $empty\ |
||
26 | $empty\ |
||
27 | $empty |
||
15789 | guerimand | 28 | recdata=!line 1 to 11 of $recdata |
15763 | guerimand | 29 | !appendfile wimshome/sessions/$wims_session/.sheettmp :$recdata |
30 | !next i |
||
31 | !reset save_indiv |
||
32 | !sh rm -f $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;\ |
||
33 | mv $wims_home/sessions/$wims_session/.sheettmp $wims_home/log/classes/$wims_class/sheets/.sheet$sheet; |
||
34 | !endif |