Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

!if $wims_user=supervisor

!! !bound job within prop,show default show

!else

 !exit

!endif

title_limit=50

desc_limit=255

max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf

doctot=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex

wims_prefix=none

sup=$wims_user

class=$wims_class

!if $sup!=supervisor

 error=not_supervisor

 !exit

!endif

!if $job=prop and $cmd iswordof new resume

  sh=!record $doc of wimshome/log/classes/$wims_class/doc/.docindex

  !distribute lines $sh into dir,t_,title,desc,status,wksheet

!endif

!if $cmd=reply and $job=proc

  !read prop.proc

 !exit

!endif

!if ($cmd=new or $cmd=resume) and $job!=prop

 title=!module title $dir

 desc=!module description $dir

 !exit

!endif

!if $cmd=reply

 !if ../adm/ isin ../$dir or $dir=home or \

   (../devel/ isin ../$dir and $wims_devel_modules notwordof open)

  error=insert_fail

  !exit

 !endif

 idesc=!singlespace $desc

 idesc=!char 1 to $desc_limit of $idesc

 ititle=!singlespace $title

 ititle=!char 1 to $title_limit of $ititle

 !if $cmd=reply and $job!=prop

  !for i=1 to $doctot

   e=!record $i of wimshome/log/classes/$wims_class/doc/.docindex

   !distribute lines $e into wdi,win

   !if $dir=$wdi and $iniparm=$win

    test=$i

    error=already_exist

   !exit

   !endif

  !next i

!endif

!if $cmd=reply and $job=prop

 !read prop.proc

 !exit

!endif

!appendfile wimshome/log/classes/$wims_class/doc/.docindex :$dir\

$iniparm\

$ititle\

$idesc\

$status\

$wksheet

wims_module_log=class $class: add $dir

!restart