Subversion Repositories wimsdev

Rev

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

Rev 9646 Rev 9682
Line 10... Line 10...
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 
 
 - 
 
16 
 
 15 
 
17 
!read $job.proc
 16 
!read $job.proc
18 
 
 17 
 
19 
!if $job=prop and $nbsheet>0
 18 
!if $job=prop and $nbsheet>0
20 
listsheetname=$empty
 19 
 listsheetname=$empty
21 
!for k=1 to $nbsheet
 20 
 !for k=1 to $nbsheet
22 
 t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
 21 
  t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
23 
 t=!line 3 of $t
 22 
  t=!line 3 of $t
24 
 listsheetname=!append item $k : $t to $listsheetname
 23 
  listsheetname=!append item $k : $t to $listsheetname
25 
!next k
 24 
 !next k
26 
!endif
 25 
!endif