Subversion Repositories wimsdev

Rev

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

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