Subversion Repositories wimsdev

Rev

Rev 2356 | Rev 3066 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !read adm/css.phtml
  2. !read lang/names.phtml.$moduclass_lang
  3.  
  4. !header1
  5. !read adm/title.phtml 1\
  6. $wims_classname - $wims_institutionname\
  7. $module_title
  8.  
  9. !set wims_menu_items=!append line part_list,1,module=adm/class/userlist\
  10.  to $wims_menu_items
  11. !if $cmd!=reply
  12. $name_intro
  13.  !form reply
  14.  
  15. <input type=hidden name="job" value=all>  
  16. <center><input type=submit name="reg" value="$wims_name_tosave"></center>
  17. <p>
  18.  
  19. <fieldset>
  20. <legend>$name_menu
  21. </legend>
  22. $name_expert
  23.  [
  24. !href cmd=help $wims_name_help
  25. ]
  26.  
  27. <center><table>
  28. <tr><td>
  29. !default job=$job
  30. !formcheckbox job list filter prompt $name_filter
  31. </td><td><textarea name="variable" cols=20 rows=3>$variable</textarea>
  32. </td></tr>
  33. <tr><td>
  34. !formcheckbox job list login prompt $name_loginlist
  35.  </td><td>  
  36.    <textarea name="loginlist" cols=20 rows=5>$loginlist</textarea>
  37.    </td></tr>
  38.    </table>
  39. <center>
  40. </fieldset>  
  41. </form>
  42. !goto end
  43. !endif
  44.  
  45. !if $photourl_exists=0
  46.  <center> $name_nophoto</center>
  47.  !goto end
  48. !endif
  49. !set cmp=0
  50. !set cmp_tr=0
  51. <table><tr>
  52. !for l_ =1 to $cnt
  53.   !set u=!line $l_ of $list_user
  54.   <td width=120><span>
  55.   !if $(u[4])!=
  56.     !href module=adm/class/userlist&job=getuser&getuser=$(u[1]) <img border=0 width=120 src="$(u[4])" alt="$(u[2]) $(u[3])">
  57.     <br>$(u[2]) $(u[3])
  58.   !else
  59.      !href module=adm/class/userlist&job=getuser&getuser=$(u[1]) $(u[2]) $(u[3])
  60.   !endif
  61.   </span></td>
  62.   !increase cmp_tr
  63.   !increase cmp
  64.   !if $cmp_tr=6
  65.   </tr>
  66.   !reset cmp_tr
  67.   <tr>
  68.   !endif
  69.   !reset u
  70. !next
  71. </table>
  72.  
  73. !if $cmd=reply
  74.  !set wims_menu_items=!append line back2,1,cmd=resume\
  75.  to $wims_menu_items
  76. !endif
  77. :end
  78. !tail
  79.