Subversion Repositories wimsdev

Rev

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

Rev 16153 Rev 16154
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 $cmd=reply
 18 
!if $save!=$empty
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 37... Line 37...
37 
!!      or N isin $expmon$expday$expyear \
 37 
!!      or N isin $expmon$expday$expyear \
38 
!!      or $($(k)date)<=$today
 38 
!!      or $($(k)date)<=$today
39 
!!      !reset $(k)date
 39 
!!      !reset $(k)date
40 
!!    !endif
 40 
!!    !endif
41 
!!  !next k
 41 
!!  !next k
42 
 
 - 
 
43 
!! ------ save
42 
!! ------ save
44 
 
 - 
 
45 
 
 43 
 
46 
!! ------  manage of allow
 44 
!! ------  manage of allow
47 
    !if $tv_listname=$empty
 45 
  !if $tv_listname=$empty
48 
      !bound allowtype within all,none,select default all
 46 
    !bound allowtype within all,none,select default all
49 
    !else
 47 
  !else
50 
      !bound allowtype within all,none,select,techvar default all
 48 
    !bound allowtype within all,none,select,techvar default all
51 
    !endif
 49 
  !endif
52 
    !read adm/scorerestriction get
 50 
  !read adm/scorerestriction get
53 
    IPlist=$_output
 51 
  IPlist=$_output
54 
    IPlist=!translate ,;\
 52 
  IPlist=!translate ,;\
55 
* to $    $ in $IPlist
 53 
* to $    $ in $IPlist
56 
    IPlist=!trim $IPlist
 54 
  IPlist=!trim $IPlist
57 
    !if $allowtype=select and $IPlist=$empty and $save!=$empty
 55 
  !if $allowtype=select and $IPlist=$empty and $save!=$empty
58 
      allowtype=all
 56 
      allowtype=all
59 
    !endif
 57 
  !endif
60 
    !if $allowtype=all
 58 
  !if $allowtype=all
61 
      allow_parm=
 59 
      allow_parm=
62 
    !endif
 60 
  !endif
63 
    !if $allowtype=none
 61 
  !if $allowtype=none
64 
      allow_parm=none
 62 
      allow_parm=none
65 
    !endif
 63 
  !endif
66 
    !if $allowtype=select
 64 
  !if $allowtype=select
67 
      allow_parm=$IPlist
 65 
      allow_parm=$IPlist
68 
    !endif
 66 
  !endif
69 
  old_allowtype=$allowtype
 67 
  old_allowtype=$allowtype
70 
  old_allowtechvar=$allowtechvar
 68 
  old_allowtechvar=$allowtechvar
71 
  !if $allowtype=techvar
 69 
  !if $allowtype=techvar
72 
    !readproc adm/vfilter/shexselect.proc .S$seq
 70 
    !readproc adm/vfilter/shexselect.proc .S$seq
73 
  !endif
 71 
  !endif
74 
 
 - 
 
75 
  !! ---- save modification of allow parameters for sequence
 72 
  !! ---- save modification of allow parameters for sequence
76 
  !if $save!=$empty
 73 
!!  !if $save!=$empty
77 
    !if $sharers!=$empty and $allowshare=1
 74 
    !if $sharers!=$empty and $allowshare=1
78 
      setclass=!items2words $wims_class,$sharers
 75 
      setclass=!items2words $wims_class,$sharers
79 
      setclass=!words2items $setclass
 76 
      setclass=!words2items $setclass
80 
    !else
 77 
    !else
81 
      setclass=$wims_class
 78 
      setclass=$wims_class
Line 84... Line 81...
84 
      !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
85 
    !else
 82 
    !else
86 
      !for c in $setclass
 83 
      !for c in $setclass
87 
        !writefile wimshome/log/classes/$c/.S$seq $allow_parm
 84 
        !writefile wimshome/log/classes/$c/.S$seq $allow_parm
88 
      !next c
 85 
      !next c
89 
    !endif
 86 
    !endif
90 
    wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
 87 
    wims_class_log=sequence $seq allow $allowtype $allowshare by $wims_realuser
91 
  !endif
 88 
!!  !endif
92 
  !! ---- end of saving
 89 
  !! ---- end of saving
93
- 
 
94 
 
 - 
 
95 
!! -------- end manage of allow
 90 
!! -------- end manage of allow
96 
 
 - 
 
97 
 
 - 
 
98 
 
 - 
 
99 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
 91 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
100 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
 92 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
101 
  !set listc=!lines2items $listc
 93 
  !set listc=!lines2items $listc
102 
  !set listc=!replace internal c by c_$ $ in $listc
 94 
  !set listc=!replace internal c by c_$ $ in $listc
103 
  !set listexam=!makelist exam_ i for i=1 to $examcnt
 95 
  !set listexam=!makelist exam_ i for i=1 to $examcnt
Line 138... Line 130...
138 
    !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
 130 
    !writefile wimshome/log/classes/$wims_class/seq/.sequences $seq_cnt\
139 
    $s_
 131 
    $s_
140 
  !endif
 132 
  !endif
141 
!endif
 133 
!endif
142 
 
 134 
 
143 
!! --- read saving configuration for allow parameters initial time and after saving
135 
!! --- read saving configuration for allow parameters
144 
  !if $save!=$empty
 - 
 
145 
    !readproc adm/vfilter/shexread.proc S$seq
 136 
  !readproc adm/vfilter/shexread.proc S$seq
146 
    !! to distribute IPlist content into variable
 137 
  !! to distribute IPlist content into variable
147 
    !read adm/scorerestriction put\
 138 
  !read adm/scorerestriction put\
148 
$IPlist
 139 
$IPlist
149 
  !endif
 - 
 
150 
  old_allowtype=$allowtype
 140 
  old_allowtype=$allowtype
151 
  old_allowtechvar=$allowtechvar
 141 
  old_allowtechvar=$allowtechvar
152 
  !reset save
 142 
  !reset save
153 
!! --- end of reading
 143 
!! --- end of reading
154 
 
 144