Subversion Repositories wimsdev

Rev

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

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