Subversion Repositories wimsdev

Rev

Rev 18144 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18144 Rev 18147
Line 69... Line 69...
69 
 
 69 
 
70 
!if $public!=P
 70 
!if $public!=P
71 
  !bound sh between integer 1 and 1024 default 0
 71 
  !bound sh between integer 1 and 1024 default 0
72 
 
 72 
 
73 
  !if $sh=0
 73 
  !if $sh=0
74 
    :badsheet
 74 
:badsheet
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 
  !distribute lines $sheet into sheet_active,sheet_expiration,sheet_title,sheet_desc,\
 80 
  !distribute lines $sheet into sheet_active,sheet_expiration,sheet_title,sheet_desc,\
81 
   sheet_docpage,sheet_comment,sheet_icone,sheet_exodesc,sheet_hidetechvar,sheet_indivtechvar
 81 
   sheet_docpage,sheet_comment,sheet_icone,sheet_exodesc,sheet_hidetechvar,sheet_indivtechvar
82 
!! ------test if sheet is hidden for this user
 82 
!! ------test if sheet is hidden for this user
83 
  !if $wims_user!=supervisor
 83 
  !if $wims_user!=supervisor
84 
    !if $sheet_hidetechvar!=$empty
 - 
 
85 
      !readproc adm/vfilter/ishiddensheet.proc $sheet_hidetechvar
 84 
    !set tmp_sheetstatus=!getsheetstatus sheet=$sh
86 
      !if $hidden_sheet=1
 85 
    !if $tmp_sheetstatus=3
87 
        error=sheet_hidden
 86 
      error=sheet_hidden
88 
        !exit
 87 
      !exit
89 
      !endif
 - 
 
90 
    !endif
 88 
    !endif
91 
  !endif
 89 
  !endif
92 
!! -----end test
 90 
!! -----end test
93 
!! ----- define individualisation with techvar
 91 
!! ----- define individualisation with techvar
94 
  !if $sheet_indivtechvar!=$empty
 92 
  !if $sheet_indivtechvar!=$empty