Subversion Repositories wimsdev

Rev

Rev 10095 | Rev 12338 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10095 Rev 12330
Line 1... Line 1...
1 
!read adm/class/classlang names.phtml
 1 
!read adm/class/classlang names.phtml
2 
 
 2 
 
3 
wims_prefix=none
 3 
wims_prefix=none
4 
 
 4 
 
5 
!if $wims_user=supervisor
 5 
!if $wims_user=supervisor
6 
 !bound job within prop,add,deldoc,adddocsh,chstatus default add
 6 
  !bound job within prop,add,deldoc,adddocsh,chstatus default add
7 
!else
 7 
!else
8 
 error=not_supervisor
 8 
  error=not_supervisor
9 
 !exit
 9 
  !exit
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
title_limit=50
 12 
title_limit=50
13 
desc_limit=255
 13 
desc_limit=255
14 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 14 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
15 
 
 15 
 
16 
!read $job.proc
 16 
!read $job.proc
17 
 
 17 
 
18 
!if $job=prop and $nbsheet>0
 18 
!if $job=prop and $nbsheet>0
19 
 listsheetname=$empty
 19 
  listsheetname=$empty
20 
 !for k=1 to $nbsheet
 20 
  !for k=1 to $nbsheet
21 
  t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
 21 
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
22 
  t=!line 3 of $t
 22 
    t=!line 3 of $t
23 
  listsheetname=!append item $k : $t to $listsheetname
 23 
    listsheetname=!append item $k : $t to $listsheetname
24 
 !next k
 24 
  !next k
25 
!endif
 25 
!endif
26 
 
 26 
 
27 
!set wims_ariane_self=no
 27 
!set wims_ariane_self=no