Rev 23 | Rev 12476 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | !if $n<=0 |
| 2 | !exit |
||
| 3 | !endif |
||
| 4 | |||
| 5 | !readdef wimshome/log/classes/$wims_class/.def |
||
| 6 | !if $wims_superclass!=$empty |
||
| 7 | class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def |
||
| 8 | !endif |
||
| 9 | |||
| 10 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheets \ |
||
| 11 | :0\ |
||
| 12 | $class_expiration\ |
||
| 13 | $sheet_title\ |
||
| 14 | $sheet_desc |
||
| 15 | |||
| 16 | snum=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
| 17 | Data=!replace internal ../wimshome/ by $wims_home/ in ../$data |
||
| 18 | !sh cp $Data $wims_home/log/classes/$wims_class/sheets/.sheet$snum |
||
| 19 | |||
| 20 | !restart module=adm/class/sheet&sheet=$snum |
||
| 21 |