Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4176 | obado | 1 | !!!### langage independant |
| 2 | !! |
||
| 3 | # update_field is number of field to update |
||
| 4 | # update_content is the new content. |
||
| 5 | # exo is the exo id to be modified |
||
| 6 | # qsheet is the sheet to be modified |
||
| 7 | |||
| 8 | ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$qsheet |
||
| 9 | !for e=1 to $ecnt |
||
| 10 | exo_$e=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$qsheet |
||
| 11 | exo_$e=!line 1 to 8 of $(exo_$e)\ |
||
| 12 | \ |
||
| 13 | \ |
||
| 14 | \ |
||
| 15 | \ |
||
| 16 | \ |
||
| 17 | \ |
||
| 18 | \ |
||
| 19 | \ |
||
| 20 | |||
| 21 | !next e |
||
| 22 | !if $update_field>=0 |
||
| 23 | !if $update_field>0 |
||
| 24 | exo_$exo=!replace line number $update_field by $update_content in $(exo_$exo) |
||
| 25 | !else |
||
| 26 | exo_$exo=$update_content |
||
| 27 | !endif |
||
| 28 | !endif |
||
| 29 | !writefile wimshome/log/classes/$wims_class/sheets/.sheet$qsheet |
||
| 30 | !for e=1 to $ecnt |
||
| 31 | !if $e!=$exo or $update_field>=0 |
||
| 32 | ef=!line 1 to 8 of $(exo_$e) |
||
| 33 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$qsheet :$ef |
||
| 34 | !endif |
||
| 35 | !next e |
||
| 36 |