Rev 12476 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | !if $n<=0 |
| 12476 | bpr | 2 | !exit |
| 23 | reyssat | 3 | !endif |
| 4 | |||
| 16089 | guerimand | 5 | max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf |
| 6 | snum=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
| 7 | !if $snum>=$max_sheets |
||
| 8 | error=bad_maxsheet |
||
| 9 | !exit |
||
| 10 | !endif |
||
| 11 | |||
| 23 | reyssat | 12 | !readdef wimshome/log/classes/$wims_class/.def |
| 13 | !if $wims_superclass!=$empty |
||
| 12476 | bpr | 14 | class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def |
| 23 | reyssat | 15 | !endif |
| 16 | |||
| 17 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheets \ |
||
| 18 | :0\ |
||
| 19 | $class_expiration\ |
||
| 20 | $sheet_title\ |
||
| 21 | $sheet_desc |
||
| 22 | |||
| 16089 | guerimand | 23 | !increase snum |
| 23 | reyssat | 24 | Data=!replace internal ../wimshome/ by $wims_home/ in ../$data |
| 25 | !sh cp $Data $wims_home/log/classes/$wims_class/sheets/.sheet$snum |
||
| 26 | |||
| 27 | !restart module=adm/class/sheet&sheet=$snum |