Rev 10688 | Rev 10750 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10688 | Rev 10747 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !!called by participant.phtml, not by authparticipant.phtml |
1 | !!called by participant.phtml, not by authparticipant.phtml |
2 | !read adm/class/initclass $wims_class |
2 | !read adm/class/initclass $wims_class |
3 | - | ||
- | 3 | !reset directlistparticipate directlistsupervisor |
|
4 | !if $directcnt>0 |
4 | !if $directcnt>0 |
5 | !for i_=1 to $directcnt |
5 | !for i_=1 to $directcnt |
6 | !set cl=!word 1 of $(directlist[$i_]) |
6 | !set cl=!word 1 of $(directlist[$i_]) |
7 | !if /0/ notin $(cl)/ |
7 | !if /0/ notin $(cl)/ |
8 | !set type_=!defof class_typename in wimshome/log/classes/$cl/.def |
8 | !set type_=!defof class_typename in wimshome/log/classes/$cl/.def |
9 | !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_) |
9 | !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_) |
10 | !else |
10 | !else |
11 | !set directtest=!append item $(directlist[$i_]) to $directtest |
11 | !set directtest=!append item $(directlist[$i_]) to $directtest |
- | 12 | !endif |
|
- | 13 | !set tmp=!word 2 of $(directlist[$i_]) |
|
- | 14 | !if $tmp=supervisor |
|
- | 15 | !set directlistsupervisor=!append item $cl to $directlistsupervisor |
|
- | 16 | !else |
|
- | 17 | !set directlistparticipate=!append item $cl to $directlistparticipate |
|
12 | !endif |
18 | !endif |
13 | !next |
19 | !next |
- | 20 | !set user_participate_=!append item $directlistparticipate to $user_participate |
|
- | 21 | !set user_participate_=!listuniq $user_participate_ |
|
- | 22 | !set user_supervise_=!append item $directlistsupervise to $user_supervise |
|
- | 23 | !set user_supervise_=!listuniq $user_supervise_ |
|
- | 24 | ||
- | 25 | !for cls in $user_supervise_ |
|
- | 26 | !if $wims_class isin $cls |
|
- | 27 | !let tmp=!replace internal / by , in $cls |
|
- | 28 | !let compsup=!append line $tmp to $compsup |
|
- | 29 | !endif |
|
- | 30 | !next cls |
|
- | 31 | !let compsup=!sh echo "$compsup" | sort | uniq; |
|
- | 32 | ||
- | 33 | !read adm/class/graphclass supervise\ |
|
- | 34 | $compsup |
|
- | 35 | !reset compsup |
|
- | 36 | ||
14 | $name_direct: |
37 | $name_direct: |
- | 38 | !for cls in $user_participate_ |
|
- | 39 | !if $wims_class isin $cls |
|
- | 40 | !let tmp=!replace internal / by , in $cls |
|
- | 41 | !let compsup=!append line $tmp to $compsup |
|
- | 42 | !endif |
|
- | 43 | !next cls |
|
- | 44 | !let compsup=!sh echo "$compsup" | sort | uniq; |
|
- | 45 | !read adm/class/graphclass participate\ |
|
- | 46 | $compsup |
|
- | 47 | !reset compsup |
|
- | 48 | ||
15 | 49 | ||
16 | !!set directlist2=!items2lines $directlist |
50 | !!set directlist2=!items2lines $directlist |
17 | !!set directlist2=!lines2rows $directlist2 |
51 | !!set directlist2=!lines2rows $directlist2 |
18 | !!set directlist2=!words2items $directlist2 |
52 | !!set directlist2=!words2items $directlist2 |
19 | !!<div class="spacer"> |
53 | !!<div class="spacer"> |
20 | !!!read |
54 | !!!read graphclass $directlist2 |
21 | !!</div> |
55 | !!</div> |
22 | 56 | ||
23 |
|
57 | !!read tableold.phtml |
24 | 58 | ||
25 | !if $wims_user=supervisor |
59 | !if $wims_user=supervisor |
26 | $name_text3 |
60 | $name_text3 |
27 | !else |
61 | !else |
28 | $name_text1 |
62 | $name_text1 |