Subversion Repositories wimsdev

!read adm/css.phtml

!read lang/names.phtml.$moduclass_lang

!set js=!record 0 of js

!set wims_html_header=!append line $js to $wims_html_header

!header1

!read adm/title.phtml 1\

$wims_classname - $wims_institutionname\

$module_title\

($supervisormail)

!set wims_menu_items=!append line part_list,1,module=adm/class/userlist\

 to $wims_menu_items

!if $error!=$empty

  !read lang/msg.phtml.$moduclass_lang

  !set job=

!endif

!if $cmd!=reply or $error!=$empty

$name_intro

 !form reply

 <center><table>

 <tr>

  <td>$name_subject</td>

  <td><input name=subject size=45 value="$subject">

</tr>

<tr>

<td>$name_message</td>

 <td><textarea name=msg cols=40 rows=5>$msg</textarea>

 </tr></table>

<input type=submit name=reg value="$wims_name_send"></center>

<p>

<fieldset><legend>$name_menu

</legend>

!set file=wimshome/log/classes/$wims_class/.userlist

!set cnt=!recordcnt wimshome/log/classes/$wims_class/.userlist

!for lu =1 to $cnt

  !set us_=!record $lu of $file

  !if $(us_[3]) notitemof $select_user

   !set option=!append line <option value="$(us_[3])">$(us_[1]) $(us_[2]) ($(us_[3]))</option> to $option

  !else

   !set option_select=!append line <option value="$(us_[3])">$(us_[1]) $(us_[2]) ($(us_[3]))</option> to $option_select

  !endif

!next

!if $option=$empty

  !set option=<option value=""></option>

!endif

!if $option_select=$empty

  !set option_select=<option value=""></option>

!endif

$name_expert0

 [

!href cmd=help&special_parm=general $wims_name_help

]

<p>

!formradio job list all prompt $name_allparticipants

<p>

!formradio job list select prompt <b>$name_select</b>:

$name_expert1

!set  select_option=style="width: 225px;" multiple="multiple" size="10"

<center><table border="0" cellpadding="10" cellspacing="0"><tr>

  <td valign="top">

  <select  $select_option name="select_user1" ondblclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'add')">

  $option

</select></td>

  <td align="center">

<input name="add" value=" &gt;&gt; " type="button"

  onclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'add'); return false;"

>

<br>

<input name="remove" value=" &lt;&lt; " type="button" onclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'remove'); return false;"

>

</td>

<td valign="top">

  <select $select_option name="select_user2" ondblclick="moveSelections(this.form.elements['select_user1'], this.form.elements['select_user2'], this.form.elements['select_user'], 'remove')">

$option_select

</select>

<select style="overflow: hidden; visibility: hidden; width: 1px; height: 0;" name="select_user" multiple="multiple" size="10">

        $option

</select></td>

</tr>

</table>

</center>

<p>

!formradio job list s prompt <b>$name_loginlist</b>:

$name_expert2

 <center>

   <textarea name=loginlist cols=20 rows=5>$loginlist</textarea>

</center>

!default job=$job

<p>

!formradio job list filter prompt <b>$name_filter:</b>

$name_expert3

 [

!href cmd=help&special_parm=filter $wims_name_help

]

 <center><textarea name=variable cols=20 rows=3>$variable</textarea>

</center>

</fieldset>

</form>

!goto end

!endif

!if $confirm=$empty and $reg!=

 !if $email_exists=0

 $list_user$list_noemail

  !if $list_user$list_noemail notsametext

  $name_noemail

  ($wims_name_Login : $(list_noemail[3]))

  !else

   $name_nouser

  !endif

  <p>

  !href cmd=resume $wims_name_back2

  !goto end

 !endif

$name_warning

<center>

<input name=subject size=45 value="$subject" readonly>

<br>

<textarea cols=40 rows=5 readonly>

$msg

</textarea>

</center>

<pre>

$list_user

</pre>

!if $list_noemail notsametext

$name_noemail2

<pre>

$list_noemail

</pre>

!endif

 !form reply

<center>

!href cmd=reply&confirm=yes $wims_name_send

   

!href cmd=resume $wims_name_giveup

</form>

!endif

 !set wims_menu_items=!append line back2,1,cmd=resume\

 to $wims_menu_items

!endif

!if $confirm=yes

 !set cmp=0

 !set cmp_tr=0

 !set cnt=!linecnt $list_user

 !for l_ =1 to $cnt

  !set u=!line $l_ of $list_user

  !if $(u[4])!=

   !mailto $(u[4]) -- -f $supervisormail\

   [WIMS $wims_classname] $subject\

 $msg\

 \

   !endif

  !reset u

 !next

!endif

!if $cmd=reply and $confirm=yes

<p>

$name_participant1

<pre>$(list_user[;1..2])</pre>

!if $list_noemail notsametext

$name_participant2

<pre>

$(list_noemail[;1..2])

</pre>

!endif

!set wims_module_log=class $class: sendmail

!set date=!translate : to . in $wims_now

!appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR      $supervisormail send mail to $(list_user[;1])

 !reset list_user list_noemail

!endif

:end

!reset confirm reg abandon error

!tail