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 |