Subversion Repositories wimsdev

Rev

Rev 9629 | Rev 12330 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
9623 guerimand 1
!bound step within 0,1 default 0
2
 
3
!if $step=0
9644 guerimand 4
 test=!defof category in wimshome/public_html/modules/$dir/INDEX
9623 guerimand 5
 !if ../adm/ isin ../$dir or $dir=home or \
9644 guerimand 6
   (../devel/ isin ../$dir and $wims_devel_modules notwordof open) or \
7
   document notwordof $test
9623 guerimand 8
  error=insert_fail
9
  !exit
10
 !endif
11
 
9625 guerimand 12
 !if $doctot>=$max_doc
13
  error=maxdoc
14
  !exit
15
 !endif
9644 guerimand 16
 
9623 guerimand 17
 title=!module title $dir
18
 desc=!module description $dir
19
 desc=!singlespace $desc
20
 desc=!char 1 to $desc_limit of $desc
21
 title=!singlespace $title
22
 title=!char 1 to $title_limit of $title
23
 status=0
24
 update=$empty
25
 wksheet=0
26
 
27
 !for i=1 to $doctot
28
   e=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
29
   !distribute lines $e into wdi,win,otitle
30
   !if $dir=$wdi and $iniparm=$win
31
     test=$i
32
     error=already_exist
33
     title=$otitle
34
     !exit
35
   !endif
36
 !next i
37
 sdir=$dir
38
 siniparm=$iniparm
39
!endif
40
 
41
!if $step=1
42
 desc=!singlespace $desc
43
 desc=!char 1 to $desc_limit of $desc
44
 title=!singlespace $title
45
 title=!char 1 to $title_limit of $title
46
 !bound status within 0,1 default 0
47
 !bound wksheet within 0 and $nbsheet default 0
9644 guerimand 48
!appendfile wimshome/log/classes/$wims_class/doc/.docindex :$sdir\
49
$siniparm\
9623 guerimand 50
$title\
51
$desc\
52
$status\
9629 guerimand 53
$wksheet\
9623 guerimand 54
 
9644 guerimand 55
sdoc=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
56
wims_module_log=class $wims_class: add $sdir
57
dir=$sdir
58
iniparm=$siniparm
9623 guerimand 59
message=$name_confirm
60
job=prop
61
 
62
!endif
63