<?php
// +-------------------------------------------------+
// � 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
// +-------------------------------------------------+
// $Id: thes_delete.inc.php,v 1.4 2009-12-18 11:18:25 mbertin Exp $
if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) {
die("no access");
}
// si tout est OK, on a les variables suivantes � exploiter :
// $id_thes identifiant de thesaurus (0 si nouveau)
// $libelle_thesaurus libelle du thesaurus
// $langue_defaut langue par d�faut du thesaurus (rien si inchang�e)
require_once "{$class_path}/thesaurus.class.php";
if (thesaurus::hasNotices($id_thes)) {
//le thesaurus est utilis� dans les notices.
error_form_message($msg["thes_suppr_impossible"]);
exit;
} else {
if ($opac_thesaurus_defaut === $id_thes or $thesaurus_defaut === $id_thes or $deflt_thesaurus === $id_thes) {
error_form_message($msg["thes_suppr_categ_utilisee"]);
} else {
thesaurus::delete($id_thes);
thesaurus::setSessionThesaurusId(-1);
}
}
include './autorites/subjects/thesaurus.inc.php';