!! make the
list of all classes and programms which are supervised
!! with the courses inside with incrementation.
!! no test zone. No intercourses ?
!! subclass1 is something as the variable $wims_participate (only courses ? )+ optional courses
!! eventually
!! subclass2 is the complement
!if $auth_method isitemof $auth_method_list and $wims_user!=supervisor
!set u_=$wims_external_auth
!else
!set u_=$wims_realuser
!default u_=$wims_user
!endif
!default CL_Name=$CL_Names
!!!if $user_participate$user_supervise!=$empty
!!<p>
!! !if $supervisable!=yes
!! $U_gotoclass
!! !else
!! $U_gotoclass3
!! !endif
!!</p>
!!!endif
!if $supervisable=yes or ($wims_user=supervisor and ($wims_realuser=supervisor or $wims_realuser=SUPERVISOR))
!read subclasses_supervisor.phtml
!if ($wims_user=supervisor or $wims_class=$wims_superclass)
!!FIXME desactivate the possibility for teachers to register without the administrator in a portal
!if $class_type iswordof 2 4
!!href module=adm/class/classes&type=supervisor&superclass=$wims_class $U_supervise
!!else
!if $wims_user!=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=SUPERVISOR)
<div class="wims_msg info">
$name_gotosupervise
</div>
!endif
!endif
!endif
!read classlegend.phtml
!else
!if $supervisable!=yes
!read subclasses_user.phtml
!read classlegend.phtml
!endif
!endif
!goto end1
<ul class="wims_subclasses"><!--wims_subclasses-->
!if $wims_class!=$wims_superclass
!set subclass1=$wims_class,$subclass1
!endif
!for c in $subclass1
!set name
=!defof class_description in wimshome
/log/classes
/$c/.def
!set type
=!defof class_type in wimshome
/log/classes
/$c/.def
!set type_name
=!defof class_typename in wimshome
/log/classes
/$c/.def
!read adm/class/initclass $c,auth
!set t_=participant
!set type_class
=!defof class_type in wimshome
/log/classes
/$class/.def
!if $c notitemof $alreadyseen
<li> <span class="wims_classes_direct_$type_name">
!if $c!=$wims_class
!href module=adm/class/classes&type=authparticipant&class=$c&auth_user=$u_ $name
!else
$name
!endif
($(CL_Name[2]))</span>
!set alreadyseen=!append item $c to $alreadyseen
!set sub_
=!record
0 of wimshome
/log/classes
/$c/courses
!set sub_cnt=!linecnt $sub_
!if $sub_cnt>0
<ul><!--2-->
!for k_ =1 to $sub_cnt
!set parent_c
=!defof class_parent in wimshome
/log/classes
/$wims_superclass/$
(sub_
[$k_;1])/.def
!set
split=!replace internal
/ by
, in $
(sub_
[$k_;1])
!set progstyle
=!defof class_progstyle in wimshome
/log/classes
/$wims_superclass/$
(split[1])/$
(split[3])/.def
!set name_c
=!defof class_description in wimshome
/log/classes
/$parent_c/.def
!if optional iswordof $progstyle
!set inscrit
=!defof user_class in wimshome
/log/classes
/$wims_superclass/$
(sub_
[$k_;1])/.users
/$wims_user
!endif
!if $wims_superclass/$
(sub_
[$k_;1]) notitemof
$alreadyseen and mandatory iswordof
$progstyle or $
(split[1])/$
(split[2]) iswordof
$inscrit or
$wims_user=supervisor
!set alreadyseen=!append item $wims_superclass/$(sub_[$k_;1]) to $alreadyseen
<li>
<span class="wims_classes_direct_course">
!href module=adm/class/classes&type=auth$t_&class=$wims_superclass/$(sub_[$k_;1])&auth_user=$u_ $(sub_[$k_;3])
($(CL_Name[4]))
</span>
</li>
!endif
</li>
</ul><!end--2-->
!endif sub_cnt>0
!if $c=$wims_class
!endif
!endif $c notitemof $alreadyseen
</ul>
:end1
!if $alreadyseen!=$empty
!set subclass2=!listcomplement $alreadyseen in $subclass2
!set subclasscnt2=!itemcnt $subclass2
!endif
!if $class_mixed_external_auth!=2 and $subclasscnt2>0
!if $insc!=yes
!!not a program
!if $class_type!=3
!href module=home&cmd=new&insc=yes $U_inscription2
!endif
!else
<div>
$U_inscription1
<ul class="wims_subclasses">
!for c in $subclass2
!set name
=!defof class_description in wimshome
/log/classes
/$c/.def
!set name_parent
=!defof class_parent in wimshome
/log/classes
/$c/.def
!set name_parent
=!defof class_description in wimshome
/log/classes
/$name_parent/.def
!set type
=!defof class_typename in wimshome
/log/classes
/$c/.def
<li><span class="wims_classes_direct_$type">
!! wrong variable?
!! !href module=adm/class/reguser&class=$c&auth_user=$u_ $name
!href module=adm/class/reguser&class=$c&user_auth=$u_&subclass=yes $name
($name_parent)
</span></li>
</ul>
</div>
!set wims_ref_class=wims_button wims_secondary_button
!href module=home&cmd=new $wims_name_back2
!endif
!endif
!if $supervisable=yes and ($wims_user=supervisor or $wims_class=$wims_superclass) and $class_type notwordof 3 4
!set regclass=!defof user_mkclass in $userdef
!if $regclass!=no
<p>
!set wims_ref_class=wims_button
!href module=adm/class/regclass $wims_name_classcreate
!set wims_ref_class=wims_button
!href module=adm/class/regclass&job=cloneexemple $wims_name_cloneclass
</p>
!endif
!endif