Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

!if $wims_user=supervisor

!! !bound job within prop,show default show

!else

 error=not_supervisor

 !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

class=$wims_class

!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

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

 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

   !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