Subversion Repositories wimsdev

Rev

Rev 12476 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12476 Rev 16089
Line 1... Line 1...
1 
!if $n<=0
 1 
!if $n<=0
- 
 
 2 
  !exit
- 
 
 3 
!endif
- 
 
 4 
 
- 
 
 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
2 
  !exit
 9 
  !exit
3 
!endif
 10 
!endif
4 
 
 11 
 
5 
!readdef wimshome/log/classes/$wims_class/.def
 12 
!readdef wimshome/log/classes/$wims_class/.def
6 
!if $wims_superclass!=$empty
 13 
!if $wims_superclass!=$empty
7 
  class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
 14 
  class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
8 
!endif
 15 
!endif
9 
 
 16 
 
10 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets \
 17 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets \
11 
:0\
 18 
:0\
12 
$class_expiration\
 19 
$class_expiration\
13 
$sheet_title\
 20 
$sheet_title\
14 
$sheet_desc
 21 
$sheet_desc
15 
 
 22 
 
16 
snum=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 23 
!increase snum
17 
Data=!replace internal ../wimshome/ by $wims_home/ in ../$data
 24 
Data=!replace internal ../wimshome/ by $wims_home/ in ../$data
18 
!sh cp $Data $wims_home/log/classes/$wims_class/sheets/.sheet$snum
 25 
!sh cp $Data $wims_home/log/classes/$wims_class/sheets/.sheet$snum
19 
 
 26 
 
20 
!restart module=adm/class/sheet&sheet=$snum
 27 
!restart module=adm/class/sheet&sheet=$snum