Example #1
0
        $alert_sound_list[] = "information";
    }
    $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1);
    $affichage = $empr->fiche;
} else {
    if ($sub == "pret_annulation" && $id_expl) {
        // récupérer la stat insérée pour la supprimer !
        $query = "select pret_arc_id from pret ";
        $query .= "where pret_idexpl = '" . $id_expl . "' ";
        $result = pmb_mysql_query($query, $dbh);
        $stat_id = pmb_mysql_fetch_object($result);
        $result = pmb_mysql_query("delete from pret_archive where arc_id='" . $stat_id->pret_arc_id . "' ", $dbh);
        audit::delete_audit(AUDIT_PRET, $stat_id->pret_arc_id);
        // supprimer les valeurs de champs personnalisés
        $p_perso = new pret_parametres_perso("pret");
        $p_perso->delete_values($stat_id->pret_arc_id);
        // supprimer le prêt annulé
        $query = "delete from pret ";
        $query .= "where pret_idexpl = '" . $id_expl . "' ";
        $result = pmb_mysql_query($query, $dbh);
        $erreur_affichage = "<hr />\n\t\t\t\t\t<div class='row'>\n\t\t\t\t\t<div class='colonne10'><img src='./images/info.png' /></div>\n\t\t\t\t\t<div class='colonne-suite'><span class='erreur'>" . str_replace('!!cb_expl!!', $cb_doc, $msg[607]) . "</span></div>\n\t\t\t\t\t</div><br />";
        $alert_sound_list[] = "information";
        $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1);
        $affichage = $empr->fiche;
    } else {
        $script_magnetique = "\n<script language='javascript' type='text/javascript'>\nvar requete = null;\n\nfunction creerRequette(){\n\tif(window.XMLHttpRequest) // Firefox\n\t\trequete = new XMLHttpRequest();\n\telse if(window.ActiveXObject) // Internet Explorer\n  \t\trequete = new ActiveXObject('Microsoft.XMLHTTP');\n\telse { // XMLHttpRequest non supporté par le navigateur\n   \t\talert('Votre navigateur ne supporte pas les objets XMLHTTPRequest...');\n    \treturn;\n\t}\n}\n\nfunction magnetise(commande){\n\tcreerRequette();\n\tif(netscape.security.PrivilegeManager)netscape.security.PrivilegeManager.enablePrivilege('UniversalBrowserRead');\n\trequete.open('GET', 'http://localhost:30000/?send_value='+commande+'&command=Send', false);\n\trequete.send(null);\n\tif(requete.readyState != 4) alert('Requête antivol non effectuée !');\n}\n\n";
        //Si il y a un emprunteur
        if ($id_empr) {
            // Vérification id, on dispose d'un id pour l'emprunteur, donc on est en situation de prêt
            if (check_empr($id_empr)) {
                $empr_temp = new emprunteur($id_empr, '', FALSE, 0);
 function del_pret($id_expl)
 {
     // le lien MySQL
     global $dbh;
     global $msg;
     // récupérer la stat insérée pour la supprimer !
     $query = "select pret_arc_id ,pret_temp from pret where pret_idexpl = '" . $id_expl . "' ";
     $result = pmb_mysql_query($query, $dbh);
     $stat_id = pmb_mysql_fetch_object($result);
     if ($stat_id->pret_temp) {
         $result = pmb_mysql_query("delete from pret_archive where arc_id='" . $stat_id->pret_arc_id . "' ", $dbh);
         audit::delete_audit(AUDIT_PRET, $stat_id->pret_arc_id);
         // supprimer les valeurs de champs personnalisés
         $p_perso = new pret_parametres_perso("pret");
         $p_perso->delete_values($stat_id->pret_arc_id);
         // supprimer le prêt annulé
         $query = "delete from pret where pret_idexpl = '" . $id_expl . "' ";
         $result = pmb_mysql_query($query, $dbh);
     }
     $array[0] = $this;
     $buf_xml = array2xml($array);
     return $buf_xml;
 }