Subversion Repositories wimsdev

Rev

Rev 12466 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !read adm/title.phtml 1\
  2. $classname\
  3. $wims_name_regmanage
  4.  
  5. !reset table_center
  6. !set typen=!defof class_typename in wimshome/log/classes/$wims_class/.def
  7. !if $usercnt=0
  8.   <div class="wimscenter">
  9.   $name_noyetparticipant
  10.   !if $typen!=level
  11.     $ $
  12.     !set wims_ref_class=wims_button
  13.     !href module=adm/class/reguser&step=1 $wims_name_addstudent
  14.     $ $
  15.   !endif
  16.   </div>
  17. !else
  18.   $name_description
  19.   !if $tv_listtechvar!=$empty
  20.     <fieldset class="property_fields blockcenter">
  21.     <legend>$name_techvardisplay</legend>
  22.     <div class="field box">
  23.     !form reply
  24.      <div style="margin-left:4.5em;" id="tech_var">
  25.        !read adm/vfilter/varfilter htmldiv
  26.      </div>
  27.      <div class="wimscenter">
  28.       <input type="hidden" name="job" value="regmanage">
  29.       <input type="submit" name="action" value="$name_display" $wims_on_click>
  30.      </div>
  31.     !formend
  32.     </div>
  33.     </fieldset>
  34.   !endif
  35.  
  36.   !form reply
  37.   !! ----- displaying table of participant
  38.   $table_header
  39.   $table_hdtr
  40.    <th><input type="checkbox" name="listuser" id="listuser_all" value="__ALL__"><label for="listuser_all">$name_all</label></th>
  41.      <th>$name_studentglo</th>
  42.   !for l=1 to $nbsubclasses
  43.     <th>
  44.      <input type="checkbox" name="listsclassch" id="listsclassch$l_" value="$(ltsubclasses[$l])">
  45.      <label for="listsclassch$l_">$(ltnamesubclasses[$l])</label>
  46.      <br> ($(ltsupsubclasses[$l]))
  47.     </th>
  48.   !next l
  49.   </tr>
  50.   !readproc adm/class/mkcomment name
  51.   !let namecomment=$scriptout
  52.   !for i=1 to $usercnt
  53.     !set uu=!record $i of wimshome/log/classes/$wims_class/.userlist
  54.     !distribute items $uu into bl,bl,uu
  55.     !if $varfilter_!=$empty
  56.       !read adm/vfilter/testfilter $uu\
  57. $varfilter_
  58.     !endif
  59.     !if $(var_filter_test)=1 or $varfilter_=$empty
  60.       !!    !set UU=!hex $uu
  61.       !reset user_exists,user_email,user_regnum,user_external_auth,user_vars,user_comments$namecomment,user_comments,user_participate
  62.       !readproc adm/class/userdef classes,$wims_class,$uu
  63.       !readdef $userdef
  64.       !set user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
  65.       $table_tr
  66.       <td><input type="checkbox" name="listuser" value="$uu"></td>
  67.       !reset css_connected
  68.       !if $uu isitemof $wims_connectedlogin
  69.         !set css_connected=class="wims_connected"
  70.         !set wims_ref_title=connected
  71.       !endif
  72.       <td><span $css_connected>
  73.       !href cmd=reply&job=userprop&getuser=$uu $name_studentloc
  74.       </span></td>
  75.       !for k in $ltsubclasses
  76.         <td class="wimscenter">
  77.         !if $k isitemof $user_participate
  78.           &#x2705;
  79.        !endif
  80.         </td>
  81.       !next k
  82.       </tr>
  83.     !endif
  84.   !next i
  85.   </table>
  86.   <div class="wimscenter">
  87.    <input type="hidden" name="job" value="regmanage">
  88.    <input type="submit" name="action" value="$name_reguser" $wims_on_click>
  89.    <input type="submit" name="action" value="$name_unreguser" $wims_on_click>
  90.   </div>
  91.  
  92.   !!  </fieldset>
  93.   !formend
  94. !endif
  95.  
  96. !! define wims_menu_items
  97. !set wims_menu_items=!append line back2,1,module=adm/class/usermanage&job=userlist to $wims_menu_items
  98.