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