Subversion Repositories wimsdev

Rev

Rev 16126 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!reset compsup1 compsup2 compsup3
!set statut=!line 1 of $wims_read_parm
!set compsup=!line 2 to -1 of $wims_read_parm
!set compsup1=!column 2 to -1 of $compsup
!set col1=!column 1 of $compsup1
!set col1=!listuniq $col1
!set col1cnt=!itemcnt $col1
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def

!!program without icourses
!if $(don[1])=program and $col1cnt=0
  <ul class="wims_subclasses">
  !read adm/class/graphprog $wims_class
  </ul>
!endif
!if $col1cnt=0
  !exit
!endif

!set classrad=$wims_superclass
!while $classrad!=$wims_class
  !set classrad=$classrad/$col1
  !set lcnt=!linecnt $compsup1
  !set compsup1=!column 2 to -1 of $compsup1
  !set col1=!column 1 of $compsup1
  !set col1=!listuniq $col1
  !set col1cnt=!itemcnt $col1
!endwhile

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

!if $col1cnt=0 and $(don[1])!=program
  !exit
!endif

<ul class="wims_subclasses">
!if $(don[1])=program
  !read adm/class/graphprog $classrad
!endif
!if $(don[1])=class
  !read adm/class/graphclsprog $classrad
!endif
!for j1=1 to $col1cnt
  !set cls1=!nospace $classrad/$(col1[$j1])
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
  !reset tmp
  !if $(don[1])=course
    !set tmp=$ class="inline"
  !endif
  <li$tmp><span class="wims_classes_direct_$(don[1])">
  !reset tmp
  !if $cls1 isitemof $(user_$(statut)_)
    !if $statut=supervise
      !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
    !else
      !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
    !endif
  !else
    !if $(don[1])=course
      !href module=adm/class/reguser&class=$cls1&user_auth=$u_&subclass=yes $(don[2]) (inscription)
    !else
      $(don[2])
    !endif
  !endif
  </span>
  !if $(don[1])=program
    <ul>
    !read adm/class/graphprog $cls1
     </ul>
  !endif
  !set compsup2=!select $compsup1 where column 1=$(col1[$j1])
  !set col2=!column 2 of  $compsup2
  !set col2=!listuniq $col2
  !set col2cnt=!itemcnt $col2
  !if $col2cnt>0
    !set compsup2=!column 2 to -1 of $compsup2
    <ul class="wims_subclasses">
    !for j2=1 to $col2cnt
      !set cls2=!nospace $cls1/$(col2[$j2])
      !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
      !reset tmp
      !if $(don[1])=course
        !set tmp=$ class="inline"
      !endif
      <li$tmp><span class="wims_classes_direct_$(don[1])">
      !if $cls2 isitemof $(user_$(statut)_)
        !if $statut=supervise
          !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
        !else
          !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
        !endif
      !else
        !if $(don[1])=course
          !href module=adm/class/reguser&class=$cls2&user_auth=$u_&subclass=yes $(don[2])
        !else
          $(don[2])
        !endif
      !endif
      </span>
      !if $(don[1])=program
        <ul>
        !read adm/class/graphprog $cls2
        </ul>
      !endif
      !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
      !set col3=!column 2 of  $compsup3
      !set col3=!listuniq $col3
      !set col3cnt=!itemcnt $col3
      !if $col3cnt!=0
        <ul>
        !set compsup3=!column 2 to -1 of $compsup3
        !for j3=1 to $col3cnt
          !set cls3=!nospace $cls2/$(col3[$j3])
          !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
          !reset tmp
          !if $(don[1])=course
            !set tmp=$ class="inline"
          !endif
          <li$tmp><span class="wims_classes_direct_$(don[1])">
          !reset tmp
          !if $cls3 isitemof $(user_$(statut)_)
            !if $statut=supervise
              !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
            !else
              !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
            !endif
            ($(don[3]))
          !else
            !if $(don[1])=course
              !href module=adm/class/reguser&class=$cls3&user_auth=$u_&subclass=yes $(don[2]) (inscription)
            !else
              $(don[2])
            !endif
          !endif
          </span>
          !if $(don[1])=program
            <ul>
            !read adm/class/graphprog $cls3
            </ul>
          !endif
          </li>
        !next j3
        </ul>
      !endif col3cnt
      </li>
    !next j2
    </ul>
  !endif col2cnt
  </li>
  !endif
!next j1
</ul>