1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
!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
|
