Subversion Repositories wimsdev

Rev

Rev 12639 | Rev 13063 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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