Subversion Repositories wimsdev

!! file to add link 

!!   - from class level to all program in portal

!!   - from course level to the program of the course

!set class=$wims_read_parm

!! --------- not use in zonetest of program

!set test=!replace internal / by , in $class

!if $(test[-1])=0

  !exit

!endif

!if $class_typename=course

  !let data=!replace internal / by , in $class

  !let courses=$(data[2])/$(data[3])/$(data[4])

  !let list_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser

  !let statut=supervise

!else

  !set courses=!record 0 of wimshome/log/classes/$class/courses

  !set courses=!column 1 of $courses

!endif

!if $courses=$empty

 !exit

!endif

!set nbcourses=!itemcnt $courses

!reset courses_right

!for k=1 to $nbcourses

  !let data=$(courses[$k])

  !let data=!replace internal / by , in $data

  !if $wims_superclass/$(data[1])/$(data[3]) isitemof $list_supervise,$(user_$(statut)_) or $wims_realuser=supervisor

    !set courses_right=!append item $(data[1])/$(data[3]) to $courses_right

  !endif

!next k

!if $courses_right=$empty

  !exit

!endif

!if $class_typename=course

  <div>$U_gotoclass31

  <ul class="wims_subclasses">

!endif

!for cours in $courses_right

  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_superclass/$cours/.def

  <li class="inline"><span class="wims_classes_direct_program">

  !if $statut=supervise

    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$cours&auth_user=supervisor $(don[2])

  !else

    !href module=adm/class/classes&type=authparticipant&class=$wims_superclass/$cours&auth_user=$u_ $(don[2])

  !endif

  </span></li>

!next cours

!if $class_typename=course

  </ul></div>

  !read ./classlegend.phtml

!endif