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

!read $job.proc

!if $job=prop and $nbsheet>0
  listsheetname=$empty
  !for k=1 to $nbsheet
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
    t=!line 3 of $t
    listsheetname=!append item $k : $t to $listsheetname
  !next k
!endif

!set wims_ariane_self=no