Subversion Repositories wimsdev

Rev

Rev 10651 | Blame | Last modification | View Log | RSS feed

  1. !set statut=!line 1 of $wims_read_parm
  2. !set compsup=!line 2 to -1 of $wims_read_parm
  3. !set compsup1=!column 2 to -1 of $compsup
  4. !set col1=!column 1 of $compsup1
  5. !set col1=!listuniq $col1
  6. !set col1cnt=!itemcnt $col1
  7.   <ul class="wims_subclasses">
  8.  !for j1=1 to $col1cnt
  9.    !set cls1=$wims_superclass/$(col1[$j1])
  10.    !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
  11.    <li><span class="wims_classes_direct_$(don[1])">
  12.      !if $cls1 isitemof $(user_$statut)
  13.        !if $statut=supervise
  14.          !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
  15.        !else
  16.          !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
  17.        !endif
  18.      !else
  19.         $(don[2])
  20.      !endif
  21.      </span>
  22.     !set compsup2=!select $compsup1 where column 1=$(col1[$j1])
  23.     !set col2=!column 2 of  $compsup2
  24.     !set col2=!listuniq $col2
  25.     !set col2cnt=!itemcnt $col2
  26.     !if $col2cnt>0
  27.       !set compsup2=!column 2 to -1 of $compsup2
  28.       <ul class="wims_subclasses">
  29.       !for j2=1 to $col2cnt
  30.         !set cls2=!nospace $cls1/$(col2[$j2])
  31.         !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
  32.          <li><span class="wims_classes_direct_$(don[1])">
  33.          !if $cls2 isitemof $(user_$statut)
  34.            !if $statut=supervise
  35.              !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
  36.            !else
  37.              !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
  38.            !endif
  39.          !else
  40.            $(don[2])
  41.          !endif
  42.          </span>
  43.         !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
  44.         !set col3=!column 2 of  $compsup3
  45.         !set col3=!listuniq $col3
  46.         !set col3cnt=!itemcnt $col3
  47.         !if $col3cnt!=0
  48.           <ul>
  49.           !set compsup3=!column 2 to -1 of $compsup3
  50.           !for j3=1 to $col3cnt
  51.             !set cls3=!nospace $cls2/$(col3[$j3])
  52.             !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
  53.              <li><span class="wims_classes_direct_$(don[1])">
  54.               !if $cls3 isitemof $(user_$statut)
  55.                 !if $statut=supervise
  56.                   !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
  57.                 !else
  58.                   !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
  59.                 !endif
  60.                 ($(don[3]))
  61.               !else
  62.                 $(don[2])
  63.               !endif
  64.               </span>
  65.              </li>
  66.           !next j3
  67.           </ul>
  68.         !endif col3cnt
  69.       </li>
  70.      !next j2
  71.     </ul>
  72.    !endif col2cnt
  73.    </li>
  74.  !next j1
  75.  </ul>
  76.