!set form_titlename=$wims_name_title
!set form_caption=$name_levelproperties
!set title=$class_description
!set sup=$class_Supervisor
!set alevel=$class_level
!read scripts/levelform.phtml
<p>
!if $classcnt=0
$name_level1
!href cmd=reply&job=addclass $wims_name_addclass
.
!set wims_ref_class=wims_button_help
!href cmd=help&special_parm=structure#class $wims_name_help
!else
$table_header
<caption>$name_level4
!set wims_ref_class=wims_button_help
!href cmd=help&special_parm=structure#class $wims_name_help
<small>
!href cmd=reply&job=addclass $wims_name_addclass
</small></caption>
$table_hdtr
<th>$name_code<th>$wims_name_name</th><th>$wims_name_action</th><th>$name_supervisor2</th>
<th><small>$wims_name_course</small></th>
<th><small>$name_participant</small></th>
</tr>
!for i=1 to $classcnt
!set l=!line $i of $classes
!distribute items $l into l_,s_,t_,n_
!set c=!record 0 of $classdir1/$l_/courses
!set c=!nonempty lines $c
!set c=!linecnt $c
$table_tr<td align="center">$l_</td>
<td align="center">
!href cmd=reply&job=class&class=$l_ $t_
</td><td align="center">
!set wims_ref_class=wims_button
!href cmd=reply&job=delclass&del=$l_ $wims_name_erase
</td><td align="center">
!if $s_!=$empty
!if $s_=supervisor
$wims_name_supervisor
!else
!default n_=$s_
!href cmd=reply&job=modteacher&teacher=$s_ $n_
!endif
!else
$name_nonavailable
!endif
</td><td align="center">$c</td>
!set c=!recordcnt $classdir1/$l_/.userlist
<td align="center">$c</td>
$table_end
!endif
<p>
!if $progcnt=0
$name_level2
!href cmd=reply&job=addprog $wims_name_addprog
.
!set wims_ref_class=wims_button_help
!href cmd=help&special_parm=structure#program $wims_name_help
!else
$table_header
<caption>$name_level3
!set wims_ref_class=wims_button_help
!href cmd=help&special_parm=structure#program $wims_name_help
<small>
!href cmd=reply&job=addprog $wims_name_addprog
</small></caption>
$table_hdtr
<th>$name_code<th>$wims_name_name</th><th>$wims_name_action</th><th>$name_supervisor2</th>
<th><small>$wims_name_course</small></th>
</tr>
!for i=1 to $progcnt
!set l=!line $i of $programs
!distribute items $l into l_,s_,t_,n_
!set c=!record 0 of $classdir1/$l_/courses
!set c=!nonempty lines $c
!set c=!linecnt $c
$table_tr<td align="center">$l_</td>
<td align="center">
!href cmd=reply&job=prog&prog=$l_ $t_
</td><td align="center">
!set wims_ref_class=wims_button
!href cmd=reply&job=delprog&del=$l_ $wims_name_erase
</td><td align="center">
!if $s_!=$empty
!if $s_=supervisor
$wims_name_supervisor
!else
!default n_=$s_
!href cmd=reply&job=modteacher&teacher=$s_ $n_
!endif
!else
$name_nonavailable
!endif
</td><td align="center">$c
$table_end
!set wims_menu_items=!append line addclass,1,cmd=reply&job=addclass\
addprog,1,cmd=reply&job=addprog\
to $wims_menu_items
!endif