Rev 10852 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
10747 | bpr | 1 | !set prog=$wims_read_parm |
2 | !set courses=!record 0 of wimshome/log/classes/$prog/courses |
||
3 | !set courses=!column 1 of $courses |
||
4 | !if $courses=$empty |
||
5 | !exit |
||
6 | !endif |
||
7 | !reset courses_right |
||
8 | |||
9 | !for cours in $courses |
||
10 | !if $wims_superclass/$cours isitemof $(user_$(statut)_) or $wims_realuser=supervisor |
||
11 | !set courses_right=!append item $cours to $courses_right |
||
12555 | bpr | 12 | !endif |
13 | !next |
||
10747 | bpr | 14 | !if $courses_right=$empty |
12555 | bpr | 15 | !exit |
10747 | bpr | 16 | !endif |
17 | !for cours in $courses_right |
||
12555 | bpr | 18 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_superclass/$cours/.def |
19 | <li class="inline"><span class="wims_classes_direct_course"> |
||
20 | !if $statut=supervise |
||
21 | !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$cours&auth_user=supervisor $(don[2]) |
||
22 | !else |
||
23 | !href module=adm/class/classes&type=authparticipant&class=$wims_superclass/$cours&auth_user=$u_ $(don[2]) |
||
24 | !endif |
||
25 | </span></li> |
||
10747 | bpr | 26 | !next |