Subversion Repositories wimsdev

Rev

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

Rev 16154 Rev 16158
Line 13... Line 13...
13 
  !exit
 13 
  !exit
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!readproc adm/vfilter/listvarfilter.proc
 16 
!readproc adm/vfilter/listvarfilter.proc
17 
 
 17 
 
18 
!if $save!=$empty
 18 
!if $save!=$empty or ($old_allowtype!=$allowtype and ($allowtype=techvar and $old_allowtechvar!=$allowtechvar))
19 
  seq_desc=!replace internal $\
 19 
  seq_desc=!replace internal $\
20 
$ by $ $ in $seq_desc
 20 
$ by $ $ in $seq_desc
21 
  seq_title=!char 1 to $title_limit of $seq_title
 21 
  seq_title=!char 1 to $title_limit of $seq_title
22 
  seq_desc=!char 1 to $desc_limit of $seq_desc
 22 
  seq_desc=!char 1 to $desc_limit of $seq_desc
23 
  new_data=:$seq_title\
 23 
  new_data=:$seq_title\
Line 68... Line 68...
68 
  old_allowtechvar=$allowtechvar
 68 
  old_allowtechvar=$allowtechvar
69 
  !if $allowtype=techvar
 69 
  !if $allowtype=techvar
70 
    !readproc adm/vfilter/shexselect.proc .S$seq
 70 
    !readproc adm/vfilter/shexselect.proc .S$seq
71 
  !endif
 71 
  !endif
72 
  !! ---- save modification of allow parameters for sequence
 72 
  !! ---- save modification of allow parameters for sequence
73 
!!  !if $save!=$empty
 - 
 
74 
    !if $sharers!=$empty and $allowshare=1
 73 
    !if $sharers!=$empty and $allowshare=1
75 
      setclass=!items2words $wims_class,$sharers
 74 
      setclass=!items2words $wims_class,$sharers
76 
      setclass=!words2items $setclass
 75 
      setclass=!words2items $setclass
77 
    !else
 76 
    !else
78 
      setclass=$wims_class
 77 
      setclass=$wims_class
Line 83... Line 82...
83 
      !for c in $setclass
 82 
      !for c in $setclass
84 
        !writefile wimshome/log/classes/$c/.S$seq $allow_parm
 83 
        !writefile wimshome/log/classes/$c/.S$seq $allow_parm
85 
      !next c
 84 
      !next c
86 
    !endif
 85 
    !endif
87 
    wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
 86 
    wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
88 
!!  !endif
 - 
 
89 
  !! ---- end of saving
 87 
  !! ---- end of saving
90 
!! -------- end manage of allow
 88 
!! -------- end manage of allow
91 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
 89 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
92 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
 90 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
93 
  !set listc=!lines2items $listc
 91 
  !set listc=!lines2items $listc