Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1864 | bpr | 1 | !read adm/css.phtml |
2 | !read names.$module_language |
||
3 | !set js=!record 0 of js |
||
4 | !set wims_html_header=!append line $js to $wims_html_header |
||
5 | !header1 |
||
6 | !read adm/title.phtml 1\ |
||
7 | $wims_classname - $wims_institutionname\ |
||
8 | $module_title\ |
||
9 | ($supervisormail) |
||
10 | |||
11 | !set wims_menu_items=!append line part_list,1,module=adm/class/userlist\ |
||
12 | to $wims_menu_items |
||
13 | |||
14 | !if $error!=$empty |
||
15 | !read msg.phtml |
||
16 | !set job= |
||
17 | !endif |
||
18 | !if $cmd!=reply or $error!=$empty |
||
19 | $name_intro |
||
20 | !form reply |
||
21 | <center><table> |
||
22 | <tr> |
||
23 | <td>$name_subject</td> |
||
24 | <td><input name=subject size=45 value="$subject"> |
||
25 | </tr> |
||
26 | <tr> |
||
27 | <td>$name_message</td> |
||
28 | <td><textarea name=msg cols=40 rows=5>$msg</textarea> |
||
29 | </tr></table> |
||
30 | <input type=submit name=reg value="$wims_name_send"></center> |
||
31 | |||
32 | <p> |
||
33 | <fieldset><legend>$name_menu |
||
34 | </legend> |
||
35 | !set file=wimshome/log/classes/$wims_class/.userlist |
||
36 | !set cnt=!recordcnt wimshome/log/classes/$wims_class/.userlist |
||
37 | !for lu =1 to $cnt |
||
38 | !set us_=!record $lu of $file |
||
39 | !if $(us_[3]) notitemof $select_user |
||
40 | !set option=!append line <option value="$(us_[3])">$(us_[1]) $(us_[2]) ($(us_[3]))</option> to $option |
||
41 | !else |
||
42 | !set option_select=!append line <option value="$(us_[3])">$(us_[1]) $(us_[2]) ($(us_[3]))</option> to $option_select |
||
43 | !endif |
||
44 | !next |
||
45 | !if $option=$empty |
||
46 | !set option=<option value=""></option> |
||
47 | !endif |
||
48 | !if $option_select=$empty |
||
49 | !set option_select=<option value=""></option> |
||
50 | !endif |
||
51 | |||
52 | $name_expert0 |
||
53 | [ |
||
54 | !href cmd=help&special_parm=general $wims_name_help |
||
55 | ] |
||
56 | <p> |
||
57 | !formradio job list all prompt $name_allparticipants |
||
58 | <p> |
||
59 | !formradio job list select prompt <b>$name_select</b>: |
||
60 | $name_expert1 |
||
61 | !set select_option=style="width: 225px;" multiple="multiple" size="10" |
||
62 | |||
63 | <center><table border="0" cellpadding="10" cellspacing="0"><tr> |
||
64 | <td valign="top"> |
||
65 | <select $select_option name="select_user1" ondblclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'add')"> |
||
66 | $option |
||
67 | </select></td> |
||
68 | <td align="center"> |
||
69 | <input name="add" value=" >> " type="button" |
||
70 | onclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'add'); return false;" |
||
71 | > |
||
72 | <br> |
||
73 | <input name="remove" value=" << " type="button" onclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'remove'); return false;" |
||
74 | > |
||
75 | </td> |
||
76 | <td valign="top"> |
||
77 | <select $select_option name="select_user2" ondblclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'remove')"> |
||
78 | $option_select |
||
79 | </select> |
||
80 | <select style="overflow: hidden; visibility: hidden; width: 1px; height: 0;" name="select_user" multiple="multiple" size="10"> |
||
81 | $option |
||
82 | </select></td> |
||
83 | </tr> |
||
84 | </table> |
||
85 | </center> |
||
86 | |||
87 | <p> |
||
88 | !formradio job list s prompt <b>$name_loginlist</b>: |
||
89 | $name_expert2 |
||
90 | <center> |
||
91 | <textarea name=loginlist cols=20 rows=5>$loginlist</textarea> |
||
92 | </center> |
||
93 | !default job=$job |
||
94 | <p> |
||
95 | !formradio job list filter prompt <b>$name_filter:</b> |
||
96 | $name_expert3 |
||
97 | [ |
||
98 | !href cmd=help&special_parm=filter $wims_name_help |
||
99 | ] |
||
100 | <center><textarea name=variable cols=20 rows=3>$variable</textarea> |
||
101 | </center> |
||
102 | |||
103 | </fieldset> |
||
104 | </form> |
||
105 | !goto end |
||
106 | !endif |
||
107 | !if $confirm=$empty and $reg!= |
||
108 | !if $email_exists=0 |
||
109 | $list_user$list_noemail |
||
110 | !if $list_user$list_noemail notsametext |
||
111 | $name_noemail |
||
112 | ($wims_name_Login : $(list_noemail[3])) |
||
113 | !else |
||
114 | $name_nouser |
||
115 | !endif |
||
116 | <p> |
||
117 | !href cmd=resume $wims_name_back2 |
||
118 | !goto end |
||
119 | !endif |
||
120 | $name_warning |
||
121 | <center> |
||
122 | <input name=subject size=45 value="$subject" readonly> |
||
123 | <br> |
||
124 | <textarea cols=40 rows=5 readonly> |
||
125 | $msg |
||
126 | </textarea> |
||
127 | </center> |
||
128 | <pre> |
||
129 | $list_user |
||
130 | </pre> |
||
131 | !if $list_noemail notsametext |
||
132 | $name_noemail2 |
||
133 | <pre> |
||
134 | $list_noemail |
||
135 | </pre> |
||
136 | !endif |
||
137 | !form reply |
||
138 | <center> |
||
139 | !href cmd=reply&confirm=yes $wims_name_send |
||
140 | |
||
141 | !href cmd=resume $wims_name_giveup |
||
142 | </form> |
||
143 | |||
144 | !endif |
||
145 | !set wims_menu_items=!append line back2,1,cmd=resume\ |
||
146 | to $wims_menu_items |
||
147 | !endif |
||
148 | |||
149 | !if $confirm=yes |
||
150 | !set cmp=0 |
||
151 | !set cmp_tr=0 |
||
152 | !set cnt=!linecnt $list_user |
||
153 | !for l_ =1 to $cnt |
||
154 | !set u=!line $l_ of $list_user |
||
155 | !if $(u[4])!= |
||
156 | !mailto $(u[4]) -- -f $supervisormail\ |
||
157 | [WIMS $wims_classname] $subject\ |
||
158 | $msg\ |
||
159 | \ |
||
160 | |||
161 | !endif |
||
162 | !reset u |
||
163 | !next |
||
164 | !endif |
||
165 | !if $cmd=reply and $confirm=yes |
||
166 | <p> |
||
167 | $name_participant1 |
||
168 | <pre>$(list_user[;1..2])</pre> |
||
169 | !if $list_noemail notsametext |
||
170 | $name_participant2 |
||
171 | <pre> |
||
172 | $(list_noemail[;1..2]) |
||
173 | </pre> |
||
174 | !endif |
||
175 | !set wims_menu_items=!append line back2,1,cmd=resume\ |
||
176 | to $wims_menu_items |
||
177 | !reset list_user list_noemail |
||
178 | |||
179 | !endif |
||
180 | :end |
||
181 | !reset confirm reg abandon error |
||
182 | |||
183 | !tail |