!! supervisor page definition.
!nocache
!if $module!=home
!endif
!set home_theme=yes
!readproc tabletheme
!read classlogo.phtml
!if $class_logo!=
<table border="0" cellspacing="0" cellpadding="8" align="$class_logoside">
<tr><td align="center" valign="middle">
<img src="$class_logo" border="0" alt="logo" align="left">
</td></tr></table>
<center>
<br> <br>
!endif
<b><font size="+1">$wims_classname, $wims_institutionname</font></b>
<br><small>($SU_log)</small></center>
<br clear="all"> <br></div><div class="wimsbody">
!if _tool isin $wims_session
!read ./tools.phtml
!endif
!if $class_type isin 3
$SU_greet.
!read Subclasses1.phtml
!if $class_typename=level
<p><center>
!href module=adm/class/gateway $wims_name_SU_Gateway
</center> <p>
!else
!goto nocheck
!endif
!endif
!if $class_type notin 13
$SU_greet
<small>$SU_exp1
!set d_=!char 7,8 of $class_expiration
!set m_=!char 5,6 of $class_expiration
!set y_=!char 1 to 4 of $class_expiration
!href module=adm/class/config $c_date_out
$SU_exp2.
!else
$SU_greet.
!endif
!href target=wims_help module=help/main&chapter=3&open=3_sheet#sheet [$wims_name_help]
</small>
<br>
!if $numpartconnected>0
$SU_numpartconnected
!else
$SU_nopartconnected
!endif
!if $quota_free<2
!if $quota_free<0
<p>
$wims_name_exceeded
<p>
!href cmd=close&module=home&lang=$lang $wims_name_visitor
<p>
!else
<br><b>$wims_name_warning</b>! $wims_name_reaching_limit
!endif
!endif
:nocheck
!if & isin $newmsgcnt or $newmsgcnt>0
<br>
!href module=adm/forum/mboard $U_newmsg
!endif
<p>
!if $class_type=4
<center>
!href module=adm/class/gateway $wims_name_SU_Gateway
</center> <p>
!endif
!if $class_type=2
!if $subclasscnt>0
$table_header
$table_hdtr<th>$wims_name_number</th><th>$wims_name_title</th><th>$wims_name_nameteacher</th>
!for i=1 to $subclasscnt
!let f_class
=!record
$i of wimshome
/log/classes
/$wims_class/.subclasses
!let f_aff=!item 4 of $f_class
!let f_name=!item 1 of $f_class
$table_tr
<td align="center">$ADD_class $i</td>
<td>
!href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
</td>
<td align="center">
!item 9 of $f_class
</td>
</tr>
$table_end
<p><p>
!endif
<center>
!href module=adm/class/regclass $ADD_3 $ADD_class
</center>
!endif
!set test=!replace / by , in $wims_class
!if $(test[-1])=0
!set test_up=!replace internal /0- by in $wims_class-
!href module=adm/class/classes&type=authsupervisor&class=$test_up $SU_Bprogram
!endif
!set ac_0=<small>$(wims_name_shstatus[1])</small>
!set ac_1=$(wims_name_shstatus[2])
!set ac_2=$(wims_name_shstatus[3])
!set ac_3=$(wims_name_shstatus[4])
!set docpubliccnt
=!recordcnt wimshome
/log/classes
/$wims_class/doc
/.docindex
!if $sheetcnt+$examcnt+$doccnt+$docpubliccnt+$votecnt+$subclasscnt<=0
$SU_nosheet
!else
$table_header
<caption>$SU_shlist
[
!href module=adm/class/sequence $wims_name_reorder
]
</caption>
$table_hdtr<th>$wims_name_number<th>$wims_name_title<th>$wims_name_Status
!for i=1 to $subclasscnt
!let f_class
=!record
$i of wimshome
/log/classes
/$wims_class/.subclasses
!let f_aff=!item 4 of $f_class
!let f_name=!item 1 of $f_class
$table_tr
<td align="center">$ADD_class $i</td>
<td>
!href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
</td>
<td align="center">-</td>
</tr>
!for i=1 to $doccnt
!set sh
=!record
$i of wimshome
/log/classes
/$wims_class/doc
/.index
!distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
$table_tr<td align="center">$wims_name_doc</td>
<td>
!href module=adm/doc&job=read&doc=$s_&block=main $t_
</td>
<td align="center"><small>
!item $[$o_ +1] of $wims_name_Docstatus
</small></td>
!for i=1 to $docpubliccnt
!set sh
=!record
$i of wimshome
/log/classes
/$wims_class/doc
/.docindex
!distribute lines $sh into s_,t_,ti,d_,o_
$table_tr<td align="center">$wims_name_doc</td>
<td>
!href module=$s_&$t_ $ti
</td>
<td align="center"><small>
!item $[$o_ +1] of $wims_name_status
[
!href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
]
</small></td>
!for i=1 to $sheetcnt
!set sh
=!record
$i of wimshome
/log/classes
/$wims_class/sheets
/.sheets
!distribute lines $sh into ac,t_,ti
$table_tr<td align="center">$wims_name_Sheet $i</td>
<td>
!href module=adm/class/sheet&sheet=$i $ti
</td>
<td align="center">$(ac_$[$ac])</td>
!for i=1 to $examcnt
!set sh
=!record
$i of wimshome
/log/classes
/$wims_class/exams
/.exams
!distribute lines $sh into ac,t_,d_,ti
$table_tr<td align="center">$wims_name_Examen $i</td>
<td>
!href module=adm/class/exam&exam=$i $ti
</td>
<td align="center">$(ac_$[$ac])</td>
!for i=1 to $votecnt
!set sh
=!record
$i of wimshome
/log/classes
/$wims_class/vote
/.votes
!distribute lines $sh into st_,ti_,op_,re_
$table_tr<td align="center">$wims_name_Vote</td>
<td>
!href module=adm/vote&job=read&vote=$i $ti_
</td>
<td align="center">$(ac_$[$st_])</td>
$table_end <p>
!endif
$ADD_1
!href module=adm/doc&job=creat $ADD_doc
!if $wims_supertype!=4 or $class_typename!=class
,
!href module=adm/class/sheet&sheet=$[$sheetcnt+1] $ADD_sheet
,
!href module=adm/class/exam&exam=$[$examcnt+1] $ADD_exam
,
!href module=adm/createxo $ADD_exo
!endif
!if $class_type=2
,
!href module=adm/class/regclass $ADD_class
!endif
$wims_name_or
!href module=adm/vote&job=creat $ADD_vote
.
<p>
!read ./form.phtml
!read ./result.phtml
!if $wims_supertype!=4 or $class_typename!=class
<p>
!href module=classes/$lang&special_parm=.nocache. $wims_name_classexo
.
!href module=adm/modtool Modtool
.
!endif
<p><center>
<table width="99%" border="0" cellspacing="0" cellpadding="3" bgcolor="$wims_ref_bgcolor">
<tr><td align="left" width="33%">
!if $class_typename notsametext program
!href module=adm/class/userlist $wims_name_SE_list
!endif
<br>
!href module=adm/class/classes&type=supervisor $wims_name_U_oclass
<br>
!href cmd=close&module=home&lang=$lang $wims_name_visitor
</td><td align="center" width="33%">
!href style=student $wims_name_n_participant
<br>
!href module=adm/class/config $wims_name_SE_config
<br>
!href module=adm/class/config&job=security $wims_name_SE_secu
!!href module=adm/light&phtml=useropts.phtml.$lang $wims_name_pref
</td><td align="right" width="33%">
!href target=wims_help module=help/main&chapter=3 $wims_name_help
<br>
!href module=adm/forum/mboard $wims_name_forum
<br>
!if $exist_cdt=yes
!href module=adm/class/cdt $wims_name_cdt
/
!endif
!href module=adm/class/motd $wims_name_SE_mod
</td></tr></table></center>
<p align="right"><small>
WIMS-$wims_version@$httpd_HTTP_HOST. $E_manager
!mailurl $wims_site_manager\
WIMS
. <br>
</small>
</DIV></BODY>
</HTML>