Subversion Repositories wimsdev

Rev

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
wims_prefix=none
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 $cmd=reply
4
!if $step=0
33
 !if ../adm/ isin ../$dir or $dir=home or \
5
 !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
34
   (../devel/ isin ../$dir and $wims_devel_modules notwordof open)
-
 
35
  error=insert_fail
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
  !for i=1 to $doctot
9
 sdoc=$doc
45
   e=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
10
 sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
46
   !distribute lines $e into wdi,win
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
!appendfile wimshome/log/classes/$wims_class/doc/.docindex :$dir\
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
$iniparm\
28
$param\
62
$ititle\
29
$title\
63
$idesc\
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
wims_module_log=class $class: add $dir
37
 message=$name_savemodif
68
 
-
 
69
!restart
38
 !endif
70
 
39
!endif