Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

wims_prefix=none

!if $wims_user=supervisor

  !bound job within prop,add,deldoc,adddocsh,chstatus default add

!else

  error=not_supervisor

  !exit

!endif

title_limit=50

desc_limit=255

nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets

!if $type=$empty

  !if $tool!=$empty

    type=tool

  !else

    type=doc

  !endif

!endif

!read $job.proc

!if $job=prop and $nbsheet>0 and $type=doc

  listsheetname=$empty

  !for k=1 to $nbsheet

    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets

    t=!line 3 of $t

    t=!replace internal , by , in $t

    listsheetname=!append item $k : $t to $listsheetname

  !next k

!endif

!set wims_ariane_self=no