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 |