source: pmb4.2/trunk/fuentes/pmb/catalog/serials/bulletinage/expl/bul_expl_delete.inc.php @ 815

Last change on this file since 815 was 815, checked in by jrpelegrina, 4 years ago

Initial release of pmb 4.2

  • Property svn:executable set to *
File size: 3.4 KB
Line 
1<?php
2// +-------------------------------------------------+
3// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
4// +-------------------------------------------------+
5// $Id: bul_expl_delete.inc.php,v 1.22 2015-04-03 11:16:28 jpermanne Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9require_once($class_path."/index_concept.class.php");
10
11// suppression d'un exemplaire de bulletinage
12echo str_replace('!!page_title!!', $msg[4000].$msg[1003].$msg[313], $serial_header);
13
14
15//verification des droits de modification notice
16$acces_m=1;
17if ($gestion_acces_active==1 && $gestion_acces_user_notice==1) {
18        require_once("$class_path/acces.class.php");
19        $ac= new acces();
20        $dom_1= $ac->setDomain(1);
21        $acces_j = $dom_1->getJoin($PMBuserid,8,'bulletin_notice');
22        $q = "select count(1) from bulletins $acces_j where bulletin_id=".$bul_id;
23        $r = pmb_mysql_query($q, $dbh);
24        if(pmb_mysql_result($r,0,0)==0) {
25                $acces_m=0;
26        }
27}
28
29if ($acces_m==0) {
30
31                error_message('', htmlentities($dom_1->getComment('mod_expl_error'), ENT_QUOTES, $charset), 1, '');
32
33} else {
34       
35        print "<div class=\"row\"><div class=\"msg-perio\">".$msg['catalog_notices_suppression']."</div></div>";
36       
37        $sql_circ = pmb_mysql_query("select 1 from serialcirc_expl where num_serialcirc_expl_id ='$expl_id' ") ;
38        if (pmb_mysql_num_rows($sql_circ)) {   
39                error_message($msg[416], $msg["serialcirc_expl_no_del"], 1, "./catalog.php?categ=serials&sub=bulletinage&action=view&bul_id=$bul_id");
40        }else{
41       
42                $requete = "select 1 from pret where pret_idexpl='$expl_id' ";
43                $result=@pmb_mysql_query($requete);
44                if (pmb_mysql_num_rows($result)) {
45                        // gestion erreur prêt en cours
46                        error_message($msg[416], $msg[impossible_expl_del_pret], 1, "./catalog.php?categ=serials&sub=bulletinage&action=view&bul_id=$bul_id");
47                } else {
48               
49                        // nettoyage doc. à ranger
50                        $requete_suppr = "delete from resa_ranger where resa_cb in (select expl_cb from exemplaires where expl_id='".$expl_id."') ";
51                        $result_suppr = pmb_mysql_query($requete_suppr, $dbh);
52                       
53                        // préparation de la requête
54                        $requete = "DELETE FROM exemplaires WHERE expl_id='$expl_id' AND expl_bulletin='$bul_id' LIMIT 1";
55                        $myQuery = pmb_mysql_query($requete, $dbh);
56                        audit::delete_audit (AUDIT_EXPL, $expl_id) ;
57               
58                        $query_caddie = "select caddie_id from caddie_content, caddie where type='EXPL' and object_id in ($expl_id) and caddie_id=idcaddie ";
59                        $result_caddie = @pmb_mysql_query($query_caddie, $dbh);
60                        while($cad = pmb_mysql_fetch_object($result_caddie)) {
61                                $req_suppr_caddie="delete from caddie_content where caddie_id = '$cad->caddie_id' and object_id in ($expl_id) " ;
62                                @pmb_mysql_query($req_suppr_caddie, $dbh);
63                        }
64               
65                        $p_perso=new parametres_perso("expl");
66                        $p_perso->delete_values($expl_id);
67       
68                        // nettoyage transfert
69                        $requete_suppr = "delete from transferts_demande where num_expl='$expl_id'";
70                        $result_suppr = pmb_mysql_query($requete_suppr);
71                       
72                        // nettoyage indexation concepts
73                        $index_concept = new index_concept($expl_id, TYPE_EXPL);
74                        $index_concept->delete();
75               
76                        $retour = "./catalog.php?categ=serials&sub=view&sub=bulletinage&action=view&bul_id=$bul_id";
77                        print "<form class='form-$current_module' name=\"dummy\" method=\"post\" action=\"$retour\" style=\"display:none\">
78                                <input type=\"hidden\" name=\"id_form\" value=\"$id_form\">
79                                </form>
80                                <script type=\"text/javascript\">document.dummy.submit();</script>";
81                }
82        }       
83
84}
85?>
86               
87
Note: See TracBrowser for help on using the repository browser.