".$msg[384]."
"; $erreur_affichage .= get_display_custom_fields($id_empr,$id_expl); if($pmb_play_pret_sound)$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) ; /** * Publication d'un évenement à l'annulation du prêt (avant suppression dans pret_archive) */ $evt_handler = events_handler::get_instance(); $event = new event_loan("loan", "cancel_loan"); $event->set_id_loan($stat_id->pret_arc_id); $evt_handler->send($event); $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 = "

---

"; $alert_sound_list[]="information"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } else { $script_magnetique=" "; if($type_antivol ==2)//c'est un support magnétique (cassette) print "$script_magnetique"."magnetise('SSS');"; } //Vérification de la validité du document $statut = check_document($id_expl, $id_empr); // check_document remonte $statut->notice_id et $statut->bulletin_id if ($statut->notice_id) { $notice_temp = new mono_display($statut->notice_id, 0); $titre_prete = $notice_temp->header; } elseif ($statut->bulletin_id) { $bulletin_temp = new bulletinage_display($statut->bulletin_id); $titre_prete = $bulletin_temp->display ; } else $titre_prete = ""; $titre_prete="".$titre_prete."
".$cb_doc." $statut->tdoc_libelle $statut->location_libelle $statut->section_libelle $statut->expl_cote"; //Y-a-t-il un quota ? if ((!isset($expl_todo) || !$expl_todo) && $deflt_docs_location) { $sql = "SELECT expl_retloc FROM exemplaires where expl_retloc='".$deflt_docs_location."' and expl_id='".$id_expl."' "; $req = pmb_mysql_query($sql) or die ($msg["err_sql"]."
".$sql."
".pmb_mysql_error()); $nb = pmb_mysql_num_rows($req) ; if($nb) { $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; print pmb_bidi($affichage); print alert_sound_script(); exit(); } } //Y-a-t-il un quota ? On y passe uniquement si l'exemplaire n'est pas déjà en prêt if ((!isset($quota) || !$quota) && !($statut -> flag && ($statut -> flag & ALREADY_LOANED || $statut -> flag & ALREADY_BORROWED))) { $qt=check_quota($id_empr, $id_expl); //Si quota violé if (is_array($qt)) { $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; print pmb_bidi($affichage); print alert_sound_script(); exit(); } // fin if (is_array($qt)) } // fin if !$quota // Le lecteur a déjà emprunté ce document ? if ((!isset($pret_arc) || !$pret_arc) && $pmb_pret_already_loaned) { $rqt_arch = "select arc_id from pret_archive WHERE arc_id_empr = '".$id_empr."' AND arc_expl_id = ".$id_expl." "; $pretarc_res=pmb_mysql_query($rqt_arch, $dbh); if(pmb_mysql_num_rows($pretarc_res)){ $pret_arc=1; $res_pret_arc = pmb_mysql_fetch_object($pretarc_res); $resarc_id = $res_pret_arc->resarc_id; $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; print pmb_bidi($affichage); print alert_sound_script(); exit(); } } if ($statut -> flag && ((($statut -> flag & HAS_NOTE) || ($statut -> flag & IS_GROUP) || ($statut -> flag & ALREADY_LOANED_ARCHIVE) || ($statut -> flag & NON_PRETABLE) || ($statut -> flag & HAS_RESA_FALSE)) || ($statut -> flag & HAS_RESA_PLANNED_FALSE) || ($statut -> flag & IS_TRUSTED)) && !($statut -> flag & ALREADY_LOANED) && !($statut -> flag & ALREADY_BORROWED) ) { if (!$confirm) { // mettre ici les routines confirmation if($is_doc_group){ $information_text.= $groupexpl->get_confirm_form($cb_doc); if($groupexpl->is_doc_header($cb_doc)) $serious = FALSE; else $serious = TRUE; } // l'exemplaire a une note if ($statut -> flag & HAS_NOTE) { // l'exemplaire a une note attachée $warning_text.= "$msg[377] : ".$statut -> note." "; $serious = FALSE; } if ($statut -> flag & NON_PRETABLE) { // l'exemplaire a le statut non-prétable if ($warning_text) $warning_text.= "
".$msg[382]." (".$statut->statut.")"; else $warning_text.= $msg[382]." (".$statut->statut.")"; $serious = TRUE; // Si transfert activé, on vérifie le prêt est forcable ou non if($pmb_transferts_actif) { $transfert = new transfert(); $statut_trans=$transfert->check_pret($cb_doc); if($statut_trans==1) { //non forcable $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; print pmb_bidi($affichage); print alert_sound_script(); exit(); } elseif($statut_trans==2) { // forçable $warning_text.= "
".$transfert->check_pret_error_message; } } } if ($statut -> flag & HAS_RESA_FALSE) { // le document est réservé pour un autre lecteur if ($warning_text) $warning_text.= "
".$msg[383]." : ".$reservataire_nom_prenom.""; else $warning_text.= $msg[383]." : ".$reservataire_nom_prenom.""; $serious = TRUE; } if ($statut -> flag & HAS_RESA_PLANNED_FALSE) { // le document à des prévisions if ($warning_text) $warning_text.= "
"; $warning_text.= " ".htmlentities($msg['resa_planning_encours'], ENT_QUOTES, $charset)." ".$reservataire_nom_prenom."
"; //Affichage des prévisions sur le document courant $q = "SELECT id_resa, resa_idnotice, resa_idbulletin, resa_date, resa_date_debut, resa_date_fin, resa_validee, IF(resa_date_fin>=sysdate() or resa_date_fin='0000-00-00',0,1) as perimee, date_format(resa_date_fin, '".$msg["format_date_sql"]."') as aff_date_fin, "; $q.= "resa_idempr, concat(lower(empr_prenom), ' ',upper(empr_nom)) as resa_nom, if(resa_idempr!='".$id_empr."', 0, 1) as resa_same "; $q.= "FROM resa_planning left join empr on resa_idempr=id_empr "; $q.= "where resa_idnotice=$statut->notice_id and resa_idbulletin=$statut->bulletin_id "; // En fonction de la localisation de l'exemplaire courant si les prévisions sont localisées if ($pmb_location_resa_planning) { $q.= "and resa_loc_retrait in (0,".$statut->expl_location.") "; } $r = pmb_mysql_query($q, $dbh); if (pmb_mysql_num_rows($r)) { $warning_text.= ""; } // if (pmb_mysql_num_rows($r)) $serious = TRUE; } //if ($statut -> flag & HAS_RESA_PLANNED_FALSE) if ($statut->flag & IS_TRUSTED ) { // le document est monopolisé $nd=0; if ($statut->notice_id || $statut->bulletin_id) { if ($statut->notice_id) { $qd = "select count(*) from exemplaires join docs_statut on idstatut=expl_statut and pret_flag=1 where expl_notice=".$statut->notice_id; } else if ($statut->bulletin_id) { $qd = "select count(*) from exemplaires join docs_statut on idstatut=expl_statut and pret_flag=1 where expl_bulletin=".$statut->bulletin_id; } $rd = pmb_mysql_query($qd,$dbh); if (pmb_mysql_num_rows($rd)) { $nd = pmb_mysql_result($rd,0,0); } } $warning_text.= sprintf("
".$msg['loan_trust_warning'],$pmb_loan_trust_management,$nd); $serious = TRUE; } $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } else { // else if !confirm // il y a eu confirmation du prêt if ($statut -> flag == $confirm) { // ajout du prêt // si transfert activé, faire le néçessaire en cas de forçage if($pmb_transferts_actif) { $transfert = new transfert(); $statut_trans=$transfert->check_pret($cb_doc,1); } if ($statut -> flag & HAS_RESA_GOOD) { // archivage resa $rqt_arch = "UPDATE resa_archive, resa SET resarc_pretee = 1 WHERE id_resa = '".$statut->id_resa."' AND resa_arc = resarc_id "; pmb_mysql_query($rqt_arch, $dbh); $rqt_arch = "select resarc_id from resa_archive, resa WHERE id_resa = '".$statut->id_resa."' AND resa_arc = resarc_id "; $resarc_res=pmb_mysql_query($rqt_arch, $dbh); $resarc = pmb_mysql_fetch_object($resarc_res); $resarc_id = $resarc->resarc_id; // suppression de la resa pour ce lecteur del_resa($id_empr, $statut -> idnotice, $statut -> idbulletin, $statut -> expl_cb); } if ($statut -> flag & HAS_RESA_FALSE) { // dévalider la resa correspondante if ($statut->resa_cb == $statut->expl_cb) { // la résa prioritaire avait déjà un CB identique : il suffit de la dévalider $rqt_invalide_resa = "update resa set resa_date_debut='0000-00-00', resa_date_fin='0000-00-00', resa_cb='' where id_resa = '".$statut->id_resa."' " ; $truc_vide = pmb_mysql_query($rqt_invalide_resa, $dbh) ; } // sinon rien à faire, la résa était validée avec autre chose, elle le reste // archivage resa $rqt_arch = "UPDATE resa_archive, resa SET resarc_pretee = 2 WHERE id_resa = '".$statut->id_resa."' AND resa_arc = resarc_id "; pmb_mysql_query($rqt_arch, $dbh); $rqt_arch = "select resarc_id from resa_archive, resa WHERE id_resa = '".$statut->id_resa."' AND resa_arc = resarc_id "; $resarc_res=pmb_mysql_query($rqt_arch, $dbh); $resarc = pmb_mysql_fetch_object($resarc_res); $resarc_id = $resarc->resarc_id; del_resa($id_empr, $statut -> idnotice, $statut -> idbulletin, $statut -> expl_cb); } del_resa($id_empr, $statut -> idnotice, $statut -> idbulletin, $statut -> expl_cb); add_pret($id_empr, $id_expl, $cb_doc, $resarc_id, $short_loan); // mise à jour de l'affichage // ER ici ajout du bouton d'annulation violente /* $rqt = "SELECT notice_m.tit1, notices_s.tit1 "; $rqt.= "FROM ((exemplaires LEFT JOIN notices AS notice_m ON expl_notice = notice_m.notice_id) LEFT JOIN bulletins ON expl_bulletin = bulletin_id) LEFT JOIN notices AS notices_s ON bulletin_notice = notices_s.notice_id "; $rqt.= "WHERE expl_id='".$id_expl."' "; $result_pret = pmb_mysql_query($rqt, $dbh); $titre_prete = pmb_mysql_result($result_pret, 0, 0).pmb_mysql_result($result_pret, 0, 1); */ $information_group = ""; if($pmb_pret_groupement){ if($id_group=groupexpls::get_group_expl($cb_doc)){ // ce document appartient à un groupe $is_doc_group=1; $groupexpl=new groupexpl($id_group);$information_text.= $groupexpl->get_confirm_form($cb_doc); $information_group= $groupexpl->get_confirm_form($cb_doc); // $statut->flag+=IS_GROUP; client ne veut pas de comfirmation } } $erreur_affichage = $information_group."

---

"; if ($statut->expl_comment) $erreur_affichage.= ""; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; // prise en compte du param d'envoi de ticket de prêt électronique if ($empr_electronic_loan_ticket && $param_popup_ticket) { electronic_ticket($id_empr, $cb_doc); } // prise en compte du param popup_ticket if ($param_popup_ticket == 1) { if(!$pmb_printer_ticket_url) { print ""; } else { $affichage.=""; } } } else { $erreur_affichage = "

---

"; $erreur_affichage .= get_display_custom_fields($id_empr,$id_expl); $alert_sound_list[]="information"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } // fin else if ($statut -> flag == $confirm) } // fin if else !confirm } else { if ($statut -> flag & ALREADY_LOANED || $statut -> flag & ALREADY_BORROWED) { if ($statut -> flag & ALREADY_LOANED) { $erreur_affichage = "

---

"; $alert_sound_list[]="critique"; } if ($statut -> flag & ALREADY_BORROWED) { // Proposer de faire le retour et de refaire le prêt $pret_already_borrowed_action=''; if($pmb_pret_already_borrowed) { $pret_already_borrowed_action="  "; } $erreur_affichage = "

---

"; $alert_sound_list[]="critique"; } $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } else { if ($statut -> flag && ($statut -> flag & HAS_RESA_GOOD)) { // archivage resa $rqt_arch = "UPDATE resa_archive, resa SET resarc_pretee = 1 WHERE id_resa = '".$statut->id_resa."' AND resa_arc = resarc_id "; pmb_mysql_query($rqt_arch, $dbh); $rqt_arch = "select resarc_id from resa_archive, resa WHERE id_resa = '".$statut->id_resa."' AND resa_arc = resarc_id "; $resarc_res=pmb_mysql_query($rqt_arch, $dbh); $resarc = pmb_mysql_fetch_object($resarc_res); $resarc_id = $resarc->resarc_id; // suppression de la resa pour ce lecteur del_resa($id_empr, $statut -> idnotice, $statut -> idbulletin, $statut -> expl_cb); } else { $resarc_id = 0; } // ajout du prêt del_resa($id_empr, $statut -> idnotice, $statut -> idbulletin, $statut -> expl_cb); add_pret($id_empr, $id_expl, $cb_doc,$resarc_id,$short_loan); // mise à jour de l'affichage $information_group = ""; if($pmb_pret_groupement){ if($id_group=groupexpls::get_group_expl($cb_doc)){ // ce document appartient à un groupe $is_doc_group=1; $groupexpl=new groupexpl($id_group); $information_text.= $groupexpl->get_confirm_form($cb_doc); $information_group= $groupexpl->get_confirm_form($cb_doc); // $statut->flag+=IS_GROUP; client ne veut pas de comfirmation } } // ajout du bouton d'annulation violente $erreur_affichage = $information_group."

---

"; if ($statut->expl_comment) $erreur_affichage.= ""; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; // prise en compte du param d'envoi de ticket de prêt électronique if ($empr_electronic_loan_ticket && $param_popup_ticket) { electronic_ticket($id_empr, $cb_doc); } // prise en compte du param popup_ticket if ($param_popup_ticket == 1) { if(!$pmb_printer_ticket_url) { if ($pmb_printer_name) { $affichage.= ""; } else { print ""; } } else { $affichage.= ""; } } } // fin else if ($statut -> flag & ALREADY_LOANED || $statut -> flag & ALREADY_BORROWED) { } // fin de quoi ??? } else { // pas d'exemplaire avec ce code-barre $erreur_affichage = "

---

"; // on a un code-barres, est-ce un cb empr ? $query_empr = "select id_empr, empr_cb from empr where empr_cb='".$cb_doc."' "; $result_empr = pmb_mysql_query($query_empr, $dbh); if(pmb_mysql_num_rows($result_empr)) { $erreur_affichage.=""; } $alert_sound_list[]="critique"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } } else { // aucun $id_expl ni de $cd_doc $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } } else { // date adhésion dépassée et ici on bloque !!! $erreur_affichage = "

---

"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } } else { // afficher 'lecteur inconnu' $erreur_affichage = "

---

"; $alert_sound_list[]="critique"; print $erreur_affichage; } } else { // pas d'idempr $query = "select id_empr as id from empr where empr_cb='$form_cb' "; $result = pmb_mysql_query($query, $dbh); $id = @ pmb_mysql_result($result, '0', 'id'); if (($id) && ($form_cb)) { $erreur_affichage = "

---

"; if ($id_notice || $id_bulletin) { if ($type_resa) { echo ""; } else { echo ""; } } else { if ($serialcirc_action == "delete") { $serialcirc_empr = new serialcirc_empr($id); $msgs = $serialcirc_empr->unsbuscribe($serialcirc); if(count($msgs['errors'])){ $affichage.= return_error_message($msg['540'], implode("
",$msgs['errors'])); $affichage.=" "; } } else if (($serialcirc_action == "tr") || ($serialcirc_action == "dup")) { $serialcirc_empr = new serialcirc_empr($id); $msgs = $serialcirc_empr->forward($serialcirc, $serialcirc_new_empr, ($serialcirc_action == 'dup')); if(count($msgs['messages'])){ $affichage.="

". implode(" ",$msgs['messages'])."

"; $affichage.=" "; }if(count($msgs['errors'])){ $affichage.= return_error_message($msg['540'], implode("
",$msgs['errors'])); $affichage.=" "; } } $empr = new emprunteur($id, $erreur_affichage, FALSE, 1); $affichage.= $empr -> fiche; } } else { include ('./circ/empr/empr_list.inc.php'); } } /* fin if else ajouté par ER pour fonction annulation */ } //Comme dans $affichage on met la fiche de l'emprunteur ($affichage = $empr -> fiche) à aucun moment !!voir_sugg!! ne peut être encore présent if(SESSrights & ACQUISITION_AUTH){ global $nb_per_page; $ori = ($id_empr ? $id_empr : $id); $req = "select count(id_suggestion) as nb, sugg_location from suggestions, suggestions_origine where num_suggestion=id_suggestion and origine='".$ori."' and type_origine='1' "; $res=pmb_mysql_query($req,$dbh); $btn_sug = ""; if($res && pmb_mysql_num_rows($res)){ $sug = pmb_mysql_fetch_object($res); if($sug->nb){ $btn_sug = "sugg_location."' \" />"; } } $affichage = str_replace('!!voir_sugg!!',$btn_sug,$affichage); }else{ $affichage = str_replace('!!voir_sugg!!',"",$affichage); } //print $erreur_affichage ; print pmb_bidi($affichage); // <-------------- do_confirm_box() ------------> // fabrique une boite de confirmation pour la fiche lecteur function do_confirm_box($id_empr, $id_expl, $cb_doc, $message, $confirm_flag) { global $confirm; global $msg; global $alert_sound_list;// l'utilisateur veut-il les sons d'alerte global $quota,$pret_arc; $alert_sound_list[]="question"; $warning.= "

document $cb_doc

$message

"; $confirm = $confirm + $confirm_flag; $warning.= "

"; return $warning; } // <-------------- check_empr ---------------> // teste l'id_empr passée en paramètre (check si l'emprunteur existe) function check_empr($id) { global $dbh; if (!$id) return FALSE; $query = "select count(1) as qte from empr where id_empr='$id' "; $result = pmb_mysql_query($query, $dbh); return pmb_mysql_result($result, 0, 0); } // <------------- check_quota ---------------> //Vérifie les quotas de prêt si activés function check_quota($id_empr, $id_expl) { global $msg; global $pmb_quotas_avances, $pmb_short_loan_management, $short_loan; if ($pmb_quotas_avances) { //Initialisation des quotas pour nombre de documents prêtables if ($pmb_short_loan_management && $short_loan) { $qt = new quota("SHORT_LOAN_NMBR_QUOTA"); } else { $qt = new quota("LEND_NMBR_QUOTA"); }//Tableau de passage des paramètres $struct["READER"] = $id_empr; $struct["EXPL"] = $id_expl; //Test du quota pour l'exemplaire et l'emprunteur if ($qt -> check_quota($struct)) { //Si erreur, récupération du message et peut-on forcer ou non ? $error["MESSAGE"] = $qt -> error_message; $error["FORCE"] = $qt -> force; } else $error = ""; } return $error; } // <-------------- get_expl_id_from_cb() ---------------> // récupère l'id d'un exemplaire d'après son code barre function get_expl_id_from_cb($cb) { global $dbh; if (!$cb) return FALSE; $query = "select expl_id as id from exemplaires where expl_cb='$cb' limit 1"; $result = pmb_mysql_query($query, $dbh); return @ pmb_mysql_result($result, '0', 'id'); } // <-------------- check_document() ---------------> // récupère différents paramètres sur le document à emprunter /* ce qui nous intéresse : - si le document est inconnu : on ne fait rien bien entendu -> retour EX_INCONNU - si le document est déja en prêt -> allready_BORROWED - si l'exemplaire a une note -> l'utilisateur doit confirmer le prêt (HAS_NOTE) - si le document est en consultation sur place -> l'utilisateur doit confirmer le prêt retour SUR_PLACE - si le document est réservé pour un autre lecteur -> l'utilisateur doit confirmer le prêt retour HAS_RESA - si le document est réservé pour ce lecteur -> on efface la réservation et on retourne EX_OK - si des prévisions pour un exemplaire du document : nb exemplaires réservés > nb exemplaires dispos >> ok nb exemplaires réservés <= nb exemplaires dispos >> on affiche les prévisions */ function check_document($id_expl, $id_empr) { global $dbh; global $pmb_resa_planning,$pmb_location_resa_planning; global $empr_archivage_prets, $pmb_loan_trust_management; $retour = new stdClass(); $retour -> flag = 0; if (!$id_expl || !$id_empr) return $retour -> flag; // on tente de récupérer les infos exemplaire utiles $query = "select expl_cote, expl_location, location_libelle, section_libelle, tdoc_libelle, e.expl_cb as cb, e.expl_id as id, e.expl_location, s.pret_flag as pretable, s.statut_allow_resa as reservable, e.expl_notice as notice, e.expl_bulletin as bulletin, e.expl_note as note, expl_comment, s.statut_libelle as statut"; $query.= " from exemplaires e, docs_statut s, docs_location l, docs_section sec, docs_type t"; $query.= " where e.expl_id=$id_expl"; $query.= " and s.idstatut=e.expl_statut"; $query.= " and sec.idsection=e.expl_section"; $query.= " and l.idlocation=e.expl_location"; $query.= " and t.idtyp_doc =e.expl_typdoc"; $query.= " limit 1"; $result = pmb_mysql_query($query, $dbh); // exemplaire inconnu if (!pmb_mysql_num_rows($result)) { $retour -> flag = EX_INCONNU; return $retour; } $expl = pmb_mysql_fetch_object($result); $retour -> expl_cb = $expl -> cb; $retour -> notice_id = $expl -> notice; $retour -> bulletin_id = $expl -> bulletin; $retour -> expl_cote = $expl -> expl_cote; $retour -> tdoc_libelle = $expl -> tdoc_libelle; $retour -> expl_location = $expl -> expl_location; $retour -> location_libelle = $expl -> location_libelle; $retour -> section_libelle = $expl -> section_libelle; $retour -> expl_comment = $expl -> expl_comment; $retour->reservable=$expl->reservable; // une autre query pour savoir si l'exemplaire est en prêt... $query = "select pret_idempr from pret where pret_idexpl=$id_expl limit 1"; $result = pmb_mysql_query($query, $dbh); if (@ pmb_mysql_num_rows($result)) { // l'exemplaire est déjà en prêt $empr = pmb_mysql_result($result, '0', 'pret_idempr'); // l'emprunteur est l'emprunteur actuel if ($empr == $id_empr) $retour -> flag += ALREADY_LOANED; else $retour -> flag += ALREADY_BORROWED; } // cas de l'exemplaire qui a une note if ($expl -> note) { $retour -> flag += HAS_NOTE; $retour -> note = $expl -> note; } // cas de l'exemplaire en consultation sur place if (!$expl -> pretable) { // l'exemplaire est en consultation sur place $retour -> flag += NON_PRETABLE; if (!$retour -> note) $retour -> note = $expl -> statut; else $retour -> note = $retour -> note." / ".$expl -> statut; $retour -> statut = $expl -> statut; } // cas des réservations // on checke si l'exemplaire a une réservation $query = "select resa_idempr as empr, id_resa, resa_cb, concat(ifnull(concat(empr_nom,' '),''),empr_prenom) as nom_prenom, empr_cb from resa left join empr on resa_idempr=id_empr where resa_idnotice='$expl->notice' and resa_idbulletin='$expl->bulletin' and resa_cb='$expl->cb' order by resa_date limit 1"; $result = pmb_mysql_query($query, $dbh); if (pmb_mysql_num_rows($result)) { $reservataire = pmb_mysql_result($result, 0, 'empr'); $id_resa = pmb_mysql_result($result, 0, 'id_resa'); $resa_cb = pmb_mysql_result($result, 0, 'resa_cb'); $nom_prenom = pmb_mysql_result($result, 0, 'nom_prenom'); $empr_cb = pmb_mysql_result($result, 0, 'empr_cb'); $retour -> idnotice = $expl -> notice; $retour -> idbulletin = $expl -> bulletin; $retour -> id_resa = $id_resa ; $retour -> resa_cb = $resa_cb ; if ($reservataire == $id_empr) { // la réservation est pour ce lecteur $retour -> flag += HAS_RESA_GOOD; } else { if ($expl->cb==$resa_cb) // réservé (validé) pour un autre lecteur $retour -> flag += HAS_RESA_FALSE; global $reservataire_nom_prenom ; global $reservataire_empr_cb ; $reservataire_nom_prenom = $nom_prenom ; $reservataire_empr_cb = $empr_cb ; } }else{ //réservation non validée sur la notice pour cet emprunteur ? $query = "select resa_idempr as empr, id_resa, resa_cb, concat(ifnull(concat(empr_nom,' '),''),empr_prenom) as nom_prenom, empr_cb from resa left join empr on resa_idempr=id_empr where resa_idnotice='$expl->notice' and resa_idbulletin='$expl->bulletin' and resa_cb='' and resa_idempr=".$id_empr." order by resa_date limit 1"; $result = pmb_mysql_query($query, $dbh); if (pmb_mysql_num_rows($result)) { $reservataire = pmb_mysql_result($result, 0, 'empr'); $id_resa = pmb_mysql_result($result, 0, 'id_resa'); $resa_cb = pmb_mysql_result($result, 0, 'resa_cb'); $nom_prenom = pmb_mysql_result($result, 0, 'nom_prenom'); $empr_cb = pmb_mysql_result($result, 0, 'empr_cb'); $retour -> idnotice = $expl -> notice; $retour -> idbulletin = $expl -> bulletin; $retour -> id_resa = $id_resa ; $retour -> resa_cb = $resa_cb ; // la réservation est pour ce lecteur $retour -> flag += HAS_RESA_GOOD; } else { $retour -> idnotice = 0; $retour -> idbulletin = 0; $retour -> id_resa = 0; } } // cas des prévisions if($pmb_resa_planning) { //On compte les prévisions validées sur ce document à des dates ultérieures $q = "select count(*) from resa_planning "; $q.= "where resa_idnotice=".$expl->notice." and resa_idbulletin=".$expl->bulletin." "; $q.= "and resa_validee=1 and resa_remaining_qty!=0 "; // En fonction de la localisation de l'exemplaire courant si les prévisions sont localisées if ($pmb_location_resa_planning) { $q.= "and resa_loc_retrait in (0,$expl->expl_location) "; } $q.= "and resa_date_fin >= curdate() "; $r = pmb_mysql_query($q, $dbh); $nb_resa = pmb_mysql_result($r,0,0); // On compte les exemplaires disponibles et réservables pour cette localisation $q = "select count(*) from exemplaires "; $q.= "where expl_notice = ".$expl->notice." and expl_bulletin=".$expl->bulletin." "; $q.= "and expl_id not in (select pret_idexpl from pret) "; $q.= "and expl_statut in (select idstatut from docs_statut where statut_allow_resa=1) "; // En fonction de la localisation de l'exemplaire courant si les prévisions sont localisées if ($pmb_location_resa_planning) { $q.= "and expl_location=".$expl->expl_location." "; } $r = pmb_mysql_query($q, $dbh); $nb_dispo = pmb_mysql_result($r, 0, 0); if (($nb_dispo-$nb_resa) <= 0 ) { $retour -> flag += HAS_RESA_PLANNED_FALSE; } } //cas du non monopole if ($pmb_loan_trust_management) { $np=0; $npa=0; $qp = "select count(*) from pret join exemplaires on pret_idexpl=expl_id where pret_idempr='".$id_empr."' "; $qp.= (($expl->notice)?"and expl_notice='".$expl->notice."' ":"and expl_bulletin='".$expl->bulletin."' "); $rp = pmb_mysql_query($qp, $dbh); $np=pmb_mysql_result($rp,0,0); if($empr_archivage_prets) { $qpa = "select count(*) from pret_archive where arc_id_empr='".$id_empr."' "; $qpa.= (($expl->notice)?"and arc_expl_notice='".$expl->notice."' ":"and arc_expl_bulletin='".$expl->bulletin."' "); $qpa.= "and date_add(arc_fin, interval ".$pmb_loan_trust_management." day) >= now()"; $rpa = pmb_mysql_query($qpa, $dbh); $npa=pmb_mysql_result($rpa,0,0); } if ($np || $npa) { $retour -> flag += IS_TRUSTED; } } return $retour; } // ajoute le prêt en table function add_pret($id_empr, $id_expl, $cb_doc,$resarc_id=0,$short_loan=0) { // le lien MySQL global $dbh, $msg; global $pmb_quotas_avances, $pmb_utiliser_calendrier; global $pmb_gestion_financiere,$pmb_gestion_tarif_prets; global $include_path,$lang; global $deflt2docs_location ; global $pmb_pret_date_retour_adhesion_depassee; global $pmb_short_loan_management; global $pmb_transferts_actif; global $pmb_resa_planning; $resarc_id+=0; /* on prépare la date de début*/ $pret_date = today(); $duree_pret=0; // calcul de la duree du pret si la date de fin est definie par les previsions if($resarc_id && $pmb_resa_planning==1) { $q = 'select datediff(resarc_fin,"'.$pret_date.'") from resa_archive where resarc_id ='.$resarc_id.' and resarc_resa_planning_id_resa!=0 limit 1'; $r = pmb_mysql_query($q, $dbh); if(pmb_mysql_num_rows($r)) { $duree_pret = pmb_mysql_result($r,0,0); } } if(!$duree_pret) { /* on cherche la durée du prêt */ if ($pmb_short_loan_management && $short_loan) { if($pmb_quotas_avances) { //Initialisation de la classe $qt=new quota("SHORT_LOAN_TIME_QUOTA"); $struct["READER"]=$id_empr; $struct["EXPL"]=$id_expl; $duree_pret=$qt->get_quota_value($struct); if ($duree_pret==-1) $duree_pret=0; } else { $query = "SELECT short_loan_duration as duree_pret"; $query.= " FROM exemplaires, docs_type"; $query.= " WHERE expl_id='".$id_expl; $query.= "' and idtyp_doc=expl_typdoc LIMIT 1"; $result = @ pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query); $expl_properties = pmb_mysql_fetch_object($result); $duree_pret = $expl_properties -> duree_pret; } } else { if($pmb_quotas_avances) { //Initialisation de la classe $qt=new quota("LEND_TIME_QUOTA"); $struct["READER"]=$id_empr; $struct["EXPL"]=$id_expl; $duree_pret=$qt->get_quota_value($struct); if ($duree_pret==-1) $duree_pret=0; } else { $query = "SELECT duree_pret"; $query.= " FROM exemplaires, docs_type"; $query.= " WHERE expl_id='".$id_expl; $query.= "' and idtyp_doc=expl_typdoc LIMIT 1"; $result = @ pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query); $expl_properties = pmb_mysql_fetch_object($result); $duree_pret = $expl_properties -> duree_pret; } } } // calculer la date de retour prévue, tenir compte de la date de fin d'adhésion if (!$duree_pret) { $duree_pret='0' ; } if($pmb_pret_date_retour_adhesion_depassee) { $rqt_date = "select empr_date_expiration,if(empr_date_expiration>date_add('".$pret_date."', INTERVAL '$duree_pret' DAY),0,1) as pret_depasse_adhes, date_add('".$pret_date."', INTERVAL '$duree_pret' DAY) as date_retour from empr where id_empr='".$id_empr."'"; } else { $rqt_date = "select empr_date_expiration,if(empr_date_expiration>date_add('".$pret_date."', INTERVAL '$duree_pret' DAY),0,1) as pret_depasse_adhes, if(empr_date_expiration>date_add('".$pret_date."', INTERVAL '$duree_pret' DAY),date_add('".$pret_date."', INTERVAL '$duree_pret' DAY),empr_date_expiration) as date_retour from empr where id_empr='".$id_empr."'"; } $resultatdate = pmb_mysql_query($rqt_date) or die(pmb_mysql_error()."

$rqt_date

"); $res = pmb_mysql_fetch_object($resultatdate) ; $date_retour = $res->date_retour ; $pret_depasse_adhes = $res->pret_depasse_adhes ; $empr_date_expiration= $res->empr_date_expiration; if ($pmb_utiliser_calendrier) { if (($pret_depasse_adhes==0) || $pmb_pret_date_retour_adhesion_depassee) { $rqt_date = "select date_ouverture from ouvertures where ouvert=1 and to_days(date_ouverture)>=to_days('$date_retour') and num_location=$deflt2docs_location order by date_ouverture "; $resultatdate=pmb_mysql_query($rqt_date); if(pmb_mysql_num_rows($resultatdate)) { $res = pmb_mysql_fetch_object($resultatdate) ; if ($res->date_ouverture) $date_retour=$res->date_ouverture ; } } else { $rqt_date = "select date_ouverture from ouvertures where date_ouverture>=sysdate() and ouvert=1 and to_days(date_ouverture)<=to_days('$date_retour') and num_location=$deflt2docs_location order by date_ouverture DESC"; $resultatdate=pmb_mysql_query($rqt_date); if(pmb_mysql_num_rows($resultatdate)) { $res = pmb_mysql_fetch_object($resultatdate) ; if ($res->date_ouverture) $date_retour=$res->date_ouverture ; } } // Si la date_retour, calculée ci-dessus d'après le calendrier, dépasse l'adhésion, alors que c'est interdit, // la date de retour doit etre le dernier jour ouvert if(!$pmb_pret_date_retour_adhesion_depassee){ $rqt_date = "SELECT DATEDIFF('$empr_date_expiration','$date_retour')as diff"; $resultatdate=pmb_mysql_query($rqt_date); $res=@pmb_mysql_fetch_object($resultatdate) ; if ($res->diff<0) { $rqt_date = "select date_ouverture from ouvertures where date_ouverture>=sysdate() and ouvert=1 and to_days(date_ouverture)<=to_days('$empr_date_expiration') and num_location=$deflt2docs_location order by date_ouverture DESC"; $resultatdate=pmb_mysql_query($rqt_date); $res=@pmb_mysql_fetch_object($resultatdate) ; if ($res->date_ouverture) $date_retour=$res->date_ouverture ; } } } // insérer le prêt $query = "INSERT INTO pret SET "; $query.= "pret_idempr = '".$id_empr."', "; $query.= "pret_idexpl = '".$id_expl."', "; $query.= "pret_date = sysdate(), "; $query.= "pret_retour = '$date_retour', "; $query.= "retour_initial = '$date_retour', "; $query.= "short_loan_flag = ".(($pmb_short_loan_management && $short_loan)?"'1'":"'0'"); $result = @ pmb_mysql_query($query, $dbh) or die(pmb_mysql_error()."
can't INSERT into pret".$query); // insérer la trace en stat, récupérer l'id et le mettre dans la table des prêts pour la maj ultérieure $stat_avant_pret = pret_construit_infos_stat ($id_expl) ; $stat_id = stat_stuff ($stat_avant_pret) ; $query = "update pret SET pret_arc_id='$stat_id' where "; $query.= "pret_idempr = '".$id_empr."' and "; $query.= "pret_idexpl = '".$id_expl."' "; $result = @ pmb_mysql_query($query, $dbh) or die("can't update pret for stats ".$query); audit::insert_creation (AUDIT_PRET, $stat_id) ; //enregistrer les champs perso pret $p_perso=new pret_parametres_perso("pret"); $p_perso->rec_fields_perso($stat_id); if($resarc_id){ $rqt_arch = "UPDATE resa_archive SET resarc_arcpretid = $stat_id WHERE resarc_id = '".$resarc_id."' "; @ pmb_mysql_query($rqt_arch, $dbh); } $query = "update exemplaires SET "; $query.= "last_loan_date = sysdate() "; $query.= "where expl_id= '".$id_expl."' "; $result = @ pmb_mysql_query($query, $dbh) or die("can't update last_loan_date in exemplaires : ".$query); $query = "update exemplaires SET "; $query.= "expl_retloc=0 "; $query.= "where expl_id= '".$id_expl."' "; $result = @ pmb_mysql_query($query, $dbh) or die("can't update expl_retloc in exemplaires : ".$query); $query = "update empr SET "; $query.= "last_loan_date = sysdate() "; $query.= "where id_empr= '".$id_empr."' "; $result = @ pmb_mysql_query($query, $dbh) or die("can't update last_loan_date in empr : ".$query); $query = "delete from resa_ranger "; $query .= "where resa_cb='".$cb_doc."'"; $result = @ pmb_mysql_query($query, $dbh) or die("can't delete cb_doc in resa_ranger : ".$query); //Débit du compte lecteur si nécessaire if (($pmb_gestion_financiere)&&($pmb_gestion_tarif_prets)) { $tarif_pret=0; switch ($pmb_gestion_tarif_prets) { case 1: //Gestion simple $query = "SELECT tarif_pret"; $query.= " FROM exemplaires, docs_type"; $query.= " WHERE expl_id='".$id_expl; $query.= "' and idtyp_doc=expl_typdoc LIMIT 1"; $result = @ pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query); $expl_tarif = pmb_mysql_fetch_object($result); $tarif_pret = $expl_tarif -> tarif_pret; break; case 2: //Gestion avancée $qt_tarif=new quota("COST_LEND_QUOTA","$include_path/quotas/own/$lang/finances.xml"); $struct["READER"]=$id_empr; $struct["EXPL"]=$id_expl; $tarif_pret=$qt_tarif->get_quota_value($struct); break; } $tarif_pret=$tarif_pret*1; if ($tarif_pret) { $compte_id=comptes::get_compte_id_from_empr($id_empr,3); if ($compte_id) { $cpte=new comptes($compte_id); $explaire = new exemplaire('',$id_expl); if($explaire->id_notice == 0 && $explaire->id_bulletin){ //C'est un exemplaire de bulletin $bulletin = new bulletinage_display($explaire->id_bulletin); $titre = strip_tags($bulletin->display); } elseif($explaire->id_notice) { $notice = new mono_display($explaire->id_notice); $titre = strip_tags($notice->header); } $libelle_expl = (strlen($titre)>15)?$explaire->cb." ".$titre:$explaire->cb." ".$titre; $cpte->record_transaction("",abs($tarif_pret),-1,sprintf($msg["finance_pret_expl"],$libelle_expl),0); } } } if ($pmb_transferts_actif){ // si transferts validé (en attente d'envoi), il faut restaurer le statut global $PMBuserid; $rqt = "SELECT id_transfert FROM transferts,transferts_demande where num_transfert=id_transfert and etat_demande=1 and num_expl =$id_expl and etat_transfert=0 and sens_transfert=0"; $res = pmb_mysql_query( $rqt ); if (pmb_mysql_num_rows($res)){ $obj = pmb_mysql_fetch_object($res); $idTrans=$obj->id_transfert; //Récupération des informations d'origine $rqt = "SELECT statut_origine, num_expl FROM transferts INNER JOIN transferts_demande ON id_transfert=num_transfert WHERE id_transfert=".$idTrans." AND sens_transfert=0"; $res = pmb_mysql_query($rqt); $obj_data = pmb_mysql_fetch_object($res); //on met à jour $rqt = "UPDATE exemplaires SET expl_statut=".$obj_data->statut_origine." WHERE expl_id=".$obj_data->num_expl; pmb_mysql_query( $rqt ); } // cloture les demandes de transfert pour résa, refusée ou pas // afin de générer les transfert en automatique dans le circuit classique des résa $req=" update transferts,transferts_demande set etat_transfert=1 , motif=CONCAT(motif,'. Cloture, car parti en pret (gestion $PMBuserid, $id_empr)') where num_transfert=id_transfert and (etat_demande=4 or etat_demande=0 or etat_demande=1)and etat_demande != 3 and etat_demande!=2 and etat_demande!=5 and num_expl =$id_expl and etat_transfert=0 and sens_transfert=0 "; pmb_mysql_query($req, $dbh); } // invalidation des résas avec ce code-barre, au cas où // $query = "update resa SET resa_cb='' where resa_cb='".$cb_doc."' "; // $result = @ pmb_mysql_query($query, $dbh) or die("can't update resa ".$query); /** * Publication d'un évenement à l'enregistrement du prêt en base (pièges passés et prêt validé (quotas etc..) ) */ $evt_handler = events_handler::get_instance(); $event = new event_loan("loan", "add_loan"); $event->set_id_loan($stat_id); $event->set_id_empr($id_empr); $evt_handler->send($event); } // efface une résa pour un emprunteur donné et réaffecte le cb éventuellement function del_resa($id_empr, $id_notice, $id_bulletin, $cb_encours_de_pret) { global $dbh; if (!$id_empr || (!$id_notice && !$id_bulletin)) return FALSE; if (!$id_notice) $id_notice = 0; if (!$id_bulletin) $id_bulletin = 0; $rqt = "select resa_cb, id_resa, resa_planning_id_resa from resa where resa_idnotice='".$id_notice."' and resa_idbulletin='".$id_bulletin."' and resa_idempr='".$id_empr."' "; $res = pmb_mysql_query($rqt, $dbh); $obj = pmb_mysql_fetch_object($res); $cb_recup = $obj->resa_cb; $id_resa = $obj->id_resa; // suppression resa $rqt = "delete from resa where id_resa='".$id_resa."' "; $res = pmb_mysql_query($rqt, $dbh); // suppression de la prévision associée à la resa resa_planning::delete($obj->resa_planning_id_resa); // si on delete une resa à partir d'un prêt, on invalide la résa qui était validée avec le cb, mais on ne change pas les dates, ça sera fait par affect_cb $rqt_invalide_resa = "update resa set resa_cb='' where resa_cb='".$cb_encours_de_pret."' " ; $res = pmb_mysql_query($rqt_invalide_resa, $dbh) ; // réaffectation du doc éventuellement if ($cb_recup != $cb_encours_de_pret) { // les cb sont différents if (!verif_cb_utilise($cb_recup)) { // le cb qui était affecté à la résa qu'on vient de supprimer n'est pas utilisé // on va affecter le cb_récupéré à une resa non validée $res_affectation = affecte_cb($cb_recup) ; if (!$res_affectation && $cb_recup) { // cb non réaffecté, il faut transférer les infos de la résa dans la table des docs à ranger $rqt = "insert into resa_ranger (resa_cb) values ('".$cb_recup."') "; $res = pmb_mysql_query($rqt, $dbh); } } } // Au cas où il reste des résa invalidées par resa_cb, on leur colle les dates comme il faut... $rqt_invalide_resa = "update resa set resa_date_debut='0000-00-00', resa_date_fin='0000-00-00' where resa_cb='' " ; $res = pmb_mysql_query($rqt_invalide_resa, $dbh) ; return TRUE; } function get_display_custom_fields($id_empr,$id_expl) { $p_perso=new pret_parametres_perso("pret"); if(!$p_perso->no_special_fields) { $query_custom = "select pret_arc_id from pret where pret_idempr='".$id_empr."' and pret_idexpl='".$id_expl."'"; $result_custom = pmb_mysql_query($query_custom); if ($result_custom && pmb_mysql_result($result_custom,0,0)) { $pret_arc_id = pmb_mysql_result($result_custom,0,0); $perso_ = $p_perso->show_fields($pret_arc_id); $perso=""; if (count($perso_["FIELDS"])) { for ($i=0; $i"; } $perso."
"; } return $perso; } } }