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