Subversion Repositories wimsdev

Rev

Rev 16685 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16685 Rev 17626
Line 49... Line 49...
49 
    !let compsup=!append line $tmp to $compsup
 49 
    !let compsup=!append line $tmp to $compsup
50 
  !endif
 50 
  !endif
51 
!next cls
 51 
!next cls
52 
!set user_participate_=$user_participate
 52 
!set user_participate_=$user_participate
53 
!let compsup=!sh echo "$compsup" | sort | uniq;
 53 
!let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 54 
!! better sorting for groupement (for students)
- 
 
 55 
!if $class_type=2
- 
 
 56 
  !set compsup_=!replace internal $wims_class, by in $compsup
- 
 
 57 
  !set compsup_=!linestoitems $compsup_
- 
 
 58 
  !set compsup_=!sort numeric items $compsup_
- 
 
 59 
  !set compsup_=!makelist $wims_class/x for x in $compsup_
- 
 
 60 
  !set compsup=!itemstolines $compsup_
- 
 
 61 
  !set compsup=!replace internal / by , in $compsup
- 
 
 62 
!endif
54 
 
 63 
 
55 
!if $supervisable=yes
 64 
!if $supervisable=yes
56 
  !if $compsup!=$empty
 65 
  !if $compsup!=$empty
57 
    !if $sup_details!=open
 66 
    !if $sup_details!=open
58 
      !let tmp=open
 67 
      !let tmp=open