!!
!! page edition to add exo for help to a sheet
!!
!if $step=0
$name_insert <span class="tt wims_fname">$dir</span>
!if $iniparm!=$empty
$name_parm
<p class="wimscenter">
<span class="tt wims_parm">
!replace internal & by & in $iniparm
</span>
</p>
!endif
!form reply
<fieldset>
<legend>$wims_name_setup</legend>
<label for="note">$(name_choose_helpexo[1])</label>
<input type="text" id="note" name="note" value="$note" size="4">
<label for="note2">$(name_choose_helpexo[2])</label>
<input type="text" id="note2" name="note2" value="$note2" size="4">.
<p>
!formradio feedinsert
list 0, 1 prompt
$name_replace_add </p>
<input type="submit" value="$wims_name_change">
</fieldset>
<label for="picksheet">$name_choose</label> :
<select id="picksheet" name="picksheet" onchange="submit()">
!for i=1 to $sheetcnt
!set sh=!line $i of $sheets
!set se=!item 1 of $sh
!set nb=!item 2 of $sh
!set ti=!item 3 to -1 of $sh
!if $i=$picksheet
<option value="$se" selected="selected">$wims_name_Sheet $se: $ti</option>
!else
<option value="$se">$wims_name_Sheet $se: $ti</option>
!endif
</select>
$table_header
<caption>$name_choose_series</caption>
$table_hdtr<th>$name_series</th><th>$name_actualhelp</th></tr>
!for i=1 to $(sheets[$picksheet;2])
!let don
=!record
$i of wimshome
/log/classes
/$wims_class/sheets
/.sheet
$picksheet !let ti=!line 5 of $don
!let he=!line 9 of $don
$table_tr
<td>
!href cmd=reply&job=helpexo&picksheet=$picksheet&step=1&exo=$i $ti
</td>
<td>$he</td>
</tr>
$table_end
<input type="hidden" value="helpexo" name="job">
!formend
$name_clickhelp
!else
$name_end $picksheet, ex. $exo ($note, $note2).
!set wims_menu_items=!append line sheetcheck,1,module=adm/class/sheet&sheet=$picksheet\
to $wims_menu_items
!endif