Rev 1980 | Rev 3934 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1980 | guerimand | 1 | !distribute item $num into sheet,exo |
| 2 | |||
| 3 | nbsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
| 4 | !if $sheet<1 or $sheet>$nbsh |
||
| 5 | error=bad_sheet |
||
| 6 | !exit |
||
| 7 | !endif |
||
| 8 | |||
| 9 | don=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets |
||
| 10 | t=!line 1 of $don |
||
| 11 | !if $t!=0 |
||
| 12 | error=active_sheet |
||
| 13 | !exit |
||
| 14 | !endif |
||
| 15 | |||
| 16 | nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
||
| 17 | !if $exo<1 or $exo>$nbexo |
||
| 18 | error=bad_series |
||
| 19 | !exit |
||
| 20 | !endif |
||
| 21 | |||
| 22 | update_field=2 |
||
| 23 | update_content=$iniparm |
||
| 24 | !read update.exo |