Rev 10747 | Rev 10768 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10747 | Rev 10750 | ||
---|---|---|---|
Line 33... | Line 33... | ||
33 | !read adm/class/graphclass supervise\ |
33 | !read adm/class/graphclass supervise\ |
34 | $compsup |
34 | $compsup |
35 | !reset compsup |
35 | !reset compsup |
36 | 36 | ||
37 | $name_direct: |
37 | $name_direct: |
- | 38 | !if / isin $user_participate_ |
|
38 | !for cls in $user_participate_ |
39 | !for cls in $user_participate_ |
39 | !if $wims_class isin $cls |
40 | !if $wims_class isin $cls |
40 | !let tmp=!replace internal / by , in $cls |
41 | !let tmp=!replace internal / by , in $cls |
41 | !let compsup=!append line $tmp to $compsup |
42 | !let compsup=!append line $tmp to $compsup |
42 | !endif |
43 | !endif |
43 | !next cls |
44 | !next cls |
44 | !let compsup=!sh echo "$compsup" | sort | uniq; |
45 | !let compsup=!sh echo "$compsup" | sort | uniq; |
45 | !read adm/class/graphclass participate\ |
46 | !read adm/class/graphclass participate\ |
46 | $compsup |
47 | $compsup |
47 | !reset compsup |
48 | !reset compsup |
48 | 49 | !goto enter |
|
49 | 50 | !endif |
|
50 | !!set directlist2=!items2lines $directlist |
51 | !!set directlist2=!items2lines $directlist |
51 | !!set directlist2=!lines2rows $directlist2 |
52 | !!set directlist2=!lines2rows $directlist2 |
52 | !!set directlist2=!words2items $directlist2 |
53 | !!set directlist2=!words2items $directlist2 |
53 | !!<div class="spacer"> |
54 | !!<div class="spacer"> |
54 |
|
55 | !read adm/class/graphclass $directlist |
55 | !!</div> |
56 | !!</div> |
56 | 57 | ||
57 |
|
58 | !read tableold.phtml |
58 | 59 | :enter |
|
59 | !if $wims_user=supervisor |
60 | !if $wims_user=supervisor |
60 | $name_text3 |
61 | $name_text3 |
61 | !else |
62 | !else |
62 | $name_text1 |
63 | $name_text1 |
63 | !endif |
64 | !endif |