Subversion Repositories wimsdev

Rev

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

  1.  
  2. !read adm/css.phtml
  3. !read adm/class/classname.phtml $wims_classname\
  4. $wims_institutionname
  5.  
  6. !read js/speckedit.phtml name_deposit
  7. !header1
  8.  
  9.  
  10. !read adm/title.phtml 1\
  11. $classname\
  12. $name_title
  13.  
  14. !if $error!=$empty
  15.  <div class="wims_alertmsg">
  16.  !read lang/msg.phtml.$moduclass_lang
  17.  </div>
  18.  <p>
  19.  !href module=home $wims_name_class_home
  20. . </p>
  21.  !goto end
  22. !endif
  23.  
  24. !if $job!=$empty
  25.  !read $job.phtml
  26.  !goto end
  27. !endif
  28.  
  29. $name_Intro
  30. !href style=student $name_home
  31. .
  32. <br/>
  33. <table class="wimscenter wimsborder" border="1" width="90%">
  34.  <tr>
  35.   <td>$name_commun :</td>
  36.   <td rowspan="2" valign="middle">
  37.   !set wims_ref_class=wims_button
  38.     !href cmd=reply&job=modif&user=.CLASS. $wims_name_change
  39.     &nbsp;
  40.   !set wims_ref_class=wims_button
  41.     !href cmd=reply&job=delete&user=.CLASS. $wims_name_erase
  42.   </td>
  43.  </tr>
  44.  <tr><td>&nbsp;
  45.  !record 0 of wimshome/log/classes/$wims_class/.motd
  46.  </td></tr>
  47. </table>
  48.  
  49. $name_motd
  50. $table_header
  51.  $table_hdtr
  52.   <th>$name_participant</th>
  53.   <th width="50%">$name_actualmotd</th>
  54.   <th>$wims_name_Status</th>
  55.   <th>$name_alertmsg</th>
  56.   <th>$wims_name_action</th>
  57.  </tr>
  58.  !for k=1 to $nbuser
  59.   $table_tr
  60.    !let don=!record $k of wimshome/log/classes/$wims_class/.userlist
  61.    !distribute item $don into f,l,u
  62.    <td>
  63.     $l $f
  64.     !if $u isitemof $wims_connectedlogin
  65.      <img src="gifs/themes/$wims_theme_icon/connected.png" width="15px" />
  66.     !endif
  67.    </td>
  68.    <td>
  69.     !record 0 of wimshome/log/classes/$wims_class/motd/$u
  70.    </td>
  71.    <td>
  72.     !let test=!record 0 of wimshome/log/classes/$wims_class/motd/.$u
  73.     !if $test=$empty
  74.      $(name_status[1])
  75.     !else
  76.      $(name_status[2])
  77.      !href cmd=reply&job=reactivate&user=$u $name_reactive
  78.     !endif
  79.    </td>
  80.    <td>
  81.     !let p=!positionof item $u in $wims_connectedlogin
  82.     !if $p!=$empty
  83.      !let n=!itemcnt $(wims_whoconnect[$p;])
  84.      !if $n>4
  85.       $name_usermultisession
  86.      !else
  87.       !defof wims_alertmsg in wimshome/sessions/$(wims_whoconnect[$p;4])/var.stat
  88.      !endif
  89.     !endif
  90.    </td>
  91.    <td>
  92.    !set wims_ref_class=wims_button
  93.     !href cmd=reply&job=modif&user=$u $wims_name_change
  94.     &nbsp;
  95.     !set wims_ref_class=wims_button
  96.     !href cmd=reply&job=delete&user=$u $wims_name_erase
  97.     !if $n<5 and $p!=$empty
  98.      &nbsp;
  99.      !set wims_ref_class=wims_button
  100.      !href cmd=reply&job=write&user=$u $name_walertmsg
  101.     !endif
  102.    </td>
  103.   </tr>
  104.  !next k
  105. $table_end
  106.  
  107. :end
  108.  
  109. !if $job!=$empty and $job!=delete
  110.   !set wims_menu_items=!append line back2,1,cmd=reply\
  111.  to $wims_menu_items
  112. !endif
  113.  
  114. !tail
  115. !reset job
  116.