Subversion Repositories wimsdev

Rev

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