Subversion Repositories wimsdev

Rev

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

  1. !! display list of participant with usual information
  2. !! work to do
  3. !!ATTENTION : il faut faire un tableau different en fonction du niveau de structure de la classe d'appel (portail, superclass, etc...) reflechir à ce que l'on affiche.
  4.  
  5. !read adm/title.phtml 1\
  6. $classname\
  7. $wims_name_part_list ($usercnt)
  8.  
  9. !readproc userlist.mkdata
  10.  
  11. !reset table_center
  12. !set typen=!defof class_typename in wimshome/log/classes/$wims_class/.def
  13. !if $usercnt=0
  14.     <div class="wimscenter">
  15.     $name_noyetparticipant
  16.     !if $typen!=level
  17.         &nbsp;
  18.      !set wims_ref_class=wims_button
  19.     !href module=adm/class/reguser&step=1 $wims_name_addstudent
  20. &nbsp;
  21.     !endif
  22. !!    20141016 : deconnecte pour l'instant, attente d'organisation.
  23. !!    !set wims_ref_class=wims_button
  24. !!    !href cmd=reply&job=csv $wims_name_csv
  25.     </div>
  26. !else
  27. !! ------ manage ask for technical variable selection.
  28.   !if $tv_listtechvar!=$empty
  29.     !form reply
  30.     !read adm/vfilter/varfilter html
  31.     !formend
  32.   !endif
  33. !! ----- displaying table of participant
  34.     $table_header
  35.     !if $nbtechvar>0
  36.         !let nbrow=2
  37.     !else
  38.         !let nbrow=1
  39.     !endif
  40.     $table_hdtr
  41.        !set cptri=1
  42.        !for k in $name_studentglo,$wims_name_Login,$wims_name_email,$name_regnum,$name_external_auth
  43.         <th rowspan="$nbrow">
  44.          $k
  45.          !href cmd=resume&+tri=U$cptri U
  46.          !href cmd=resume&+tri=D$cptri D
  47.          !increase cptri
  48.         </th>
  49.        !next k
  50.         !if $nbtechvar>0
  51.          <th colspan="$nbtechvar">$name_vars</th>
  52.         !endif
  53.         <th rowspan="$nbrow">
  54.          $name_comments
  55.          !href cmd=resume&+tri=U$lastri U
  56.          !href cmd=resume&+tri=D$lastri D
  57.         </th>
  58.     </tr>
  59.     !if $nbtechvar>0
  60.       <tr>
  61.        !for k in $(tv_listtechvar[;1])
  62.         <th>
  63.          $k
  64.          !href cmd=resume&+tri=U$cptri U
  65.          !href cmd=resume&+tri=D$cptri D
  66.          !increase cptri
  67.         </th>
  68.        !next k
  69.       </tr>
  70.     !endif
  71.  
  72.  
  73.   !set nbrec=!recordcnt $fileuserlist
  74.   !for i=1 to $nbrec
  75.    !set data=!record $i of $fileuserlist
  76.    !set uu=!item 2 of $data
  77.    !if $varfilter_!=$empty
  78.        !read adm/vfilter/testfilter $uu\
  79. $varfilter_
  80.    !endif
  81.    !if $(var_filter_test)=1 or $varfilter_=$empty
  82. !!        !set UU=!hex $uu
  83.           !reset user_exists,user_email,user_regnum,user_external_auth,user_vars,user_comments$namecomment,user_comments
  84.           !readproc adm/class/userdef classes,$wims_class,$uu
  85.           !readdef $userdef
  86.           !readproc adm/vfilter/uservarfilter.proc $userdef
  87.      $table_tr
  88.      !reset css_connected
  89.      !if $uu isitemof $wims_connectedlogin
  90.        !set css_connected=class="wims_connected"
  91.        !set wims_ref_title=connected
  92.      !endif
  93.         <td $css_connected>
  94.          !href cmd=reply&+job=userprop&+getuser=$uu $(data[1])
  95.         </td>
  96.         !set data=!item 2 to -1 of $data
  97.         !for val in $data
  98.          <td>$val</td>
  99.         !next val
  100.      </tr>
  101.    !endif
  102.   !next i
  103.     </table>
  104. !endif
  105.  
  106. !! define wims_menu_items
  107. !set wims_menu_items=!append line itemsep,0,\
  108. csv,1,module=adm/class/userscore&job=csv\
  109. to $wims_menu_items
  110. !if $wims_typename iswordof group and $wims_supertype=2
  111.      !set wims_menu_items=!append line regmanage,1,module=adm/class/usermanage&job=regmanage to $wims_menu_items
  112. !endif
  113. !if $typen!=level
  114.  !set wims_menu_items=!append line addparticipant,1,module=adm/class/reguser&step=1\
  115. to $wims_menu_items
  116. !endif
  117. !if $deleted!=$empty
  118.  !set wims_menu_items=!append line recover,1,cmd=reply&job=recover\
  119. to $wims_menu_items
  120. !endif
  121.  
  122. !! menubox links -> teacher list
  123. !set class_Supervisor=!defof class_Supervisor in wimshome/log/classes/$wims_class/.def
  124. !!## supervisor can see list of teacher and their access
  125. !if supervisor=$wims_user and $wims_supertype=2
  126.  !default wims_superclass=$wims_class
  127.  !set teacherlist=!record 0 of wimshome/log/classes/$wims_superclass/.teacherlist
  128.  !set teachercnt=!linecnt $teacherlist
  129.  !if $teachercnt>0 and $job!=teacher
  130.   !set wims_menu_items=!append line itemsep,0,\
  131. teacherlist,1,module=adm/class/usermanage&job=teacher\
  132. to $wims_menu_items
  133.  !endif
  134. !!## only the administrator has the right to add a teacher to the superclass
  135. !if $wims_typename iswordof group and $wims_supertype=2
  136.     !if $teachercnt=0 or $job=teacher
  137.         !set wims_menu_items=!append line itemsep,0, to $wims_menu_items
  138.     !endif
  139.     !set wims_menu_items=!append line addteacher,1,module=adm/class/reguser&step=1&utype=1 to $wims_menu_items
  140.  !endif
  141. !endif wims_typename=group etc
  142.  
  143. !set wims_menu_items=!append line itemsep,0,$wims_name_classactivity\
  144. sendmail,1,module=adm/class/sendmail\
  145. photoboard,1,module=adm/class/photoboard\
  146. to $wims_menu_items
  147. !if $typen notwordof level portal program group class \
  148.    or ($wims_typename iswordof course or ($wims_typename iswordof class and $wims_supertype iswordof 0 2))
  149.   !set wims_menu_items=!append line itemsep,0,$wims_name_Evaluation\
  150. Score1,1,module=adm/class/userscore\
  151.  livret,1,module=adm/class/livret\
  152.  activity,1,module=adm/class/activity\
  153. to $wims_menu_items
  154. !endif
  155.