Subversion Repositories wimsdev

Rev

Rev 17507 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17507 Rev 17629
Line 39... Line 39...
39 
      !let compsup=!append line $tmp to $compsup
 39 
      !let compsup=!append line $tmp to $compsup
40 
    !endif
 40 
    !endif
41 
  !endif
 41 
  !endif
42 
!next cls
 42 
!next cls
43 
!let compsup=!sh echo "$compsup" | sort | uniq;
 43 
!let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 44 
!! better sorting for groupement (for teachers)
- 
 
 45 
!if $compsup!=$empty and $class_type=2
- 
 
 46 
  !set compsup_=!replace internal $wims_class, by in $compsup
- 
 
 47 
  !set compsup_=!linestoitems $compsup_
- 
 
 48 
  !set compsup_=!sort numeric items $compsup_
- 
 
 49 
  !set compsup_=!makelist $wims_class/x for x in $compsup_
- 
 
 50 
  !set compsup=!itemstolines $compsup_
- 
 
 51 
  !set compsup=!replace internal / by , in $compsup
- 
 
 52 
!endif
44 
 
 53 
 
45 
!if $user_supervisable=yes and $wims_superclass isitemof $user_supervise and $wims_superclass=$wims_class
 54 
!if $user_supervisable=yes and $wims_superclass isitemof $user_supervise and $wims_superclass=$wims_class
46 
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
 55 
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
47 
    <ul class="wims_subclasses"><li><span class="wims_classes_direct_portal">
 56 
    <ul class="wims_subclasses"><li><span class="wims_classes_direct_portal">
48 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass&auth_user=supervisor $class_description (supervisor)
 57 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass&auth_user=supervisor $class_description (supervisor)