Subversion Repositories wimsdev

Rev

Rev 5796 | Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. !read adm/css.phtml
  2. !read lang/names.phtml.$moduclass_lang
  3. !read adm/class/classname.phtml $wims_classname\
  4. $wims_institutionname
  5.  
  6. !set js=!record 0 of js/chooselist.js
  7. !set wims_html_header=!append line $js to $wims_html_header
  8. !header1
  9. !read adm/title.phtml 1\
  10. $classname\
  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
  18.   !read msg.phtml
  19.   !set job=
  20. !endif
  21. !if $cmd!=reply or $error!=$empty
  22. $name_intro
  23.  !form reply
  24.  <table class="wimsnoborder wimscenter">
  25.  <tr>
  26.   <td>$name_subject</td>
  27.   <td><input name="subject" size="45" value="$subject"/></td>
  28. </tr>
  29. <tr>
  30. <td>$name_message</td>
  31.  <td><textarea name="msg" cols="40" rows="5">$msg</textarea></td>
  32.  </tr></table>
  33.  <p class="wimscenter">
  34. <input type="submit" name="reg" value="$wims_name_send"/>
  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
  56. &nbsp;
  57. !set wims_ref_class=wims_button_help
  58. !href cmd=help&special_parm=general $wims_name_help
  59.  
  60. <p>
  61. !formradio job list all prompt $name_allparticipants
  62. </p>
  63. <p>
  64. !formradio job list select prompt <b>$name_select</b>:
  65. $name_expert1
  66. </p>
  67. !set wims_chooselist_select=$option
  68. !set wims_chooselist_checked=$option_select
  69.  
  70. <div class="wimscenter">
  71. !read js/chooselist.phtml select_user1,select_user2,select_user
  72. </div>
  73.  
  74. <p>
  75. !formradio job list s prompt <b>$name_loginlist</b>:
  76. $name_expert2
  77. </p>
  78. <div class="wimscenter">
  79.    <textarea name="loginlist" cols="20" rows="5">$loginlist</textarea>
  80. </div>
  81. !default job=$job
  82. <p>
  83. !formradio job list filter prompt <b>$name_filter:</b>
  84. $name_expert3
  85. &nbsp;
  86. </p>
  87. !set wims_ref_class=wims_button_help
  88. !href cmd=help&special_parm=filter $wims_name_help
  89.  
  90. <div class="wimscenter">
  91. <textarea name="variable" cols="20" rows="3">$variable</textarea>
  92. </div>
  93.  
  94. </fieldset>
  95.  
  96. !formend
  97. !goto end
  98. !endif
  99. !if $confirm=$empty and $reg!=
  100.  !if $email_exists=0
  101. !! $list_user$list_noemail
  102.   !if $list_user$list_noemail notsametext
  103.   $name_noemail
  104.   ($wims_name_Login : $(list_noemail[3]))
  105.   !else
  106.    $name_nouser
  107.   !endif
  108.   <p>
  109.   !set wims_menu_items=!append line back2,1,cmd=resume\
  110.  to $wims_menu_items
  111.   !goto end
  112.  !endif
  113. $name_warning
  114. <div class="wimscenter">
  115. <input name="subject" size="45" value="$subject" readonly/>
  116. <br/>
  117. <textarea cols="40" rows="5" readonly>
  118. $msg
  119. </textarea>
  120. </div>
  121. <pre>
  122. $list_user
  123. </pre>
  124. <pre>
  125. $list_teacher
  126. </pre>
  127. !if $list_noemail notsametext
  128. $name_noemail2
  129. <pre>
  130. $list_noemail
  131. </pre>
  132. !endif
  133.  !form reply
  134. <div class="wimscenter">>
  135. !set wims_ref_class=wims_button
  136. !href cmd=reply&confirm=yes $wims_name_send
  137. &nbsp;&nbsp;&nbsp;
  138. !set wims_ref_class=wims_button
  139. !href cmd=resume $wims_name_giveup
  140. </div>
  141.  
  142. !formend
  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.  !set cnt=!linecnt $list_teacher
  165.  !for l_ =1 to $cnt
  166.   !set u=!line $l_ of $list_teacher
  167.   !if $(u[4])!=
  168.    !mailto $(u[4]) -- -f $supervisormail\
  169.    [WIMS $wims_classname] $subject\
  170.  $msg\
  171.  \
  172.  
  173.    !endif
  174.   !reset u
  175.  !next
  176. !endif
  177. !if $cmd=reply and $confirm=yes
  178. <p>
  179. $name_participant1
  180. <pre>$(list_user[;1..2])</pre>
  181. !if $list_noemail notsametext
  182. $name_participant2
  183. <pre>
  184. $(list_noemail[;1..2])
  185. </pre>
  186. !endif
  187.  
  188. !set wims_module_log=class $class: sendmail
  189. !set date=!translate : to . in $wims_now
  190. !appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR      $supervisormail send mail to $(list_user[;1]) $(list_teacher[;1])
  191.  
  192.  !reset list_user list_noemail
  193.  
  194. !endif
  195. :end
  196. !reset confirm reg abandon error
  197.  
  198. !tail
  199.