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 |
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 |
51 | !read classgraph.phtml participate\ |
- | 52 | $compsup |