Rev 10747 | Rev 10768 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
10688 | bpr | 1 | !!called by participant.phtml, not by authparticipant.phtml |
5020 | bpr | 2 | !read adm/class/initclass $wims_class |
10747 | bpr | 3 | !reset directlistparticipate directlistsupervisor |
1467 | bpr | 4 | !if $directcnt>0 |
10351 | bpr | 5 | !for i_=1 to $directcnt |
1304 | bpr | 6 | !set cl=!word 1 of $(directlist[$i_]) |
10351 | bpr | 7 | !if /0/ notin $(cl)/ |
1421 | bpr | 8 | !set type_=!defof class_typename in wimshome/log/classes/$cl/.def |
9 | !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_) |
||
1304 | bpr | 10 | !else |
10747 | bpr | 11 | !set directtest=!append item $(directlist[$i_]) to $directtest |
1304 | bpr | 12 | !endif |
10747 | bpr | 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 |
||
18 | !endif |
||
10351 | bpr | 19 | !next |
10747 | bpr | 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 | |||
1741 | bpr | 37 | $name_direct: |
10750 | bpr | 38 | !if / isin $user_participate_ |
39 | !for cls in $user_participate_ |
||
10747 | bpr | 40 | !if $wims_class isin $cls |
41 | !let tmp=!replace internal / by , in $cls |
||
42 | !let compsup=!append line $tmp to $compsup |
||
43 | !endif |
||
10750 | bpr | 44 | !next cls |
45 | !let compsup=!sh echo "$compsup" | sort | uniq; |
||
46 | !read adm/class/graphclass participate\ |
||
10747 | bpr | 47 | $compsup |
10750 | bpr | 48 | !reset compsup |
49 | !goto enter |
||
50 | !endif |
||
10688 | bpr | 51 | !!set directlist2=!items2lines $directlist |
52 | !!set directlist2=!lines2rows $directlist2 |
||
53 | !!set directlist2=!words2items $directlist2 |
||
54 | !!<div class="spacer"> |
||
10750 | bpr | 55 | !read adm/class/graphclass $directlist |
10688 | bpr | 56 | !!</div> |
10651 | bpr | 57 | |
10750 | bpr | 58 | !read tableold.phtml |
59 | :enter |
||
23 | reyssat | 60 | !if $wims_user=supervisor |
9506 | bpr | 61 | $name_text3 |
62 | !else |
||
63 | $name_text1 |
||
23 | reyssat | 64 | !endif |
65 | !else |
||
66 | !if $wims_user=supervisor |
||
9506 | bpr | 67 | $name_text2 |
23 | reyssat | 68 | !else |
9506 | bpr | 69 | $name_noaccount |
23 | reyssat | 70 | !endif |
71 | !endif |