Subversion Repositories wimsdev

!if $cmd=new or $cmd=resume

  !form reply

  <fieldset class="property_fields halfwidth blockcenter">

  <legend>$wims_name_properties $wims_name_Glossary $d</legend>

  <div class="field box">

  <div class="field box">

    <label for="title">$wims_name_title</label>

    <input size="50" name="title" value="$ti" id="title" />

  </div>

  <div class="field box">

  !set n_=!recordcnt wimshome/log/classes/$wims_class/tool/.glossary$gl

    $table_header

    $table_tr

    <th>$wims_name_title</th><th>$wims_name_action</th><th></th>

    </tr>

  !for j=1 to $n_

    !set c_=!record $j of wimshome/log/classes/$wims_class/tool/.glossary$gl

    !distribute line $c_ into di_,ti_,

    $table_tr

    <td><input size="20" name="title$j" value="$ti_" id="title" /></td>

    <td>

    !formcheckbox delete$j list 1 prompt $wims_name_erase

    </td>

    <td>$di_</td>

    </tr>

  !next

  </table>

  <div class="wimscenter wimsform"><input type="submit" value="$wims_name_send" /></div>

  </div>

  <input type="hidden" name="job" value="mod" />

  </fieldset>

  !formend

!endif

!if $cmd=reply

  $name_endmod.

  !set wims_menu_items=!append line "glossarycheck",1,module=adm/tool/glossary&gl=$gl\

to $wims_menu_items

!endif