Subversion Repositories wimsdev

Rev

Rev 12330 | Rev 15554 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12330 Rev 12338
Line 2... Line 2...
2 
 
 2 
 
3 
!if $step=0
 3 
!if $step=0
4 
  test=!defof category in wimshome/public_html/modules/$dir/INDEX
 4 
  test=!defof category in wimshome/public_html/modules/$dir/INDEX
5 
  !if ../adm/ isin ../$dir or $dir=home or \
 5 
  !if ../adm/ isin ../$dir or $dir=home or \
6 
      (../devel/ isin ../$dir and $wims_devel_modules notwordof open) or \
 6 
      (../devel/ isin ../$dir and $wims_devel_modules notwordof open) or \
7 
      document notwordof $test
 7 
      (document notwordof $test and tool notwordof $test)
8 
    error=insert_fail
 8 
    error=insert_fail
9 
  !exit
 9 
    !exit
- 
 
 10 
  !endif
- 
 
 11 
  !if document iswordof $test
- 
 
 12 
    !set type=doc
- 
 
 13 
  !endif
- 
 
 14 
  !if tool iswordof $test
- 
 
 15 
    !set type=tool
10 
  !endif
 16 
  !endif
11 
 
 - 
 
12 
  !if $doctot>=$max_doc
 17 
  !if $($(type)tot)>=$(max_$(type))
13 
    error=maxdoc
 18 
    error=max$type
14 
    !exit
 19 
    !exit
15 
  !endif
 20 
  !endif
16 
 
 - 
 
17 
  title=!module title $dir
 21 
  title=!module title $dir
18 
  desc=!module description $dir
 22 
  desc=!module description $dir
19 
  desc=!singlespace $desc
 23 
  desc=!singlespace $desc
20 
  desc=!char 1 to $desc_limit of $desc
 24 
  desc=!char 1 to $desc_limit of $desc
21 
  title=!singlespace $title
 25 
  title=!singlespace $title
22 
  title=!char 1 to $title_limit of $title
 26 
  title=!char 1 to $title_limit of $title
23 
  status=0
 27 
  status=0
24 
  update=$empty
 28 
  update=$empty
25 
  wksheet=0
 29 
  wksheet=0
26 
 
 - 
 
27 
  !for i=1 to $doctot
 30 
  !for i=1 to $($(type)tot)
28 
    e=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
 31 
    e=!record $i of wimshome/log/classes/$wims_class/$type/.$(type)index
29 
    !distribute lines $e into wdi,win,otitle
 32 
    !distribute lines $e into wdi,win,otitle
30 
    !if $dir=$wdi and $iniparm=$win
 33 
    !if $dir=$wdi and $iniparm=$win
31 
      test=$i
 34 
      test=$i
32 
      error=already_exist
 35 
      error=already_exist
33 
      title=$otitle
 36 
      title=$otitle
Line 37... Line 40...
37 
  sdir=$dir
 40 
  sdir=$dir
38 
  siniparm=$iniparm
 41 
  siniparm=$iniparm
39 
!endif
 42 
!endif
40 
 
 43 
 
41 
!if $step=1
 44 
!if $step=1
- 
 
 45 
  test=!defof category in wimshome/public_html/modules/$sdir/INDEX
- 
 
 46 
  !if tool iswordof $test
- 
 
 47 
    !set type=tool
- 
 
 48 
  !else
- 
 
 49 
    !set type=doc
- 
 
 50 
  !endif
42 
  desc=!singlespace $desc
 51 
  desc=!singlespace $desc
43 
  desc=!char 1 to $desc_limit of $desc
 52 
  desc=!char 1 to $desc_limit of $desc
44 
  title=!singlespace $title
 53 
  title=!singlespace $title
45 
  title=!char 1 to $title_limit of $title
 54 
  title=!char 1 to $title_limit of $title
46 
  !bound status within 0,1 default 0
 55 
  !bound status within 0,1 default 0
- 
 
 56 
  !if $type=tool
- 
 
 57 
    !reset wksheet
- 
 
 58 
  !else
47 
  !bound wksheet within 0 and $nbsheet default 0
 59 
    !bound wksheet within 0 and $nbsheet default 0
- 
 
 60 
  !endif
48 
  !appendfile wimshome/log/classes/$wims_class/doc/.docindex :$sdir\
 61 
  !appendfile wimshome/log/classes/$wims_class/$type/.$(type)index :$sdir\
49 
$siniparm\
 62 
$siniparm\
50 
$title\
 63 
$title\
51 
$desc\
 64 
$desc\
52 
$status\
 65 
$status\
53 
$wksheet\
 66 
$wksheet\
54 
 
 67 
 
- 
 
 68 
 
55 
  sdoc=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
 69 
  s$type=!recordcnt wimshome/log/classes/$wims_class/$type/.$(type)index
56 
  wims_module_log=class $wims_class: add $sdir
 70 
  wims_module_log=class $wims_class: add $sdir
57 
  dir=$sdir
 71 
  dir=$sdir
58 
  iniparm=$siniparm
 72 
  iniparm=$siniparm
59 
  message=$name_confirm
 73 
  message=$(name_confirm$type)
60 
  job=prop
 74 
  job=prop
61 
 
 75 
 
62 
!endif
 76 
!endif