Subversion Repositories wimsdev

Rev

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