Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1406 | bpr | 1 | # update_field is number of field to update |
| 2 | |||
| 3 | # update_content is the new content. |
||
| 4 | scnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex |
||
| 5 | !for s=1 to $scnt |
||
| 6 | doc_$s=!record $s of wimshome/log/classes/$wims_class/doc/.docindex |
||
| 7 | doc_$s=!line 1 to 7 of $(doc_$s)\ |
||
| 8 | \ |
||
| 9 | \ |
||
| 10 | \ |
||
| 11 | \ |
||
| 12 | \ |
||
| 13 | \ |
||
| 14 | |||
| 15 | !next s |
||
| 1606 | bpr | 16 | !if $update_field!=0 |
| 1406 | bpr | 17 | doc_$doc=!replace line number $update_field by $update_content in $(doc_$doc) |
| 18 | !else |
||
| 19 | !reset doc_$doc |
||
| 20 | !endif |
||
| 21 | !writefile wimshome/log/classes/$wims_class/doc/.docindex |
||
| 22 | !for s=1 to $scnt |
||
| 23 | sf=!line 1 to 5 of $(doc_$s) |
||
| 24 | !if $(sf[1])$(sf[2])!=$empty |
||
| 25 | !appendfile wimshome/log/classes/$wims_class/doc/.docindex :$sf |
||
| 26 | !endif |
||
| 27 | !next s |
||
| 28 |