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