Subversion Repositories wimsdev

Rev

Rev 12338 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!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