Subversion Repositories wimsdev

Rev

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

Rev 14348 Rev 14441
Line 75... Line 75...
75 
    error=bad_sheet
 75 
    error=bad_sheet
76 
    !exit
 76 
    !exit
77 
  !endif
 77 
  !endif
78 
  data=wimshome/log/classes/$wims_class/sheets/.sheet$sh
 78 
  data=wimshome/log/classes/$wims_class/sheets/.sheet$sh
79 
  sheet=!record $sh of wimshome/log/classes/$wims_class/sheets/.sheets
 79 
  sheet=!record $sh of wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 80 
  !if $wims_user!=supervisor
- 
 
 81 
    !! ------test if sheet is hidden for this user
- 
 
 82 
    h_=!line 9 of $sheet
- 
 
 83 
    !if $h_!=$empty
- 
 
 84 
      !readproc adm/vfilter/ishiddensheet.proc $h_
- 
 
 85 
      !if $hidden_sheet=1
- 
 
 86 
        error=sheet_hidden
- 
 
 87 
        !exit
- 
 
 88 
      !endif
- 
 
 89 
    !endif
- 
 
 90 
    !! -----end test
- 
 
 91 
  !endif
80 
  !distribute lines $sheet into sheet_active,sheet_expiration,sheet_title,sheet_desc,sheet_docpage
 92 
  !distribute lines $sheet into sheet_active,sheet_expiration,sheet_title,sheet_desc,sheet_docpage
81 
  !if $wims_user != supervisor and $sheet_active notin 12
 93 
  !if $wims_user != supervisor and $sheet_active notin 12
82 
    !distribute items $ into sheet_active,sheet_expiration,sheet_title,sheet_desc,sheet_docpage
 94 
    !distribute items $ into sheet_active,sheet_expiration,sheet_title,sheet_desc,sheet_docpage
83 
    !if $job=print
 95 
    !if $job=print
84 
      job=read
 96 
      job=read