Subversion Repositories wimsdev

Rev

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

Rev 12330 Rev 12338
Line 6... Line 6...
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 
 
 - 
 
12 
title_limit=50
 11 
title_limit=50
13 
desc_limit=255
 12 
desc_limit=255
14 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 13 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
15 
 
 14 
 
- 
 
 15 
!if $type=$empty
- 
 
 16 
  !if $tool!=$empty
- 
 
 17 
    type=tool
- 
 
 18 
  !else
- 
 
 19 
    type=doc
- 
 
 20 
  !endif
- 
 
 21 
!endif
16 
!read $job.proc
 22 
!read $job.proc
17 
 
 23 
 
18 
!if $job=prop and $nbsheet>0
 24 
!if $job=prop and $nbsheet>0 and $type=doc
19 
  listsheetname=$empty
 25 
  listsheetname=$empty
20 
  !for k=1 to $nbsheet
 26 
  !for k=1 to $nbsheet
21 
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
 27 
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
22 
    t=!line 3 of $t
 28 
    t=!line 3 of $t
23 
    listsheetname=!append item $k : $t to $listsheetname
 29 
    listsheetname=!append item $k : $t to $listsheetname