Subversion Repositories wimsdev

!!read proc/prop.proc

!bound step within 0,1 default 0

!if $step=0
 !if ../adm/ isin ../$dir or $dir=home or \
   (../devel/ isin ../$dir and $wims_devel_modules notwordof open)
  error=insert_fail
  !exit
 !endif

 !if $doctot>=$max_doc
  error=maxdoc
  !exit
 !endif
 title=!module title $dir
 desc=!module description $dir
 desc=!singlespace $desc
 desc=!char 1 to $desc_limit of $desc
 title=!singlespace $title
 title=!char 1 to $title_limit of $title
 status=0
 update=$empty
 wksheet=0

 !for i=1 to $doctot
   e=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
   !distribute lines $e into wdi,win,otitle
   !if $dir=$wdi and $iniparm=$win
     test=$i
     error=already_exist
     title=$otitle
     !exit
   !endif
 !next i
 sdir=$dir
 siniparm=$iniparm
!endif

!if $step=1
 desc=!singlespace $desc
 desc=!char 1 to $desc_limit of $desc
 title=!singlespace $title
 title=!char 1 to $title_limit of $title
 !bound status within 0,1 default 0
 !bound wksheet within 0 and $nbsheet default 0
!appendfile wimshome/log/classes/$wims_class/doc/.docindex :$dir\
$iniparm\
$title\
$desc\
$status\
$wksheet

wims_module_log=class $wims_class: add $dir

message=$name_confirm
job=prop

!endif