Subversion Repositories wimsdev

Rev

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