<?
/*****************************************************************************
 * delete.php : ZBase delete form
 *****************************************************************************
 * $Id: delete.php,v 1.2 2000/08/11 15:16:43 massiot Exp $
 *****************************************************************************
 *  ZBase - a gateway between the database and the WWW
 *  Copyright (c) 1999 The ZBase team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *****************************************************************************/

require("srv_html.inc");
srv_init();
srv_header(srv_str("html", "delete_title"));

/* Use a form object to retrieve the properties of the tables we work on. */
$form = new form;

if ($form->form_getnb() != 1) {
  $THEME_OBJ->th_error(srv_str("html", "wrong_parameters")." (delete.php)");
  srv_close();
  exit;
}

$attributes = $form->form_getobj();
srv_include($attributes["name"]);
$root = new $attributes["name"];
$root->search($attributes["keys"]);
$root->search_fetch_array(0);

$THEME_OBJ->th_warning(srv_str("html", "delete_warning"));

$root->show_row();

srv_stopandask("", srv_loadvar("htmlpage", "delete_result"));

srv_close();
?>