Exemplo n.º 1
0
<?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';