Subversion Repositories wimsdev

Rev

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

Rev 10674 Rev 10703
Line 41... Line 41...
41 
  !endif
 41 
  !endif
42 
!next
 42 
!next
43 
 
 43 
 
44 
!let compsup=$empty
 44 
!let compsup=$empty
45 
!for cls in $user_participate
 45 
!for cls in $user_participate
- 
 
 46 
  !if $wims_class isin $cls
46 
 !let tmp=!replace internal / by , in $cls
 47 
    !let tmp=!replace internal / by , in $cls
47 
  !let compsup=!append line $tmp to $compsup
 48 
    !let compsup=!append line $tmp to $compsup
- 
 
 49 
  !endif
48 
!next cls
 50 
!next cls
49 
 
 - 
 
50 
!let compsup=!sh echo "$compsup" | sort | uniq;
 51 
!let compsup=!sh echo "$compsup" | sort | uniq;
51 
!!let compsup=!lines2items $compsup
 52 
!!let compsup=!lines2items $compsup
52 
!!let compsup=!nospace $compsup
 53 
!!let compsup=!nospace $compsup
53 
$U_gotoclass
 54 
$U_gotoclass
54 
!read classgraph.phtml participate\
 55 
!read classgraph.phtml participate\