Subversion Repositories wimsdev

Rev

Rev 16190 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16190 Rev 16778
Line 1... Line 1...
1
!! file to add link 
1
!! file to add link 
2
!!   - from class level to all program in portal
2
!!   - from class level to all program in portal
3
!!   - from course level to the program of the course
3
!!   - from course level to the program of the course
4
 
4
 
5
!set class=$wims_read_parm
5
!set class=$wims_read_parm
-
 
6
!! --------- not use in zonetest of program
-
 
7
!set test=!replace internal / by , in $class
-
 
8
!if $(test[-1])=0
-
 
9
  !exit
-
 
10
!endif
6
!if $class_typename=course
11
!if $class_typename=course
7
  !let data=!replace internal / by , in $class
12
  !let data=!replace internal / by , in $class
8
  !let courses=$(data[2])/$(data[3])/$(data[4])
13
  !let courses=$(data[2])/$(data[3])/$(data[4])
9
  !let list_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
14
  !let list_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
10
  !let statut=supervise
15
  !let statut=supervise