!read adm/css.phtml
!header1
!read names.phtml
!read adm/title.phtml 1\
$classname\
$name_title
!if $error!=$empty
<p>
!read msg.phtml
<p>
!goto end1
!endif
!if $cmd=new or $cmd=resume
$name_insert <tt>$dir</tt>
!if $iniparm!=$empty
$name_parm <tt>$iniparm</tt>
!endif
. <p>
!form reply
$name_choose:
<select name=picksheet>
!for i=1 to $sheetcnt
!set sh=!line $i of $sheets
!set se=!item 1 of $sh
!set ti=!item 2 to -1 of $sh
!if $se=$sheetcnt
<option value=$se selected>$wims_name_Sheet $se: $ti
!else
<option value=$se>$wims_name_Sheet $se: $ti
!endif
</select>
<p>$name_modifytitle
<p>
!set iniparm1=!replace internal & by $ $ in $iniparm
!set exo
=!getopt exo in
$iniparm1 !set title1=!lookup $exo in wimshome/public_html/modules/$dir/Extitles
!if $title1!=$empty
!set title=$title1
!endif
!default title=$wims_name_Exercise
$wims_name_title: <input size=50 name=title value="$title"> <p>
$wims_name_Description: <textarea name=new_desc rows=5 cols=50>$desc</textarea>
!if $scoring=yes
<p>$name_required:
<input size=4 name=require value="$require">
<small>
($name_repeat)
</small><p>
$name_weight:
<input size=6 name=weight value="$weight">.
!endif
<p><center><input type=submit value="$wims_name_Insert"></center>
</form>
!endif
!if $cmd=reply
$name_end
$picksheet.
!endif
:end1
!set wims_menu_items=!append line sheetcheck,1, module=adm/class/sheet&sheet=$picksheet\
to $wims_menu_items
!set wims_menu_items=!append line moduback,1,module=$dir\
to $wims_menu_items
!tail
!set job=