Subversion Repositories wimsdev

Rev

Rev 13579 | 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.  
  21. !!! not useful now, but as I am not quite sure, leave it !!!
  22.  <ul class="wims_nopuce">
  23. !if $classcnt>0
  24.   <li>
  25.   $(CL_Names[2]):
  26.    <ul class="inline">
  27.   !for i=1 to $classcnt
  28.     !set l=!line $i of $classes
  29.     !distribute items $l into c_,s_,t_
  30.     <li>
  31.     <div class="wims_classes_direct_class">
  32.     !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  33.       !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  34.     !else
  35.       !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  36.       $t_
  37.     !endif
  38.     </div>
  39.     </li>
  40.   !next i
  41.   </ul></li>
  42. !endif
  43. !if $progcnt>0
  44.    <li>
  45.   $(CL_Names[3]):
  46.   <ul class="inline">
  47.   !for i=1 to $progcnt
  48.     !set l=!line $i of $progs
  49.     !distribute items $l into c_,s_,t_
  50.     <li>
  51.     <div class="wims_classes_direct_program">
  52.     !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  53.       !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  54.     !else
  55.       !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  56.       $t_
  57.     !endif
  58.     </div>
  59.     </li>
  60.   !next i
  61.   </ul></li>
  62. !endif
  63.  
  64. !!if $classcnt+$progcnt>=1
  65. !if $coursecnt>0
  66.   <li>
  67.   $(CL_Names[4]):
  68.   <ul class="inline">
  69.   !for i=1 to $coursecnt
  70.     !set l=!line $i of $courses
  71.     !distribute items $l into c_,s_,t_
  72.     <li>
  73.     <div class="wims_classes_direct_course">
  74.     !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  75.       !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  76.     !else
  77.       !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  78.       $t_
  79.     !endif
  80.     </div>
  81.     </li>
  82.   !next i
  83.   </ul></li>
  84. !endif
  85. !if $icoursecnt>0
  86.   <li>
  87.   $(CL_Names[5]):
  88.   <ul class="inline">
  89.   !for i=1 to $icoursecnt
  90.     !set l=!line $i of $icourses
  91.     !distribute items $l into c_,s_,t_
  92.     <li>
  93.     <div class="wims_classes_direct_course">
  94.     !if $wims_superclass/$c_ isitemof $user_supervise or $wims_realuser=supervisor
  95.       !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
  96.     !else
  97.       !!!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  98.       $t_
  99.     !endif
  100.     </div>
  101.     </li>
  102.   !next i
  103.   </ul></li>
  104. !endif
  105. </ul>
  106. :nosubclass
  107. !if $class_typename=program
  108.   !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
  109.   !if $test=yes
  110.     <ul class="wims_subclasses"><li>
  111.     <span class="wims_classes_direct_testclass">
  112.     !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
  113.     </span>
  114.     </li>
  115.     </ul>
  116.     !set wims_ref_class=wims_button
  117.     !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $wims_name_import
  118.     $name_importfromtest
  119.     !set wims_menu_items=!append line testgo,1,module=adm/class/classes&type=authsupervisor&class=$wims_class/0 \
  120.   import,1,adm/class/config&job=neighbor&job2=import&nei=$wims_class/0\
  121.   to $wims_menu_items
  122.     !exit
  123.   !endif
  124. !endif
  125.  
  126.