Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
2368 bpr 1
!read adm/class/classlang names.phtml
1406 bpr 2
 
9619 guerimand 3
wims_prefix=none
4
 
8255 bpr 5
!if $wims_user=supervisor
12330 bpr 6
  !bound job within prop,add,deldoc,adddocsh,chstatus default add
1406 bpr 7
!else
12330 bpr 8
  error=not_supervisor
9
  !exit
1406 bpr 10
!endif
11
title_limit=50
12
desc_limit=255
9629 guerimand 13
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
9619 guerimand 14
 
12338 bpr 15
!if $type=$empty
16
  !if $tool!=$empty
17
    type=tool
18
  !else
19
    type=doc
20
  !endif
21
!endif
9623 guerimand 22
!read $job.proc
1406 bpr 23
 
12338 bpr 24
!if $job=prop and $nbsheet>0 and $type=doc
12330 bpr 25
  listsheetname=$empty
26
  !for k=1 to $nbsheet
27
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
28
    t=!line 3 of $t
13307 bpr 29
    t=!replace internal , by , in $t
12330 bpr 30
    listsheetname=!append item $k : $t to $listsheetname
31
  !next k
9682 bpr 32
!endif
10095 bpr 33
 
34
!set wims_ariane_self=no