Subversion Repositories wimsdev

Rev

Rev 7679 | 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. !set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
  6. !set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  7. !set classes=!record 0 of wimshome/log/classes/$wims_class/classes
  8. !set classcnt=!linecnt $classes
  9. !set progs=!record 0 of wimshome/log/classes/$wims_class/programs
  10. !set progcnt=!linecnt $progs
  11.  
  12. !if $classcnt+$progcnt>=1
  13.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  14.  !set coursecnt=!linecnt $courses
  15. !endif
  16. !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
  17. !set icoursecnt=!linecnt $icourses
  18. !if $[$classcnt+$progcnt+$coursecnt+$icourses]=0
  19.   !goto nosubclass
  20. !endif
  21.  
  22. !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_user
  23. !if $wims_user=supervisor and $wims_realuser=supervisor
  24.   !set user_supervise=!column 1 of $classes\
  25.   $progs\
  26.   $courses
  27.   !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
  28. !endif
  29.  
  30. !! ----------- definition des droits de connexion supervisor
  31. <br/>
  32. !let compsup=$empty
  33. !for cls in $user_supervise
  34.  !let tmp=!replace internal / by , in $cls
  35.  !let nb=!itemcnt $tmp
  36.  !for l=2 to $nb
  37.   !let t=!replace internal , by / in $(tmp[1 to $l])
  38.   !let compsup=!append line $t to $compsup
  39.  !next l
  40. !next cls
  41. !let compsup=!sh echo "$compsup" | sort | uniq;
  42. !let compsup=!lines2items $compsup
  43. !let compsup=!nospace $compsup
  44.  
  45. !let tab=0
  46. !for cls in $compsup
  47.  !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def
  48.  !let t=!positionof item $(don[1]) in level,class,program,course
  49.  !if $t=3
  50.   !let ta=2
  51.  !else
  52.   !let ta=$t
  53.  !endif
  54.  !if $tab!=$ta
  55.   !if $tab>$ta
  56.    !for k=$ta+1 to $tab
  57.     </ul>
  58.    !next k
  59.   !else
  60.    !for k=$tab+1 to $ta
  61.     <ul class="wims_subclasses">
  62.    !next k
  63.   !endif
  64.  !endif
  65.  !let tab=$ta
  66.  !if $t=4
  67.   !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def
  68.   !if $tmp=program
  69.    !let t=5
  70.   !endif
  71.  !endif
  72.  <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
  73.  !if $cls notitemof $user_supervise
  74.   $(don[2])
  75.  !else
  76.   !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
  77.  !endif
  78.  ($(don[3])) </span> </li>
  79. !next cls
  80. !for k=1 to $tab
  81.  </ul>
  82. !next k
  83.