Subversion Repositories wimsdev

Rev

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

Rev 16143 Rev 16153
Line 66... Line 66...
66
    !if $allowtype=select
66
    !if $allowtype=select
67
      allow_parm=$IPlist
67
      allow_parm=$IPlist
68
    !endif
68
    !endif
69
  old_allowtype=$allowtype
69
  old_allowtype=$allowtype
70
  old_allowtechvar=$allowtechvar
70
  old_allowtechvar=$allowtechvar
71
    !if $allowtype=techvar
71
  !if $allowtype=techvar
72
      !readproc adm/vfilter/shexselect.proc .S$seq
72
    !readproc adm/vfilter/shexselect.proc .S$seq
73
    !endif
73
  !endif
74
 
74
 
75
  !! ---- save modification of allow parameters for sequence
75
  !! ---- save modification of allow parameters for sequence
76
  !if $save!=$empty
76
  !if $save!=$empty
77
    !if $sharers!=$empty and $allowshare=1
77
    !if $sharers!=$empty and $allowshare=1
78
      setclass=!items2words $wims_class,$sharers
78
      setclass=!items2words $wims_class,$sharers
Line 139... Line 139...
139
    $s_
139
    $s_
140
  !endif
140
  !endif
141
!endif
141
!endif
142
 
142
 
143
!! --- read saving configuration for allow parameters initial time and after saving 
143
!! --- read saving configuration for allow parameters initial time and after saving 
144
  !if $allow=$empty or $save!=$empty
144
  !if $save!=$empty
145
    !readproc adm/vfilter/shexread.proc S$seq
145
    !readproc adm/vfilter/shexread.proc S$seq
146
    !! to distribute IPlist content into variable
146
    !! to distribute IPlist content into variable
147
    !read adm/scorerestriction put\
147
    !read adm/scorerestriction put\
148
$IPlist
148
$IPlist
149
  !endif
149
  !endif
150
  old_allowtype=$allowtype
150
  old_allowtype=$allowtype
151
  old_allowtechvar=$allowtechvar
151
  old_allowtechvar=$allowtechvar
152
  !reset allow,save
152
  !reset save
153
!! --- end of reading
153
!! --- end of reading
154
 
154