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