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