Subversion Repositories wimsdev

Rev

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

  1. $U_gotoclass3
  2. !if $wims_superclass=$empty
  3.   !let wims_superclass=$wims_class
  4. !endif
  5. !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_user
  6. !! ----------- definition des droits de connexion supervisor
  7. <br/>
  8. !let compsup=$empty
  9. !for cls in $user_supervise
  10.  !let tmp=!replace internal / by , in $cls
  11.  !let nb=!itemcnt $tmp
  12.  !for l=2 to $nb
  13.   !let t=!replace internal , by / in $(tmp[1 to $l])
  14.   !let compsup=!append line $t to $compsup
  15.  !next l
  16. !next cls
  17. !let compsup=!sh echo "$compsup" | sort | uniq;
  18. !let compsup=!lines2items $compsup
  19. !let compsup=!nospace $compsup
  20.  
  21. !let tab=0
  22. !for cls in $compsup
  23.  !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def
  24.  !let t=!positionof item $(don[1]) in level,class,program,course
  25.  !if $t=3
  26.   !let ta=2
  27.  !else
  28.   !let ta=$t
  29.  !endif
  30.  !if $tab!=$ta
  31.   !if $tab>$ta
  32.    !for k=$ta+1 to $tab
  33.     </ul>
  34.    !next k
  35.   !else
  36.    !for k=$tab+1 to $ta
  37.     <ul class="wims_subclasses">
  38.    !next k
  39.   !endif
  40.  !endif
  41.  !let tab=$ta
  42.  !if $t=4
  43.   !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def
  44.   !if $tmp=program
  45.    !let t=5
  46.   !endif
  47.  !endif
  48.  <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
  49.  !if $cls notitemof $user_supervise
  50.   $(don[2])
  51.  !else
  52.   !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
  53.  !endif
  54.  ($(don[3])) </span> </li>
  55. !next cls
  56. !for k=1 to $tab
  57.  </ul>
  58. !next k
  59.