Subversion Repositories wimsdev

Rev

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