Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
10651 bpr 1
!! make the list of all classes and programms which are supervised
2
!! with the courses inside with incrementation.
10747 bpr 3
!! no test zone. No intercourses ?
10651 bpr 4
!! subclass1 is something as the variable $wims_participate (only courses ? )+ optional courses
5
!! eventually
6
!! subclass2 is the complement
7
 
8
!if $auth_method isitemof $auth_method_list and $wims_user!=supervisor
12821 bpr 9
  !set u_=$wims_external_auth
10651 bpr 10
!else
12821 bpr 11
  !set u_=$wims_realuser
12
  !default u_=$wims_user
10651 bpr 13
!endif
1429 bpr 14
!default CL_Name=$CL_Names
10762 bpr 15
!!!if $user_participate$user_supervise!=$empty
16
!!<p>
17
!!  !if $supervisable!=yes
10770 bpr 18
!!    $U_gotoclass
10762 bpr 19
!!  !else
10770 bpr 20
!!    $U_gotoclass3
10762 bpr 21
!!  !endif
22
!!</p>
23
!!!endif
5894 bpr 24
 
10651 bpr 25
!if $supervisable=yes or ($wims_user=supervisor and $wims_realuser=supervisor)
26
  !read subclasses_supervisor.phtml
27
  !if ($wims_user=supervisor or $wims_class=$wims_superclass)
12821 bpr 28
    !!FIXME desactivate the possibility for teachers to register without the administrator in a portal
10674 bpr 29
    !if $class_type iswordof 2 4
12821 bpr 30
      !!href module=adm/class/classes&type=supervisor&superclass=$wims_class $U_supervise
10674 bpr 31
    !!else
10651 bpr 32
      !if $wims_user!=supervisor or $wims_realuser!=supervisor
13169 bpr 33
        <div class="wims_msg info">
10651 bpr 34
        $name_gotosupervise
13169 bpr 35
        </div>
10651 bpr 36
      !endif
37
    !endif
38
  !endif
5110 bpr 39
!else
12821 bpr 40
  !if $supervisable!=yes
41
    !read subclasses_user.phtml
42
    !read classlegend.phtml
43
  !endif
5110 bpr 44
!endif
10762 bpr 45
!!exit
46
!goto end1
10651 bpr 47
 
5110 bpr 48
  <ul class="wims_subclasses"><!--wims_subclasses-->
49
!reset alreadyseen
50
!if $wims_class!=$wims_superclass
12821 bpr 51
  !set subclass1=$wims_class,$subclass1
5110 bpr 52
!endif
53
!for c in $subclass1
12821 bpr 54
  !set name=!defof class_description in wimshome/log/classes/$c/.def
55
  !set type=!defof class_type in wimshome/log/classes/$c/.def
56
  !set type_name=!defof class_typename in wimshome/log/classes/$c/.def
57
  !read adm/class/initclass $c,auth
5110 bpr 58
 
12821 bpr 59
  !set t_=participant
60
  !set type_class=!defof class_type in wimshome/log/classes/$class/.def
61
  !if $c notitemof $alreadyseen
62
    <li>  <span class="wims_classes_direct_$type_name">
63
    !if $c!=$wims_class
5110 bpr 64
      !href module=adm/class/classes&type=authparticipant&class=$c&auth_user=$u_ $name
12821 bpr 65
    !else
66
      $name
67
    !endif
68
    ($(CL_Name[2]))</span>
69
    !set alreadyseen=!append item $c to $alreadyseen
70
    !set sub_=!record 0 of wimshome/log/classes/$c/courses
71
    !set sub_cnt=!linecnt $sub_
72
    !if $sub_cnt>0
5110 bpr 73
       <ul><!--2-->
1429 bpr 74
      !for k_ =1 to $sub_cnt
12821 bpr 75
        !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
76
        !set split=!replace internal / by , in $(sub_[$k_;1])
77
        !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
78
        !set name_c=!defof class_description in wimshome/log/classes/$parent_c/.def
79
        !if  optional iswordof $progstyle
80
          !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
81
        !endif
82
        !if $wims_superclass/$(sub_[$k_;1]) notitemof $alreadyseen and mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit or $wims_user=supervisor
83
          !set alreadyseen=!append item $wims_superclass/$(sub_[$k_;1]) to $alreadyseen
84
          <li>
85
          <span class="wims_classes_direct_course">
86
          !href module=adm/class/classes&type=auth$t_&class=$wims_superclass/$(sub_[$k_;1])&auth_user=$u_ $(sub_[$k_;3])
87
          ($(CL_Name[4]))
88
          </span>
89
           </li>
90
        !endif
3605 bpr 91
        </li>
1429 bpr 92
      !next k_
12821 bpr 93
      </ul><!end--2-->
94
    !endif sub_cnt>0
95
    !if $c=$wims_class
13169 bpr 96
      !goto end
12821 bpr 97
    !endif
98
  !endif $c notitemof $alreadyseen
5123 bpr 99
!next
100
 
5110 bpr 101
:end
5111 bpr 102
</ul>
10651 bpr 103
:end1
5110 bpr 104
!if $alreadyseen!=$empty
105
  !set subclass2=!listcomplement $alreadyseen in $subclass2
106
  !set subclasscnt2=!itemcnt $subclass2
107
!endif
4588 czzmrn 108
!if $class_mixed_external_auth!=2 and $subclasscnt2>0
10770 bpr 109
 
13063 bpr 110
   !if $insc!=yes
12821 bpr 111
    !!not a program
112
    !if $class_type!=3
113
      !href module=home&cmd=new&insc=yes $U_inscription2
114
    !endif
115
  !else
116
    <div>
117
      $U_inscription1
118
      <ul class="wims_subclasses">
119
    !for c in $subclass2
120
      !set name=!defof class_description in wimshome/log/classes/$c/.def
13064 bpr 121
      !set name_parent=!defof class_parent in wimshome/log/classes/$c/.def
122
      !set name_parent=!defof class_description in wimshome/log/classes/$name_parent/.def
12821 bpr 123
      !set type=!defof class_typename in wimshome/log/classes/$c/.def
124
      <li><span class="wims_classes_direct_$type">
125
      !! wrong variable?
126
      !!   !href module=adm/class/reguser&class=$c&auth_user=$u_ $name
127
      !href module=adm/class/reguser&class=$c&user_auth=$u_&subclass=yes $name
13064 bpr 128
      ($name_parent)
12821 bpr 129
      </span></li>
130
    !next c
131
    </ul>
132
    </div>
133
    !set wims_ref_class=wims_button wims_secondary_button
134
    !href module=home&cmd=new $wims_name_back2
10770 bpr 135
  !endif
33 reyssat 136
!endif
5843 bpr 137
!if $supervisable=yes and ($wims_user=supervisor or $wims_class=$wims_superclass) and $class_type notwordof 3 4
12821 bpr 138
  <p>
13169 bpr 139
  !set wims_ref_class=wims_button
140
  !href module=adm/class/regclass $wims_name_classcreate
141
  !set wims_ref_class=wims_button
142
  !href module=adm/class/regclass&job=cloneexemple $wims_name_cloneclass
12821 bpr 143
  </p>
5020 bpr 144
!endif