Subversion Repositories wimsdev

Rev

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

Rev 16343 Rev 16801
Line 12... Line 12...
12 
  error=toomanyseq
 12 
  error=toomanyseq
13 
  !exit
 13 
  !exit
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!readproc adm/vfilter/listvarfilter.proc
 16 
!readproc adm/vfilter/listvarfilter.proc
- 
 
 17 
 
- 
 
 18 
sharers=
- 
 
 19 
sharing1=!defof sharable_sheet in wimshome/log/classes/$wims_class/neighbors
- 
 
 20 
!for c in $sharing1
- 
 
 21 
  d=!defof sharing_sheet in wimshome/log/classes/$c/neighbors
- 
 
 22 
  !if $d issametext $wims_class
- 
 
 23 
    sharers=!append item $c to $sharers
- 
 
 24 
  !endif
- 
 
 25 
!next c
17 
 
 26 
 
18 
!if $save!=$empty or ($old_allowtype!=$allowtype and ($allowtype=techvar and $old_allowtechvar!=$allowtechvar))
 27 
!if $save!=$empty or ($old_allowtype!=$allowtype and ($allowtype=techvar and $old_allowtechvar!=$allowtechvar))
19 
  seq_desc=!replace internal $\
 28 
  seq_desc=!replace internal $\
20 
$ by $ $ in $seq_desc
 29 
$ by $ $ in $seq_desc
21 
  seq_title=!char 1 to $title_limit of $seq_title
 30 
  seq_title=!char 1 to $title_limit of $seq_title
Line 23... Line 32...
23 
  new_data=:$seq_title\
 32 
  new_data=:$seq_title\
24 
$seq_desc
 33 
$seq_desc
25 
  !! ------  manage of allow
 34 
  !! ------  manage of allow
26 
  !if $tv_listname=$empty
 35 
  !if $tv_listname=$empty
27 
    !bound allowtype within all,none,select default all
 36 
    !bound allowtype within all,none,select default all
28 
  !else
 37 
  !else
29 
    !bound allowtype within all,none,select,techvar default all
 38 
    !bound allowtype within all,none,select,techvar default all
30 
  !endif
 39 
  !endif
31 
  !read adm/scorerestriction get
 40 
  !read adm/scorerestriction get
32 
  IPlist=$_output
 41 
  IPlist=$_output
33 
  IPlist=!translate ,;\
 42 
  IPlist=!translate ,;\
Line 50... Line 59...
50 
  !if $allowtype=techvar
 59 
  !if $allowtype=techvar
51 
    !readproc adm/vfilter/shexselect.proc .S$seq
 60 
    !readproc adm/vfilter/shexselect.proc .S$seq
52 
  !endif
 61 
  !endif
53 
  !! ---- save modification of allow parameters for sequence
 62 
  !! ---- save modification of allow parameters for sequence
54 
  !if $sharers!=$empty and $allowshare=1
 63 
  !if $sharers!=$empty and $allowshare=1
- 
 
 64 
    !if $allowtype=techvar
- 
 
 65 
      !readproc adm/vfilter/validtechvar.proc $allowtechvar\
- 
 
 66 
$sharers
- 
 
 67 
      !if $output=1
55 
    setclass=!items2words $wims_class,$sharers
 68 
        setclass=$wims_class,$sharers
- 
 
 69 
      !else
- 
 
 70 
        error=badallowshare
- 
 
 71 
        allowshare=0
- 
 
 72 
        setclass=$wims_class
- 
 
 73 
      !endif
- 
 
 74 
    !else
56 
    setclass=!words2items $setclass
 75 
      setclass=$wims_class,$sharers
- 
 
 76 
    !endif
57 
  !else
 77 
  !else
58 
    setclass=$wims_class
 78 
    setclass=$wims_class
59 
  !endif
 79 
  !endif
60 
  !if $allow_parm=$empty
 80 
  !if $allow_parm=$empty
61 
    !sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.S$seq; done
 81 
    !sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.S$seq; done
62 
  !else
 82 
  !else
- 
 
 83 
    setclass=!words2items $setclass
63 
    !for c in $setclass
 84 
    !for c in $setclass
64 
      !writefile wimshome/log/classes/$c/.S$seq $allow_parm
 85 
      !writefile wimshome/log/classes/$c/.S$seq $allow_parm
65 
    !next c
 86 
    !next c
66 
  !endif
 87 
  !endif
67 
  wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
 88 
  wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser