Subversion Repositories wimsdev

Rev

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

Rev 16229 Rev 16343
Line 20... Line 20...
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\
24 
$seq_desc
 24 
$seq_desc
25 
!! ------  manage of allow
 25 
  !! ------  manage of allow
26 
  !if $tv_listname=$empty
 26 
  !if $tv_listname=$empty
27 
    !bound allowtype within all,none,select default all
 27 
    !bound allowtype within all,none,select default all
28 
  !else
 28 
  !else
29 
    !bound allowtype within all,none,select,techvar default all
 29 
    !bound allowtype within all,none,select,techvar default all
30 
  !endif
 30 
  !endif
Line 32... Line 32...
32 
  IPlist=$_output
 32 
  IPlist=$_output
33 
  IPlist=!translate ,;\
 33 
  IPlist=!translate ,;\
34 
* to $    $ in $IPlist
 34 
* to $    $ in $IPlist
35 
  IPlist=!trim $IPlist
 35 
  IPlist=!trim $IPlist
36 
  !if $allowtype=select and $IPlist=$empty and $save!=$empty
 36 
  !if $allowtype=select and $IPlist=$empty and $save!=$empty
37 
      allowtype=all
 37 
    allowtype=all
38 
  !endif
 38 
  !endif
39 
  !if $allowtype=all
 39 
  !if $allowtype=all
40 
      allow_parm=
 40 
    allow_parm=
41 
  !endif
 41 
  !endif
42 
  !if $allowtype=none
 42 
  !if $allowtype=none
43 
      allow_parm=none
 43 
    allow_parm=none
44 
  !endif
 44 
  !endif
45 
  !if $allowtype=select
 45 
  !if $allowtype=select
46 
      allow_parm=$IPlist
 46 
    allow_parm=$IPlist
47 
  !endif
 47 
  !endif
48 
  old_allowtype=$allowtype
 48 
  old_allowtype=$allowtype
49 
  old_allowtechvar=$allowtechvar
 49 
  old_allowtechvar=$allowtechvar
50 
  !if $allowtype=techvar
 50 
  !if $allowtype=techvar
51 
    !readproc adm/vfilter/shexselect.proc .S$seq
 51 
    !readproc adm/vfilter/shexselect.proc .S$seq
52 
  !endif
 52 
  !endif
53 
  !! ---- save modification of allow parameters for sequence
 53 
  !! ---- save modification of allow parameters for sequence
54 
    !if $sharers!=$empty and $allowshare=1
 54 
  !if $sharers!=$empty and $allowshare=1
55 
      setclass=!items2words $wims_class,$sharers
 55 
    setclass=!items2words $wims_class,$sharers
56 
      setclass=!words2items $setclass
 56 
    setclass=!words2items $setclass
57 
    !else
 57 
  !else
58 
      setclass=$wims_class
 58 
    setclass=$wims_class
59 
    !endif
 59 
  !endif
60 
    !if $allow_parm=$empty
 60 
  !if $allow_parm=$empty
61 
      !sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.S$seq; done
 61 
    !sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.S$seq; done
62 
    !else
 62 
  !else
63 
      !for c in $setclass
 63 
    !for c in $setclass
64 
        !writefile wimshome/log/classes/$c/.S$seq $allow_parm
 64 
      !writefile wimshome/log/classes/$c/.S$seq $allow_parm
65 
      !next c
 65 
    !next c
66 
    !endif
 66 
  !endif
67 
    wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
 67 
  wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
68 
  !! ---- end of saving
 68 
  !! ---- end of saving
69 
!! -------- end manage of allow
 69 
  !! -------- end manage of allow
70 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
 70 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
71 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
 71 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
72 
  !set listc=!lines2items $listc
 72 
  !set listc=!lines2items $listc
73 
  !set listc=!replace internal c by c_$ $ in $listc
 73 
  !set listc=!replace internal c by c_$ $ in $listc
74 
  !set listexam=!makelist exam_ i for i=1 to $examcnt
 74 
  !set listexam=!makelist exam_ i for i=1 to $examcnt
Line 116... Line 116...
116 
$IPlist
 116 
$IPlist
117 
  old_allowtype=$allowtype
 117 
  old_allowtype=$allowtype
118 
  old_allowtechvar=$allowtechvar
 118 
  old_allowtechvar=$allowtechvar
119 
  !reset save
 119 
  !reset save
120 
!! --- end of reading
 120 
!! --- end of reading
121 
 
 -