Subversion Repositories wimsdev

Rev

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