!!
!! page edition to add exo to a sheet
!!
!if $cmd=new or $cmd=resume
$name_insert <tt class="wims_fname">$dir</tt>
!if $iniparm!=$empty
$name_parm
<p>
<tt class="wims_parm">
!replace internal & by & in $iniparm
</tt>
</p>
!endif
<p>
$name_choose_exo
<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</option>
!else
<option value="$se">$wims_name_Sheet $se: $ti</option>
!endif
</select>
<p>$name_modifytitle
<p>
!set iniparm1=!replace internal & by $ $ in $iniparm
!set exo
=!getopt exo in
$iniparm1 !if __classes/ isin __$dir
!set title1
=!lookup
$exo in wimshome
/log/classes
/$wims_class/Extitles
!else
!set title1=!lookup $exo in wimshome/public_html/modules/$dir/Extitles
!endif
!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.
!set wims_menu_items=!append line sheetcheck,1, module=adm/class/sheet&sheet=$picksheet\
to $wims_menu_items
!endif