Subversion Repositories wimsdev

Rev

Rev 16131 | Rev 16778 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
16131 guerimand 1
!! file to add link 
2
!!   - from class level to all program in portal
3
!!   - from course level to the program of the course
4
 
5
!set class=$wims_read_parm
6
!if $class_typename=course
7
  !let data=!replace internal / by , in $class
8
  !let courses=$(data[2])/$(data[3])/$(data[4])
9
  !let list_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
16190 guerimand 10
  !let statut=supervise
16131 guerimand 11
!else
12
  !set courses=!record 0 of wimshome/log/classes/$class/courses
13
  !set courses=!column 1 of $courses
14
!endif
15
!if $courses=$empty
16
 !exit
17
!endif
18
!set nbcourses=!itemcnt $courses
19
 
20
!reset courses_right
21
!for k=1 to $nbcourses
22
  !let data=$(courses[$k])
23
  !let data=!replace internal / by , in $data
24
  !if $wims_superclass/$(data[1])/$(data[3]) isitemof $list_supervise,$(user_$(statut)_) or $wims_realuser=supervisor
25
    !set courses_right=!append item $(data[1])/$(data[3]) to $courses_right
26
  !endif
27
!next k
28
!if $courses_right=$empty
29
  !exit
30
!endif
31
 
32
!if $class_typename=course
33
  <div>$U_gotoclass31
34
  <ul class="wims_subclasses">
35
!endif
36
!for cours in $courses_right
37
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_superclass/$cours/.def
38
  <li class="inline"><span class="wims_classes_direct_program">
39
  !if $statut=supervise
40
    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$cours&auth_user=supervisor $(don[2])
41
  !else
42
    !href module=adm/class/classes&type=authparticipant&class=$wims_superclass/$cours&auth_user=$u_ $(don[2])
43
  !endif
44
  </span></li>
45
!next cours
46
!if $class_typename=course
47
  </ul></div>
48
  !read ./classlegend.phtml
49
!endif