Subversion Repositories wimsdev

Rev

Rev 9625 | Go to most recent revision | Details | Last modification | View Log | RSS feed

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