Subversion Repositories wimsdev

Rev

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

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