Subversion Repositories wimsdev

Rev

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

Rev 18127 Rev 18144
Line 79... Line 79...
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 
    !!test inutile ? getsheetstatus le sait ?
 - 
 
85 
    !if $sheet_hidetechvar!=$empty
 84 
    !if $sheet_hidetechvar!=$empty
86 
      !!readproc adm/vfilter/ishiddensheet.proc $sheet_hidetechvar
 85 
      !readproc adm/vfilter/ishiddensheet.proc $sheet_hidetechvar
87 
      !set tmp_sheetstatus=!getsheetstatus class=$tv_Sclass user=$proc_wims_user
 - 
 
88 
      !if $tmp_sheetstatus=3
 - 
 
89 
      !!if $hidden_sheet=1
 86 
      !if $hidden_sheet=1
90 
        error=sheet_hidden
 87 
        error=sheet_hidden
91 
        !exit
 88 
        !exit
92 
      !endif
 89 
      !endif
93 
    !endif
 90 
    !endif
94 
  !endif
 91 
  !endif