Subversion Repositories wimsdev

Rev

Rev 10649 | Rev 10798 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!!make the list of all subclasses classified by their type in a portal
  2. !!! for supervisor
  3. !!! at the end something on the test zone
  4.  
  5. !set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
  6. !set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  7. !set classes=!record 0 of wimshome/log/classes/$wims_class/classes
  8. !set classcnt=!linecnt $classes
  9. !set progs=!record 0 of wimshome/log/classes/$wims_class/programs
  10. !set progcnt=!linecnt $progs
  11. !!if $classcnt+$progcnt>=1
  12.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  13.  !set coursecnt=!linecnt $courses
  14. !!endif
  15. !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
  16. !set icoursecnt=!linecnt $icourses
  17. !!if $[$classcnt+$progcnt+$coursecnt+$icourses]=0
  18.   !goto nosubclass
  19. !!endif
  20.  <ul class="wims_nopuce">
  21. !if $classcnt>0
  22.  <li>
  23.  $(CL_Names[2]):
  24.   <ul class="inline">
  25.  !for i=1 to $classcnt
  26.   !set l=!line $i of $classes
  27.   !distribute items $l into c_,s_,t_
  28.   <li>
  29.   <div class="wims_classes_direct_class">
  30.    !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  31.      !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  32.    !else
  33.      !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  34.       $t_
  35.    !endif
  36.   </div>
  37.   </li>
  38.  !next i
  39.  </ul></li>
  40. !endif
  41. !if $progcnt>0
  42.   <li>
  43.  $(CL_Names[3]):
  44.  <ul class="inline">
  45.  !for i=1 to $progcnt
  46.   !set l=!line $i of $progs
  47.   !distribute items $l into c_,s_,t_
  48.   <li>
  49.   <div class="wims_classes_direct_program">
  50.    !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  51.      !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  52.    !else
  53.      !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  54.      $t_
  55.    !endif
  56.   </div>
  57.   </li>
  58.  !next i
  59.  </ul></li>
  60. !endif
  61.  
  62. !!if $classcnt+$progcnt>=1
  63.  !if $coursecnt>0
  64.   <li>
  65.   $(CL_Names[4]):
  66.   <ul class="inline">
  67.   !for i=1 to $coursecnt
  68.    !set l=!line $i of $courses
  69.    !distribute items $l into c_,s_,t_
  70.    <li>
  71.    <div class="wims_classes_direct_course">
  72.    !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  73.      !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  74.    !else
  75.     !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  76.     $t_
  77.    !endif
  78.    </div>
  79.    </li>
  80.   !next i
  81.   </ul></li>
  82.  !endif
  83.  !if $icoursecnt>0
  84.   <li>
  85.   $(CL_Names[5]):
  86.   <ul class="inline">
  87.   !for i=1 to $icoursecnt
  88.    !set l=!line $i of $icourses
  89.    !distribute items $l into c_,s_,t_
  90.    <li>
  91.    <div class="wims_classes_direct_course">
  92.    !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  93.      !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  94.    !else
  95.      !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  96.      $t_
  97.    !endif
  98.    </div>
  99.    </li>
  100.   !next i
  101.   </ul></li>
  102. !endif
  103. </ul>
  104. :nosubclass
  105. !if $class_typename=program
  106.  !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
  107.  !if $test=yes
  108.   <div>
  109.   !set wims_ref_class=wims_button
  110.   !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
  111.    $
  112.   !set wims_ref_class=wims_button
  113.   !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $wims_name_import
  114.   ($CL_Test)
  115.   !set wims_menu_items=!append line testgo,1,module=adm/class/classes&type=authsupervisor&class=$wims_class/0 \
  116.   import,1,adm/class/config&job=neighbor&job2=import&nei=$wims_class/0\
  117.   to $wims_menu_items
  118.   </div>
  119.  !endif
  120. !!endif
  121.