Subversion Repositories wimsdev

Rev

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

  1.  
  2. !read adm/css.phtml
  3. !read js/speckedit.phtml name_deposit
  4. !header1
  5.  
  6.  
  7.  
  8. !if $job!=$empty
  9.  !read $job.phtml
  10.  !goto end
  11. !endif
  12.  
  13.  
  14. !read adm/title.phtml 1\
  15. $wims_classname - $wims_institutionname\
  16. $name_title
  17.  
  18. !if $error!=$empty
  19.  <p>
  20.  !read lang/msg.phtml.$moduclass_lang
  21.  <p>
  22.  !href module=home $wims_name_class_home
  23. . <p>
  24.  !goto end
  25. !endif
  26.  
  27. $name_Intro
  28. !href style=student $name_home
  29. .
  30. <br>
  31. <center><table border=1 width="90%">
  32.  <tr>
  33.   <td>$name_commun :</td>
  34.   <td rowspan=2 valign="middle">
  35.     !href cmd=reply&job=modif&user=.CLASS. $wims_name_change
  36.     &nbsp;
  37.     !href cmd=reply&job=delete&user=.CLASS. $wims_name_erase
  38.   </td>
  39.  </tr>
  40.  <tr><td>&nbsp;
  41.  !record 0 of wimshome/log/classes/$wims_class/.motd
  42.  </td></tr>
  43. </table>
  44. <p>
  45. $name_motd
  46. $table_header
  47.  $table_hdtr
  48.   <th>$name_participant</th>
  49.   <th width="65%">$name_actualmotd</th>
  50.   <th>$wims_name_Status</th>
  51.   <th>$wims_name_Action</th>
  52.  </tr>
  53.  !for k=1 to $nbuser
  54.   $table_tr
  55.    !let don=!record $k of wimshome/log/classes/$wims_class/.userlist
  56.    !distribute item $don into f,l,u
  57.    <td>$l $f</td>
  58.    <td>
  59.     !record 0 of wimshome/log/classes/$wims_class/motd/$u
  60.    </td>
  61.    <td>
  62.     !let test=!record 0 of wimshome/log/classes/$wims_class/motd/.$u
  63.     !if $test=$empty
  64.      $(name_status[1])
  65.     !else
  66.      $(name_status[2])
  67.      !href cmd=reply&job=reactivate&user=$u $name_reactive
  68.     !endif
  69.    </td>
  70.    <td>
  71.     !href cmd=reply&job=modif&user=$u $wims_name_change
  72.     &nbsp;
  73.     !href cmd=reply&job=delete&user=$u $wims_name_erase
  74.    </td>
  75.   </tr>
  76.  !next k
  77. $table_end
  78. </center>
  79. <p>
  80. :end
  81.  
  82. !if $job!=$empty and $job!=delete
  83.   !set wims_menu_items=!append line back2,1,cmd=reply\
  84.  to $wims_menu_items
  85. !endif
  86.  
  87. !tail
  88. !reset job
  89.