Rev 9644 | Rev 12338 | 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 |
||
12330 | bpr | 4 | test=!defof category in wimshome/public_html/modules/$dir/INDEX |
5 | !if ../adm/ isin ../$dir or $dir=home or \ |
||
6 | (../devel/ isin ../$dir and $wims_devel_modules notwordof open) or \ |
||
7 | document notwordof $test |
||
8 | error=insert_fail |
||
9623 | guerimand | 9 | !exit |
12330 | bpr | 10 | !endif |
9623 | guerimand | 11 | |
12330 | bpr | 12 | !if $doctot>=$max_doc |
13 | error=maxdoc |
||
14 | !exit |
||
15 | !endif |
||
9644 | guerimand | 16 | |
12330 | bpr | 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 |
||
9623 | guerimand | 26 | |
12330 | bpr | 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 |
||
9623 | guerimand | 39 | !endif |
40 | |||
41 | !if $step=1 |
||
12330 | bpr | 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 |
||
48 | !appendfile wimshome/log/classes/$wims_class/doc/.docindex :$sdir\ |
||
9644 | guerimand | 49 | $siniparm\ |
9623 | guerimand | 50 | $title\ |
51 | $desc\ |
||
52 | $status\ |
||
9629 | guerimand | 53 | $wksheet\ |
9623 | guerimand | 54 | |
12330 | bpr | 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 |
||
59 | message=$name_confirm |
||
60 | job=prop |
||
9623 | guerimand | 61 | |
62 | !endif |