Rev 9619 | Rev 9629 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9619 | Rev 9623 | ||
---|---|---|---|
Line 1... | Line -... | ||
1 | !read adm/class/classlang names.phtml |
- | |
2 | 1 | ||
3 |
|
2 | !bound step within 0,1 default 0 |
4 | 3 | ||
5 | !if $wims_user=supervisor |
- | |
6 | !! !bound job within prop,show default show |
- | |
7 | !else |
- | |
8 | error=not_supervisor |
- | |
9 | !exit |
- | |
10 | !endif |
- | |
11 | - | ||
12 | title_limit=50 |
- | |
13 | desc_limit=255 |
- | |
14 | max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf |
- | |
15 | doctot=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex |
- | |
16 | class=$wims_class |
- | |
17 | - | ||
18 | !if $job=prop and $cmd iswordof new resume |
- | |
19 | sh=!record $doc of wimshome/log/classes/$wims_class/doc/.docindex |
- | |
20 | !distribute lines $sh into dir,t_,title,desc,status,wksheet |
- | |
21 | !endif |
- | |
22 | !if $cmd=reply and $job=proc |
- | |
23 | !read prop.proc |
- | |
24 | !exit |
- | |
25 | !endif |
- | |
26 | !if ($cmd=new or $cmd=resume) and $job!=prop |
- | |
27 | title=!module title $dir |
- | |
28 | desc=!module description $dir |
- | |
29 | !exit |
- | |
30 | !endif |
- | |
31 | - | ||
32 | !if |
4 | !if $step=0 |
33 | !if |
5 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
34 | (../devel/ isin ../$dir and $wims_devel_modules notwordof open) |
- | |
35 |
|
6 | error=baddocnumber |
36 | !exit |
7 | !exit |
37 | !endif |
8 | !endif |
38 | - | ||
39 | idesc=!singlespace $desc |
- | |
40 | idesc=!char 1 to $desc_limit of $idesc |
- | |
41 | ititle=!singlespace $title |
- | |
42 | ititle=!char 1 to $title_limit of $ititle |
- | |
43 | !if $cmd=reply and $job!=prop |
- | |
44 |
|
9 | sdoc=$doc |
45 |
|
10 | sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
46 |
|
11 | !distribute lines $sh into dir,param,title,desc,status,wksheet |
47 | !if $dir=$wdi and $iniparm=$win |
- | |
48 | test=$i |
- | |
49 | error=already_exist |
- | |
50 | !exit |
- | |
51 | !endif |
- | |
52 | !next i |
- | |
53 | !endif |
- | |
54 | - | ||
55 | !if $cmd=reply and $job=prop |
- | |
56 | !read prop.proc |
- | |
57 | !exit |
12 | !exit |
58 | !endif |
13 | !endif |
59 | 14 | ||
- | 15 | !if $step=1 |
|
- | 16 | !if $update!=$empty |
|
- | 17 | step=2 |
|
- | 18 | !else |
|
- | 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 | !bound wksheet between 0 and $nbsheet default 0 |
|
- | 24 | !bound status within 0,1 default 0 |
|
60 |
|
25 | sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
- | 26 | !distribute lines $sh into dir,param,b,b,b,b |
|
- | 27 | newsh=$dir\ |
|
61 |
|
28 | $param\ |
62 |
|
29 | $title\ |
63 |
|
30 | $desc\ |
64 | $status\ |
31 | $status\ |
65 | $wksheet |
32 | $wksheet |
- | 33 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
|
- | 34 | $sdoc\ |
|
- | 35 | $empty\ |
|
66 | 36 | $newsh |
|
67 |
|
37 | message=$name_savemodif |
68 | - | ||
69 |
|
38 | !endif |
70 | 39 | !endif |