Subversion Repositories wimsdev

Rev

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