".$msg[384]."
"; 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 = mysql_query($query, $dbh); $stat_id = mysql_fetch_object($result) ; $result = 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 le prêt annulé $query = "delete from pret "; $query.= "where pret_idexpl = '".$id_expl."' "; $result = 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 (!$expl_todo && $deflt_docs_location) { $sql = "SELECT expl_retloc FROM exemplaires where expl_retloc='".$deflt_docs_location."' and expl_id='".$id_expl."' "; $req = mysql_query($sql) or die ($msg["err_sql"]."
".$sql."
".mysql_error()); $nb = 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 ? if (!$quota) { $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 (!$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=mysql_query($rqt_arch, $dbh); if(mysql_num_rows($pretarc_res)){ $pret_arc=1; $res_pret_arc = 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] : "; $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 réservations planifiées if ($warning_text) $warning_text.= "
"; $warning_text.= "
".htmlentities($msg['resa_planning_encours'], ENT_QUOTES, $charset)." ".$reservataire_nom_prenom."
"; //Affichage des réservations sur le document courant $q = "SELECT id_resa, resa_idnotice, 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 in (select expl_notice from exemplaires where expl_cb = '".$cb_doc."') "; if ($pmb_location_resa_planning) $q.= "and empr_location in (select expl_location from exemplaires where expl_cb = '".$cb_doc."') "; $r = mysql_query($q, $dbh); if (mysql_num_rows($r)) { $warning_text.= "
".$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 "; 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=mysql_query($rqt_arch, $dbh); $resarc = 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 = 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 "; 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=mysql_query($rqt_arch, $dbh); $resarc = 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 = mysql_query($rqt, $dbh); $titre_prete = mysql_result($result_pret, 0, 0).mysql_result($result_pret, 0, 1); */ 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.= "
"; $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) { $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 "; 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=mysql_query($rqt_arch, $dbh); $resarc = 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); } // 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 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.= "
"; // 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 = mysql_query($query_empr, $dbh); if(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 = mysql_query($query, $dbh); $id = @ mysql_result($result, '0', 'id'); if (($id) && ($form_cb)) { $erreur_affichage = "
"; if ($id_notice) { if ($type_resa) echo ""; else echo ""; } elseif($id_bulletin) { echo ""; } else { $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 from suggestions, suggestions_origine where num_suggestion=id_suggestion and origine='".$ori."' and type_origine='1' "; $res=mysql_query($req,$dbh); $btn_sug = ""; $sug = mysql_fetch_object($res); if($sug->nb){ $btn_sug = ""; } $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.= "
";
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 = mysql_query($query, $dbh);
return 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 = mysql_query($query, $dbh);
return @ 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 réservations sont planifiées 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 résas planifiées
*/
function check_document($id_expl, $id_empr) {
global $dbh;
global $pmb_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, 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 = mysql_query($query, $dbh);
// exemplaire inconnu
if (!mysql_num_rows($result)) {
$retour -> flag = EX_INCONNU;
return $retour;
}
$expl = 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 -> 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 = mysql_query($query, $dbh);
if (@ mysql_num_rows($result)) {
// l'exemplaire est déjà en prêt
$empr = 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' order by resa_date limit 1";
$result = mysql_query($query, $dbh);
if (mysql_num_rows($result)) {
$reservataire = mysql_result($result, 0, 'empr');
$id_resa = mysql_result($result, 0, 'id_resa');
$resa_cb = mysql_result($result, 0, 'resa_cb');
$nom_prenom = mysql_result($result, 0, 'nom_prenom');
$empr_cb = 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 ;
}
}
// cas des réservations planifiées
if($pmb_resa_planning) {
global $pmb_location_resa_planning;
// On compte les réservations planifiées sur ce document à des dates ultérieures
$q = "select resa_idempr as empr, id_resa, concat(ifnull(concat(empr_nom,' '),''),empr_prenom) as nom_prenom ";
$q.= "from resa_planning left join empr on resa_idempr=id_empr ";
$q.= "where resa_idnotice = '".$expl->notice."' ";
if ($pmb_location_resa_planning) $q.= "and empr_location='".$expl->expl_location."' ";
$q.= "and resa_date_debut >= curdate() ";
$q.= "order by resa_date_debut ";
$r = mysql_query($q, $dbh);
$nb_resa = mysql_num_rows($r);
// On compte les exemplaires disponibles
$q = "select count(1) ";
$q.= "from exemplaires left join pret on expl_notice = pret_idexpl ";
$q.= "and pret_idexpl is null ";
$q.= "where expl_notice = '".$expl->notice."' ";
if ($pmb_location_resa_planning) $q.= "and expl_location='".$expl->expl_location."'";
$r = mysql_query($q, $dbh);
$nb_dispo = mysql_result($r, 0, 0);
//$retour -> idnotice = $expl -> notice;
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 = mysql_query($qp, $dbh);
$np=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 = mysql_query($qpa, $dbh);
$npa=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;
/* on prépare la date de début*/
$pret_date = today();
/* 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 = @ mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query);
$expl_properties = 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 = @ mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query);
$expl_properties = 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 = mysql_query($rqt_date) or die(mysql_error()."
$rqt_date
"); $res = 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=mysql_query($rqt_date); $res=@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=mysql_query($rqt_date); $res=@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=mysql_query($rqt_date); $res=@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=mysql_query($rqt_date); $res=@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 = @ mysql_query($query, $dbh) or die(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 = @ mysql_query($query, $dbh) or die("can't update pret for stats ".$query); audit::insert_creation (AUDIT_PRET, $stat_id) ; if($resarc_id){ $rqt_arch = "UPDATE resa_archive SET resarc_arcpretid = $stat_id WHERE resarc_id = '".$resarc_id."' "; @ mysql_query($rqt_arch, $dbh); } $query = "update exemplaires SET "; $query.= "last_loan_date = sysdate() "; $query.= "where expl_id= '".$id_expl."' "; $result = @ 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 = @ 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 = @ 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 = @ 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 = @ mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query); $expl_tarif = mysql_fetch_object($result); $tarif_pret = $expl_tarif -> tarif_pret; break; case 2: //Gestion avancée //Initialisation Quotas global $_parsed_quotas_; $_parsed_quotas_=false; $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 = mysql_query ( $rqt ); if (mysql_num_rows($res)){ $obj = 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 = mysql_query($rqt); $obj_data = mysql_fetch_object($res); //on met à jour $rqt = "UPDATE exemplaires SET expl_statut=".$obj_data->statut_origine." WHERE expl_id=".$obj_data->num_expl; 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 "; 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 = @ mysql_query($query, $dbh) or die("can't update resa ".$query); } // 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 from resa where resa_idnotice='".$id_notice."' and resa_idbulletin='".$id_bulletin."' and resa_idempr='".$id_empr."' "; $res = mysql_query($rqt, $dbh); $obj = mysql_fetch_object($res); $cb_recup = $obj->resa_cb; $id_resa = $obj->id_resa; // suppression $rqt = "delete from resa where id_resa='".$id_resa."' "; $res = mysql_query($rqt, $dbh); // 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 = 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 = 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 = mysql_query ($rqt_invalide_resa, $dbh) ; return TRUE; }
"; 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 = mysql_query($query, $dbh); $stat_id = mysql_fetch_object($result) ; $result = 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 le prêt annulé $query = "delete from pret "; $query.= "where pret_idexpl = '".$id_expl."' "; $result = mysql_query($query, $dbh); $erreur_affichage = "
".str_replace('!!cb_expl!!', $cb_doc, $msg[607])."
"; $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 (!$expl_todo && $deflt_docs_location) { $sql = "SELECT expl_retloc FROM exemplaires where expl_retloc='".$deflt_docs_location."' and expl_id='".$id_expl."' "; $req = mysql_query($sql) or die ($msg["err_sql"]."
".$sql."
".mysql_error()); $nb = mysql_num_rows($req) ; if($nb) { $erreur_affichage = "
$titre_prete : ".$msg["circ_pret_piege_expl_todo"]."
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; $erreur_affichage.= " "; $erreur_affichage.= "
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; $erreur_affichage.= " "; $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 ? if (!$quota) { $qt=check_quota($id_empr, $id_expl); //Si quota violé if (is_array($qt)) { $erreur_affichage = "
$titre_prete : ".$qt["MESSAGE"]."
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; if ($qt["FORCE"]==1) { $quota = 1; $erreur_affichage.= " "; } $erreur_affichage.= "
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; if ($qt["FORCE"]==1) { $quota = 1; $erreur_affichage.= " "; } $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 (!$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=mysql_query($rqt_arch, $dbh); if(mysql_num_rows($pretarc_res)){ $pret_arc=1; $res_pret_arc = mysql_fetch_object($pretarc_res); $resarc_id = $res_pret_arc->resarc_id; $erreur_affichage = "
$titre_prete : ".$msg['pret_already_loaned_arch']."
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; $erreur_affichage.= " "; $erreur_affichage.= "
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; $erreur_affichage.= " "; $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] : "; $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 = "
$titre_prete : ".$transfert->check_pret_error_message."
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; $erreur_affichage.= "
"; $alert_sound_list[]="critique"; $erreur_affichage.= ""; $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 réservations planifiées if ($warning_text) $warning_text.= "
"; $warning_text.= "
".htmlentities($msg['resa_planning_encours'], ENT_QUOTES, $charset)." ".$reservataire_nom_prenom.""; //Affichage des réservations sur le document courant $q = "SELECT id_resa, resa_idnotice, 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 in (select expl_notice from exemplaires where expl_cb = '".$cb_doc."') "; if ($pmb_location_resa_planning) $q.= "and empr_location in (select expl_location from exemplaires where expl_cb = '".$cb_doc."') "; $r = mysql_query($q, $dbh); if (mysql_num_rows($r)) { $warning_text.= "
";
while ($resa = mysql_fetch_array($r)) {
$id_resa = $resa['id_resa'];
$resa_idempr = $resa['resa_idempr'];
$resa_idnotice = $resa['resa_idnotice'];
$resa_date = $resa['resa_date'];
$resa_date_debut = $resa['resa_date_debut'];
$resa_date_fin = $resa['resa_date_fin'];
$resa_validee = $resa['resa_validee'];
$resa_nom = $resa['resa_nom'];
$resa_same = $resa['resa_same'];
if ($resa_idempr==$id_empr) {
$warning_text.= "".htmlentities($resa_nom, ENT_QUOTES, $charset)." ";
} else {
$warning_text.= htmlentities($resa_nom, ENT_QUOTES, $charset)." ";
}
$warning_text.= " >> ".$msg['resa_planning_date_debut']." ".formatdate($resa_date_debut)." ".$msg['resa_planning_date_fin']." ".formatdate($resa_date_fin)." " ;
if (!$resa['perimee']) {
if ($resa['resa_validee']) $warning_text.= " ".$msg['resa_validee'] ;
else $warning_text.= " ".$msg['resa_attente_validation']." " ;
} else $warning_text.= " ".$msg['resa_overtime']." " ;
$warning_text.= "
" ; } //while $warning_text.= "
";
} // if (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 = mysql_query($qd,$dbh);
if (mysql_num_rows($rd)) {
$nd = mysql_result($rd,0,0);
}
}
$warning_text.= sprintf("" ; } //while $warning_text.= "
".$msg['loan_trust_warning'],$pmb_loan_trust_management,$nd); $serious = TRUE; } $erreur_affichage = "
$information_text
$titre_prete : $warning_text
"; $alert_sound_list[]="question"; $erreur_affichage.= ""; $confirm = $statut -> flag ; $erreur_affichage.= " "; $erreur_affichage.= " "; $erreur_affichage.= "
"; $alert_sound_list[]="question"; $erreur_affichage.= ""; $confirm = $statut -> flag ; $erreur_affichage.= " "; $erreur_affichage.= " "; $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 "; 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=mysql_query($rqt_arch, $dbh); $resarc = 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 = 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 "; 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=mysql_query($rqt_arch, $dbh); $resarc = 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 = mysql_query($rqt, $dbh); $titre_prete = mysql_result($result_pret, 0, 0).mysql_result($result_pret, 0, 1); */ 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."
".$titre_prete." : ".$msg[384]."
"; $alert_sound_list[]="information"; $erreur_affichage.= ""; $erreur_affichage.= " "; $erreur_affichage.= "
"; $alert_sound_list[]="information"; $erreur_affichage.= ""; $erreur_affichage.= " "; $erreur_affichage.= "
".$statut->expl_comment."
";
$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 = "$titre_prete : $msg[384]
"; $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 = "
$titre_prete : $msg[386]
"; $alert_sound_list[]="critique"; } if ($statut -> flag & ALREADY_BORROWED) { $erreur_affichage = "
$titre_prete : $msg[387]
"; $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 "; 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=mysql_query($rqt_arch, $dbh); $resarc = 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); } // 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 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."
$titre_prete : ".$msg[384]."
"; if($pmb_play_pret_sound)$alert_sound_list[]="information"; $erreur_affichage.= ""; if($pmb_printer_ticket_url) $erreur_affichage.="
";
else $erreur_affichage.= " ";
$erreur_affichage.= "
"; if($pmb_play_pret_sound)$alert_sound_list[]="information"; $erreur_affichage.= ""; if($pmb_printer_ticket_url) $erreur_affichage.="
";
else $erreur_affichage.= " ";
$erreur_affichage.= "".$statut->expl_comment."
";
$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.= "";
} // fin else if ($statut -> flag & ALREADY_LOANED || $statut -> flag & ALREADY_BORROWED) {
} // fin de quoi ???
} else { // pas d'exemplaire avec ce code-barre
$erreur_affichage = "$cb_doc : $msg[367]
"; // 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 = mysql_query($query_empr, $dbh); if(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 = "
$msg[pret_impossible_adhesion]
"; $empr = new emprunteur($id_empr, $erreur_affichage, FALSE, 1); $affichage = $empr -> fiche; } } else { // afficher 'lecteur inconnu' $erreur_affichage = "
$msg[388]
"; $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 = mysql_query($query, $dbh); $id = @ mysql_result($result, '0', 'id'); if (($id) && ($form_cb)) { $erreur_affichage = "
"; if ($id_notice) { if ($type_resa) echo ""; else echo ""; } elseif($id_bulletin) { echo ""; } else { $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 from suggestions, suggestions_origine where num_suggestion=id_suggestion and origine='".$ori."' and type_origine='1' "; $res=mysql_query($req,$dbh); $btn_sug = ""; $sug = mysql_fetch_object($res); if($sug->nb){ $btn_sug = ""; } $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.= " |
$rqt_date
"); $res = 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=mysql_query($rqt_date); $res=@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=mysql_query($rqt_date); $res=@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=mysql_query($rqt_date); $res=@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=mysql_query($rqt_date); $res=@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 = @ mysql_query($query, $dbh) or die(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 = @ mysql_query($query, $dbh) or die("can't update pret for stats ".$query); audit::insert_creation (AUDIT_PRET, $stat_id) ; if($resarc_id){ $rqt_arch = "UPDATE resa_archive SET resarc_arcpretid = $stat_id WHERE resarc_id = '".$resarc_id."' "; @ mysql_query($rqt_arch, $dbh); } $query = "update exemplaires SET "; $query.= "last_loan_date = sysdate() "; $query.= "where expl_id= '".$id_expl."' "; $result = @ 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 = @ 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 = @ 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 = @ 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 = @ mysql_query($query, $dbh) or die("can't SELECT exemplaires ".$query); $expl_tarif = mysql_fetch_object($result); $tarif_pret = $expl_tarif -> tarif_pret; break; case 2: //Gestion avancée //Initialisation Quotas global $_parsed_quotas_; $_parsed_quotas_=false; $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 = mysql_query ( $rqt ); if (mysql_num_rows($res)){ $obj = 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 = mysql_query($rqt); $obj_data = mysql_fetch_object($res); //on met à jour $rqt = "UPDATE exemplaires SET expl_statut=".$obj_data->statut_origine." WHERE expl_id=".$obj_data->num_expl; 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 "; 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 = @ mysql_query($query, $dbh) or die("can't update resa ".$query); } // 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 from resa where resa_idnotice='".$id_notice."' and resa_idbulletin='".$id_bulletin."' and resa_idempr='".$id_empr."' "; $res = mysql_query($rqt, $dbh); $obj = mysql_fetch_object($res); $cb_recup = $obj->resa_cb; $id_resa = $obj->id_resa; // suppression $rqt = "delete from resa where id_resa='".$id_resa."' "; $res = mysql_query($rqt, $dbh); // 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 = 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 = 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 = mysql_query ($rqt_invalide_resa, $dbh) ; return TRUE; }