Subversion Repositories wimsdev

Rev

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

Rev 10651 Rev 10669
Line 39... Line 39...
39 
!next
 39 
!next
40 
 
 40 
 
41 
!let compsup=$empty
 41 
!let compsup=$empty
42 
!for cls in $user_participate
 42 
!for cls in $user_participate
43 
 !let tmp=!replace internal / by , in $cls
 43 
 !let tmp=!replace internal / by , in $cls
44 
 !let nb=!itemcnt $tmp
 - 
 
45 
 !for l=2 to $nb
 - 
 
46 
  !let t=!replace internal , by / in $(tmp[1 to $l])
 - 
 
47 
  !let compsup=!append line $t to $compsup
 44 
  !let compsup=!append line $tmp to $compsup
48 
 !next l
 - 
 
49 
!next cls
 45 
!next cls
50 
!let compsup=!sh echo "$compsup" | sort | uniq;
 - 
 
51 
!let compsup=!lines2items $compsup
 - 
 
52 
!let compsup=!nospace $compsup
 - 
 
53 
 
 46 
 
- 
 
 47 
!let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 48 
!!let compsup=!lines2items $compsup
- 
 
 49 
!!let compsup=!nospace $compsup
- 
 
 50 
$U_gotoclass
54 
!read classgraph.phtml participate,$compsup
 51 
!read classgraph.phtml participate\
- 
 
 52 
$compsup