expl_typdoc;
$query .= " AND l.idlocation=".$stuff->expl_location;
$query .= " AND s.idsection=".$stuff->expl_section;
$query .= " LIMIT 1";
$result = pmb_mysql_query($query);
$info_doc = pmb_mysql_fetch_object($result);
print pmb_bidi(" ";
//Champs personalisés
$p_perso=new parametres_perso("expl");
$perso_aff = "" ;
if (!$p_perso->no_special_fields) {
$perso_=$p_perso->show_fields($stuff->expl_id);
for ($i=0; $i".$perso_aff."" ;
print pret::get_display_antivol($stuff->expl_id);
//si le retour se passe sur un site différent de ce lui de l'exemplaire
global $pmb_transferts_actif;
$transfert_mauvais_site = false;
if ($stuff->expl_location != $deflt_docs_location) {
pret::add_alert_sound_list('critique');
$html_erreur_site = "
";
//on agit pour faire l'action par defaut
//et que c'est un retour d'emprunt
if (($pmb_transferts_actif)&&($stuff->pret_idempr)) {
global $transferts_retour_action_defaut;
global $transferts_retour_action_autorise_autre;
$trans = new transfert();
//pour afficher le site de l'exemplaire
$rqtSite = "SELECT location_libelle FROM docs_location WHERE idlocation=".$stuff->expl_location;
$resSite = pmb_mysql_result(pmb_mysql_query($rqtSite),0);
//si on propose une autre action
if ($transferts_retour_action_autorise_autre=="1") {
$texte_change_loc = str_replace("!!lbl_site!!", $resSite,$msg["transferts_circ_retour_lbl_change_localisation"]);
}
$texte_change_loc = str_replace("!!liste_sections!!","", $texte_change_loc);
//on genere la liste des sections
$rqt = "SELECT idsection, section_libelle FROM docs_section ORDER BY section_libelle";
$res_section = pmb_mysql_query($rqt);
$liste_section = "";
while($value = pmb_mysql_fetch_object($res_section)) {
$liste_section .= "";
}
$texte_change_loc = addslashes(str_replace("!!liste!!", $liste_section, $texte_change_loc));
$html_erreur_site .= "
";
$html_erreur_site = str_replace("!!lbl_site!!", $resSite, $html_erreur_site);
$html_erreur_site = str_replace("!!liste_sections!!", $expl_section_libelle, $html_erreur_site);
$transfert_mauvais_site = true;
} else { //if (($pmb_transferts_actif)&&($stuff->pret_idempr))
//le message à l'écran
$html_erreur_site .= $msg['expl_retour_bad_location'];
}
$html_erreur_site .= "
";
print pmb_bidi($html_erreur_site);
// fin de if ($stuff->expl_location != $deflt_docs_location)
}
if ($stuff->expl_note) {
pret::add_alert_sound_list('critique');
print pmb_bidi("
${msg[377]} :
".nl2br($stuff->expl_note)."
");
} elseif($pmb_play_pret_sound) $alert_sound_list[]="information";
// zone du dernier emrunteur
if ($stuff->expl_lastempr) {
$dernier_empr = "
";
}
if ($stuff->pret_idempr) {
//choix du mode de calcul
$loc_calendar = 0;
global $pmb_utiliser_calendrier, $pmb_utiliser_calendrier_location;
if (($pmb_utiliser_calendrier==1) && $pmb_utiliser_calendrier_location) {
$loc_calendar = $stuff->expl_location;
}
// l'exemplaire était effectivement emprunté
// calcul du retard éventuel
$rqt_date = "select ((TO_DAYS(CURDATE()) - TO_DAYS('$stuff->pret_retour'))) as retard ";
$resultatdate=pmb_mysql_query($rqt_date);
$resdate=pmb_mysql_fetch_object($resultatdate);
$retard = $resdate->retard;
if($retard > 0) {
//Calcul du vrai nombre de jours
$date_debut=explode("-",$stuff->pret_retour);
$ndays=calendar::get_open_days($date_debut[2],$date_debut[1],$date_debut[0],date("d"),date("m"),date("Y"),$loc_calendar);
if ($ndays>0) {
$retard = (int)$ndays;
print "
".$msg[369]." : ".$retard." ".$msg[370]."
";
$alert_sound_list[]="critique";
}
}
//Calcul du blocage
if ($pmb_blocage_retard) {
$date_debut=explode("-",$stuff->pret_retour);
$ndays=calendar::get_open_days($date_debut[2],$date_debut[1],$date_debut[0],date("d"),date("m"),date("Y"),$loc_calendar);
if ($ndays>$pmb_blocage_delai) {
$ndays=$ndays*$pmb_blocage_coef;
if (($ndays>$pmb_blocage_max)&&($pmb_blocage_max!=0)) {
if ($pmb_blocage_max!=-1) {
$ndays=$pmb_blocage_max;
}
}
} else $ndays=0;
if ($ndays>0) {
//Le lecteur est-il déjà bloqué ?
$date_fin_blocage_empr = pmb_mysql_result(pmb_mysql_query("select date_fin_blocage from empr where id_empr='".$stuff->pret_idempr."'"),0,0);
//Calcul de la date de fin
if ($pmb_blocage_max!=-1) {
$date_fin=calendar::add_days(date("d"),date("m"),date("Y"),$ndays,$loc_calendar);
} else {
$date_fin=calendar::add_days(date("d"),date("m"),date("Y"),0,$loc_calendar);
}
if ($date_fin > $date_fin_blocage_empr) {
//Mise à jour
pmb_mysql_query("update empr set date_fin_blocage='".$date_fin."' where id_empr='".$stuff->pret_idempr."'");
print "
";
pret::add_alert_sound_list('critique');
}
}
}
//Vérification des amendes
if (($pmb_gestion_financiere) && ($pmb_gestion_amende)) {
$amende=new amende($stuff->pret_idempr);
$amende_t=$amende->get_amende($stuff->pret_idexpl);
//Si il y a une amende, je la débite
if ($amende_t["valeur"]) {
print pmb_bidi("
";
}
}
// zone du dernier emrunteur
print pmb_bidi($dernier_empr) ;
// code de suppression prêt et la mise en table de stat
if ($confirmed){
if (del_pret($stuff)) {
if (!maj_stat_pret($stuff)) {
// impossible de maj en table stat
print "
${msg[371]}
";
}
} else {
// impossible de supprimer en table pret
print "
${msg[372]}
";
}
// traitement de l'éventuelle réservation
if ($stuff->resa_idempr) {
// le doc en retour peut servir à valider une résa suivante
if (!verif_cb_utilise ($stuff->expl_cb) || $affect) {
if(!$affect)$affect = affecte_cb ($stuff->expl_cb) ;
// affichage message de réservation
if ($affect) {
$trans_en_cours = false;
$msg_trans = "";
if (($pmb_transferts_actif=="1")&&(!$transfert_mauvais_site)) {
//si le transfert est actif et qu'un transfert n'est pas deja fait
$res_transfert = resa_transfert($affect,$stuff->expl_cb);
if ($res_transfert!=0) {
$rqt = "SELECT location_libelle FROM docs_location WHERE idlocation=".$res_transfert;
$lib_loc = pmb_mysql_result(pmb_mysql_query($rqt),0);
$msg_trans = "".str_replace("!!site_dest!!",$lib_loc,$msg["transferts_circ_resa_validation_alerte"])." ";
$trans_en_cours = true;
}
}
$query = "select distinct ";
$query .= "empr_prenom, empr_nom, empr_cb ";
$query .= "from (((resa LEFT JOIN notices AS notices_m ON resa_idnotice = notices_m.notice_id ) LEFT JOIN bulletins ON resa_idbulletin = bulletins.bulletin_id) LEFT JOIN notices AS notices_s ON bulletin_notice = notices_s.notice_id), empr ";
$query .= "where id_resa in (".$affect.") and resa_idempr=id_empr";
$result = pmb_mysql_query($query);
$empr=@pmb_mysql_fetch_object($result);
print pmb_bidi("
");
$alert_sound_list[]="critique" ;
if (!$trans_en_cours)
alert_empr_resa($affect) ;
} // fin if affect
} // fin if !verif_cb_utilise
} // fin if resa
}// fin confirmed
$empr = new emprunteur($stuff->pret_idempr, $erreur_affichage, FALSE, 2);
print pmb_bidi($empr -> fiche_affichage);
} else {
print "
${msg[605]}
";
pret::add_alert_sound_list('critique');
}
// show_report($stuff); // this stands for debugging
}
// mise en table stat des infos du prêt
function stat_stuff ($stuff) {
global $empr_archivage_prets, $empr_archivage_prets_purge;
if(!is_object($stuff)) die ("Pb in ./circ/pret_func.inc.php [stat_stuff()].");
$query = "insert into pret_archive set ";
$query .= "arc_debut='".$stuff->pret_date."', ";
$query .= "arc_fin='".$stuff->pret_retour."', ";
if ($empr_archivage_prets) $query .= "arc_id_empr='".addslashes($stuff->id_empr) ."', ";
$query .= "arc_empr_cp='". addslashes($stuff->empr_cp) ."', ";
$query .= "arc_empr_ville='". addslashes($stuff->empr_ville) ."', ";
$query .= "arc_empr_prof='". addslashes($stuff->empr_prof) ."', ";
$query .= "arc_empr_year='". addslashes($stuff->empr_year) ."', ";
$query .= "arc_empr_categ='". $stuff->empr_categ ."', ";
$query .= "arc_empr_codestat='". $stuff->empr_codestat ."', ";
$query .= "arc_empr_sexe='". $stuff->empr_sexe ."', ";
$query .= "arc_empr_statut='". $stuff->empr_statut ."', ";
$query .= "arc_empr_location='". $stuff->empr_location ."', ";
$query .= "arc_type_abt='". $stuff->type_abt ."', ";
$query .= "arc_expl_typdoc='". $stuff->expl_typdoc ."', ";
$query .= "arc_expl_id='". $stuff->expl_id ."', ";
$query .= "arc_expl_notice='". $stuff->expl_notice ."', ";
$query .= "arc_expl_bulletin='". $stuff->expl_bulletin ."', ";
$query .= "arc_expl_cote='". addslashes($stuff->expl_cote) ."', ";
$query .= "arc_expl_statut='". $stuff->expl_statut ."', ";
$query .= "arc_expl_location='". $stuff->expl_location ."', ";
$query .= "arc_expl_section='". $stuff->expl_section ."', ";
$query .= "arc_expl_codestat='". $stuff->expl_codestat ."', ";
$query .= "arc_expl_owner='". $stuff->expl_owner ."', ";
$query .= "arc_groupe='". addslashes($stuff->groupes)."', ";
$query .= "arc_niveau_relance='". $stuff->niveau_relance ."', ";
$query .= "arc_date_relance='". $stuff->date_relance ."', ";
$query .= "arc_printed='". $stuff->printed ."', ";
$query .= "arc_cpt_prolongation='". $stuff->cpt_prolongation ."', ";
$query .= "arc_short_loan_flag='". $stuff->short_loan_flag ."', ";
$query .= "arc_pnb_flag='". $stuff->pnb_flag ."', ";
$query .= "arc_pret_source_device='". addslashes($stuff->source_device) ."' ";
pmb_mysql_query($query);
$id_arc_insere = pmb_mysql_insert_id() ;
// purge des vieux trucs
if ($empr_archivage_prets_purge) {
//on ne purge qu'une fois par session et par jour
if (!isset($_SESSION["last_empr_archivage_prets_purge_day"]) || ($_SESSION["last_empr_archivage_prets_purge_day"] != date("m.d.y"))) {
pmb_mysql_query("update pret_archive set arc_id_empr=0 where arc_id_empr!=0 and date_add(arc_fin, interval $empr_archivage_prets_purge day) < sysdate()") or die(pmb_mysql_error()." "."update pret_archive set arc_id_empr=0 where arc_id_empr!=0 and date_add(arc_fin, interval $empr_archivage_prets_purge day) < sysdate()");
$_SESSION["last_empr_archivage_prets_purge_day"] = date("m.d.y");
}
}
return $id_arc_insere ;
}
// mise à jour des stat des infos du prêt
function maj_stat_pret ($stuff) {
global $empr_archivage_prets, $empr_archivage_prets_purge;
if(!is_object($stuff)) die ("Pb in ./circ/pret_func.inc.php [maj_stat_pret()].");
$query = "update pret_archive set ";
$query .= "arc_debut='".$stuff->pret_date."', ";
$query .= "arc_fin=now(), ";
if ($empr_archivage_prets) $query .= "arc_id_empr='".addslashes($stuff->id_empr)."', ";
$query .= "arc_empr_cp='". addslashes($stuff->empr_cp) ."', ";
$query .= "arc_empr_ville='". addslashes($stuff->empr_ville) ."', ";
$query .= "arc_empr_prof='". addslashes($stuff->empr_prof) ."', ";
$query .= "arc_empr_year='". addslashes($stuff->empr_year) ."', ";
$query .= "arc_empr_categ='". $stuff->empr_categ ."', ";
$query .= "arc_empr_codestat='". $stuff->empr_codestat ."', ";
$query .= "arc_empr_sexe='". $stuff->empr_sexe ."', ";
$query .= "arc_empr_statut='". $stuff->empr_statut ."', ";
$query .= "arc_empr_location='". $stuff->empr_location ."', ";
$query .= "arc_type_abt='". $stuff->type_abt ."', ";
$query .= "arc_expl_typdoc='". $stuff->expl_typdoc ."', ";
$query .= "arc_expl_id='". $stuff->expl_id ."', ";
$query .= "arc_expl_notice='". $stuff->expl_notice ."', ";
$query .= "arc_expl_bulletin='". $stuff->expl_bulletin ."', ";
$query .= "arc_expl_cote='". addslashes($stuff->expl_cote) ."', ";
$query .= "arc_expl_statut='". $stuff->expl_statut ."', ";
$query .= "arc_expl_location='". $stuff->expl_location ."', ";
$query .= "arc_expl_section='". $stuff->expl_section ."', ";
$query .= "arc_expl_codestat='". $stuff->expl_codestat ."', ";
$query .= "arc_expl_owner='". $stuff->expl_owner ."', ";
$query .= "arc_niveau_relance='". $stuff->niveau_relance ."', ";
$query .= "arc_date_relance='". $stuff->date_relance ."', ";
$query .= "arc_printed='". $stuff->printed ."', ";
$query .= "arc_cpt_prolongation='". $stuff->cpt_prolongation ."', ";
$query .= "arc_short_loan_flag='". $stuff->short_loan_flag ."', ";
$query .= "arc_retour_source_device='". addslashes($stuff->source_device) ."' ";
$query .= " where arc_id='".$stuff->pret_arc_id."' ";
$res = pmb_mysql_query($query);
audit::insert_modif (AUDIT_PRET, $stuff->pret_arc_id) ;
// purge des vieux trucs
if ($empr_archivage_prets_purge) {
//on ne purge qu'une fois par session et par jour
if (!isset($_SESSION["last_empr_archivage_prets_purge_day"]) || ($_SESSION["last_empr_archivage_prets_purge_day"] != date("m.d.y"))) {
pmb_mysql_query("update pret_archive set arc_id_empr=0 where arc_id_empr!=0 and date_add(arc_fin, interval $empr_archivage_prets_purge day) < sysdate()") or die(pmb_mysql_error()." "."update pret_archive set arc_id_empr=0 where arc_id_empr!=0 and date_add(arc_fin, interval $empr_archivage_prets_purge day) < sysdate()");
$_SESSION["last_empr_archivage_prets_purge_day"] = date("m.d.y");
}
}
return $res ;
}
// suppression du prêt (table prêt)
function del_pret($stuff) {
//return 1 ; // debug mode ;-)
if(!is_object($stuff))
die("serious application error occured in ./circ/retour.inc [del_pret()]. Please contact developpment team");
$query = "delete from pret where pret_idexpl=".$stuff->expl_id;
if (!pmb_mysql_query($query)) return 0 ;
$query = "update exemplaires set expl_lastempr='".$stuff->pret_idempr."' where expl_id='".$stuff->expl_id."' ";
if (!pmb_mysql_query($query)) return 0 ;
else return 1 ;
}
// teste l'existence de l'exemplaire et le cas échéant,
// retourne les infos exemplaire sous forme d'objet
function check_barcode($cb) {
$query = "select * from exemplaires where expl_cb='$cb' ";
$result = pmb_mysql_query($query);
$expl = pmb_mysql_fetch_object($result);
if(!$expl->expl_id) {
// exemplaire inconnu
return FALSE;
} else {
// récupération des infos exemplaires
if ($expl->expl_notice) {
$notice = new mono_display($expl->expl_notice, 0);
$expl->libelle = $notice->header;
} else {
$bulletin = new bulletinage_display($expl->expl_bulletin);
$expl->libelle = $bulletin->display ;
}
if ($expl->expl_lastempr) {
// récupération des infos emprunteur
$query_last_empr = "select empr_cb, empr_nom, empr_prenom from empr where id_empr='".$expl->expl_lastempr."' ";
$result_last_empr = pmb_mysql_query($query_last_empr);
if(pmb_mysql_num_rows($result_last_empr)) {
$last_empr = pmb_mysql_fetch_object($result_last_empr);
$expl->lastempr_cb = $last_empr->empr_cb;
$expl->lastempr_nom = $last_empr->empr_nom;
$expl->lastempr_prenom = $last_empr->empr_prenom;
}
}
}
return $expl;
}
function pret_construit_infos_stat ($id_expl) {
$query = "select * from exemplaires where expl_id='$id_expl' ";
$result = pmb_mysql_query($query);
$stuff = pmb_mysql_fetch_object($result);
if(!$stuff->expl_id) {
// exemplaire inconnu
return FALSE;
}
$stuff = check_pret($stuff);
$stuff = check_resa($stuff);
return $stuff ;
}
// envoi d'un mail de ticket de prêt
// reçoit : id_empr et éventuellement cb_doc
function electronic_ticket($id_empr, $cb_doc="") {
global $msg, $charset ;
global $PMBusernom;
global $PMBuserprenom;
global $PMBuseremail,$PMBuseremailbcc;
$id_empr += 0;
$headers = "MIME-Version: 1.0\n";
$headers .= "Content-type: text/html; charset=".$charset."\n";
// info site
global $biblio_name, $biblio_logo, $biblio_adr1, $biblio_adr2, $biblio_cp, $biblio_town, $biblio_state, $biblio_country, $biblio_phone, $biblio_email, $biblio_website, $biblio_commentaire ;
global $empr_electronic_loan_ticket_obj, $empr_electronic_loan_ticket_msg ;
$empr_electronic_loan_ticket_obj = str_replace("!!biblio_name!!", $biblio_name, $empr_electronic_loan_ticket_obj) ;
$empr_electronic_loan_ticket_obj = str_replace("!!date!!", formatdate(today()), $empr_electronic_loan_ticket_obj) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_name!!", $biblio_name, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!date!!", formatdate(today()), $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_website!!", $biblio_website, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_phone!!", $biblio_phone, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_adr1!!", $biblio_adr1, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_adr2!!", $biblio_adr2, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_cp!!", $biblio_cp, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_town!!", $biblio_town, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_email!!", $biblio_email, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_commentaire!!", $biblio_commentaire, $empr_electronic_loan_ticket_msg) ;
$message_resas = "";
$message_prets = "";
if ($cb_doc == "") {
$rqt = "select expl_cb from pret, exemplaires where pret_idempr='".$id_empr."' and pret_idexpl=expl_id order by pret_date " ;
$req = pmb_mysql_query($rqt) or die($msg['err_sql'].' '.$rqt.' '.pmb_mysql_error());
$message_prets = $msg["prets_en_cours"];
while ($data = pmb_mysql_fetch_array($req)) {
$message_prets .= electronic_loan_ticket_expl_info ($data['expl_cb']);
}
// Impression des réservations en cours
$rqt = "select resa_idnotice, resa_idbulletin from resa where resa_idempr='".$id_empr."' " ;
$req = pmb_mysql_query($rqt) or die($msg['err_sql'].' '.$rqt.' '.pmb_mysql_error());
if (pmb_mysql_num_rows($req) > 0) {
$message_resas = $msg["documents_reserves"];
while ($data = pmb_mysql_fetch_array($req)) {
$message_resas .= electronic_loan_ticket_not_bull_info_resa ($id_empr, $data['resa_idnotice'],$data['resa_idbulletin']);
}
} // fin if résas
} else {
$message_prets = $msg["prets_en_cours"];
$message_prets .= electronic_loan_ticket_expl_info ($cb_doc);
}
$empr_electronic_loan_ticket_msg = str_replace("!!all_reservations!!", $message_resas, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!all_loans!!", $message_prets, $empr_electronic_loan_ticket_msg) ;
$requete = "select id_empr, empr_mail, empr_nom, empr_prenom from empr where id_empr='$id_empr' ";
$res = pmb_mysql_query($requete);
$empr=pmb_mysql_fetch_object($res);
//remplacement nom et prenom
$empr_electronic_loan_ticket_msg=str_replace("!!empr_name!!", $empr->empr_nom,$empr_electronic_loan_ticket_msg);
$empr_electronic_loan_ticket_msg=str_replace("!!empr_first_name!!", $empr->empr_prenom,$empr_electronic_loan_ticket_msg);
if ($empr->empr_mail) {
// function mailpmb($to_nom="", $to_mail, $obj="", $corps="", $from_name="", $from_mail, $headers, $copie_CC="", $copie_BCC="", $faire_nl2br=0, $pieces_jointes=array()) {
return @mailpmb($empr->empr_prenom." ".$empr->empr_nom, $empr->empr_mail,$empr_electronic_loan_ticket_obj,$empr_electronic_loan_ticket_msg, $PMBuserprenom." ".$PMBusernom, $PMBuseremail, $headers, "", $PMBuseremailbcc, 1, "");
}
return false;
}
// envoi d'un mail de ticket de prêt de groupe
function electronic_ticket_groupe($id_groupe) {
global $msg, $charset ;
global $PMBusernom;
global $PMBuserprenom;
global $PMBuseremail,$PMBuseremailbcc;
$id_groupe += 0;
$headers = "MIME-Version: 1.0\n";
$headers .= "Content-type: text/html; charset=".$charset."\n";
// info site
global $biblio_name, $biblio_logo, $biblio_adr1, $biblio_adr2, $biblio_cp, $biblio_town, $biblio_state, $biblio_country, $biblio_phone, $biblio_email, $biblio_website, $biblio_commentaire ;
global $empr_electronic_loan_ticket_obj, $empr_electronic_loan_ticket_msg ;
$empr_electronic_loan_ticket_obj = str_replace("!!biblio_name!!", $biblio_name, $empr_electronic_loan_ticket_obj) ;
$empr_electronic_loan_ticket_obj = str_replace("!!date!!", formatdate(today()), $empr_electronic_loan_ticket_obj) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_name!!", $biblio_name, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!date!!", formatdate(today()), $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_website!!", $biblio_website, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_phone!!", $biblio_phone, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_adr1!!", $biblio_adr1, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_adr2!!", $biblio_adr2, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_cp!!", $biblio_cp, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_town!!", $biblio_town, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_email!!", $biblio_email, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!biblio_commentaire!!", $biblio_commentaire, $empr_electronic_loan_ticket_msg) ;
$message_resas = "";
$message_prets = $msg["prets_en_cours"];
$rqt1 = "select empr_id from empr_groupe, empr, pret where groupe_id='".$id_groupe."' and empr_groupe.empr_id=empr.id_empr and pret.pret_idempr=empr_groupe.empr_id group by empr_id order by empr_nom, empr_prenom";
$req1 = pmb_mysql_query($rqt1);
while ($data1=pmb_mysql_fetch_array($req1)) {
$empr = new emprunteur($data1['empr_id']);
$message_prets .= " ".$empr->nom." ".$empr->prenom;
$rqt = "select expl_cb from pret, exemplaires where pret_idempr='".$empr->id."' and pret_idexpl=expl_id order by pret_date " ;
$req = pmb_mysql_query($rqt);
while ($data = pmb_mysql_fetch_array($req)) {
$message_prets .= electronic_loan_ticket_expl_info ($data['expl_cb']);
}
}
$empr_electronic_loan_ticket_msg = str_replace("!!all_reservations!!", $message_resas, $empr_electronic_loan_ticket_msg) ;
$empr_electronic_loan_ticket_msg = str_replace("!!all_loans!!", $message_prets, $empr_electronic_loan_ticket_msg) ;
$myGroup = new group($id_groupe);
//remplacement nom et prenom
$empr_electronic_loan_ticket_msg=str_replace("!!empr_name!!", $myGroup->libelle_resp,$empr_electronic_loan_ticket_msg);
$empr_electronic_loan_ticket_msg=str_replace("!!empr_first_name!!", "",$empr_electronic_loan_ticket_msg);
if ($myGroup->mail_resp) {
@mailpmb($myGroup->libelle_resp, $myGroup->mail_resp,$empr_electronic_loan_ticket_obj,$empr_electronic_loan_ticket_msg, $PMBuserprenom." ".$PMBusernom, $PMBuseremail, $headers, "", $PMBuseremailbcc, 1, "");
}
}
function electronic_loan_ticket_expl_info($cb_doc) {
global $msg ;
$requete = "SELECT notices_m.notice_id as m_id, notices_s.notice_id as s_id, expl_cb, expl_cote, pret_date, pret_retour, tdoc_libelle, section_libelle, location_libelle, trim(concat(ifnull(notices_m.tit1,''),ifnull(notices_s.tit1,''),' ',ifnull(bulletin_numero,''), if (mention_date, concat(' (',mention_date,')') ,''))) as tit, ";
$requete.= " date_format(pret_date, '".$msg["format_date"]."') as aff_pret_date, ";
$requete.= " date_format(pret_retour, '".$msg["format_date"]."') as aff_pret_retour, ";
$requete.= " IF(pret_retour>sysdate(),0,1) as retard, notices_m.tparent_id, notices_m.tnvol " ;
$requete.= " FROM (((exemplaires LEFT JOIN notices AS notices_m ON expl_notice = notices_m.notice_id ) LEFT JOIN bulletins ON expl_bulletin = bulletins.bulletin_id) LEFT JOIN notices AS notices_s ON bulletin_notice = notices_s.notice_id), docs_type, docs_section, docs_location, pret ";
$requete.= " WHERE expl_cb='".addslashes($cb_doc)."' and expl_typdoc = idtyp_doc and expl_section = idsection and expl_location = idlocation and pret_idexpl = expl_id ";
$res = pmb_mysql_query($requete) or die (" ".pmb_mysql_error());
$expl = pmb_mysql_fetch_object($res);
$responsabilites = get_notice_authors(($expl->m_id+$expl->s_id)) ;
$header_aut = gen_authors_header($responsabilites);
$header_aut ? $auteur=" / ".$header_aut : $auteur="";
// récupération du titre de série
if ($expl->tparent_id && $expl->m_id) {
$parent = new serie($expl->tparent_id);
$tit_serie = $parent->name;
if($expl->tnvol)
$tit_serie .= ', '.$expl->tnvol;
}
if($tit_serie) {
$expl->tit = $tit_serie.'. '.$expl->tit;
}
$ret = "
";
return $ret ;
} /* fin electronic_loan_ticket_expl_info */
function electronic_loan_ticket_not_bull_info_resa ($id_empr, $notice, $bulletin) {
global $msg;
$id_empr += 0;
$notice += 0;
$bulletin += 0;
$dates_resa_sql = "date_format(resa_date, '".$msg["format_date"]."') as date_pose_resa, IF(resa_date_fin>sysdate() or resa_date_fin='0000-00-00',0,1) as perimee, if(resa_date_debut='0000-00-00', '', date_format(resa_date_debut, '".$msg["format_date"]."')) as aff_resa_date_debut, if(resa_date_fin='0000-00-00', '', date_format(resa_date_fin, '".$msg["format_date"]."')) as aff_resa_date_fin " ;
if ($notice) {
$requete = "SELECT resa_cb, notice_id, resa_date, resa_idempr, tit1 as tit, ".$dates_resa_sql;
$requete.= "FROM notices, resa ";
$requete.= "WHERE notice_id='".$notice."' and resa_idnotice=notice_id order by resa_date ";
} else {
$requete = "SELECT resa_cb, notice_id, resa_date, resa_idempr, trim(concat(tit1,' ',ifnull(bulletin_numero,''), if (mention_date, concat(' (',mention_date,')') ,''))) as tit, ".$dates_resa_sql;
$requete.= "FROM bulletins, resa, notices ";
$requete.= "WHERE resa_idbulletin='$bulletin' and resa_idbulletin = bulletins.bulletin_id and bulletin_notice = notice_id order by resa_date ";
}
$res = pmb_mysql_query($requete) or die (" ".pmb_mysql_error());
$nb_resa = pmb_mysql_num_rows($res) ;
for ($j=0 ; $j<$nb_resa ; $j++ ) {
$resa = pmb_mysql_fetch_object($res);
if ($resa->resa_idempr == $id_empr) {
$responsabilites = get_notice_authors($resa->notice_id) ;
$header_aut = gen_authors_header($responsabilites);
$header_aut ? $auteur=" / ".$header_aut : $auteur="";
$ret .= "
".$resa->tit." ".$auteur."
" ;
if ($resa->aff_resa_date_debut) {
$tmpmsg_res = $msg['fpdf_reserve_du']." ".$resa->aff_resa_date_debut." ".$msg['fpdf_adherent_au']." ".$resa->aff_resa_date_fin;
$requete_expl = "SELECT expl_cb, tdoc_libelle, section_libelle, location_libelle " ;
$requete_expl.= " FROM exemplaires, docs_type, docs_section, docs_location ";
$requete_expl.= " WHERE expl_cb='".addslashes($resa->resa_cb)."' and expl_typdoc = idtyp_doc and expl_section = idsection and expl_location = idlocation ";
$res_expl = pmb_mysql_query($requete_expl) or die (" ".pmb_mysql_error());
$expl = pmb_mysql_fetch_object($res_expl);
$tmpmsg_res .= " ".$expl->location_libelle.": ".$expl->section_libelle;
} else {
$tmpmsg_res = $msg['fpdf_attente_valid']." / ".$msg['fpdf_rang']." ".($j+1)." : ".$msg['fpdf_reserv_enreg']." ".$resa->date_pose_resa ;
}
$ret .= $tmpmsg_res;
$ret .= "
";
}
} // fin for
return $ret ;
} /* fin electronic_loan_ticket_not_bull_info_resa */
// <-------------- 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 $pmb_resa_planning,$pmb_location_resa_planning;
global $empr_archivage_prets, $pmb_loan_trust_management;
global $loan_trust_management_not_blocking;
global $pmb_pret_resa_non_validee;
$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);
// 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);
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);
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='' order by resa_date limit 1";
$result = pmb_mysql_query($query);
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
if ($id_empr != pmb_mysql_result($result, 0, 'resa_idempr') && $pmb_pret_resa_non_validee) {
// on compte les resa sur cette notice
$query = "select count(id_resa) as nb from resa where resa_idnotice='$expl->notice' and resa_idbulletin='$expl->bulletin' ";
$result = pmb_mysql_query($query);
if (pmb_mysql_num_rows($result)) {
$nb_resa = pmb_mysql_result($result, 0, 'nb');
}
// on compte les exp pretable
$query = "select count(expl_id) as nb from exemplaires left join docs_statut on idstatut=expl_statut where expl_notice='$expl->notice' and expl_bulletin='$expl->bulletin' and pret_flag=1 ";
$result = pmb_mysql_query($query);
if (pmb_mysql_num_rows($result)) {
$nb_pretable = pmb_mysql_result($result, 0, 'nb');
}
// on compte les exp en cours de pret
$query = "select count(pret_idexpl) as nb from pret left join exemplaires on pret_idexpl=expl_id where expl_notice='$expl->notice' and expl_bulletin='$expl->bulletin' ";
$result = pmb_mysql_query($query);
if (pmb_mysql_num_rows($result)) {
$nb_pret = pmb_mysql_result($result, 0, 'nb');
}
if (($nb_pretable - $nb_pret) <= $nb_resa) {
$retour -> flag += HAS_RESA_FALSE;
global $reservataire_empr_cb;
global $reservataire_nom_prenom;
$reservataire_nom_prenom = $nom_prenom;
$reservataire_empr_cb = $empr_cb;
} else {
$retour -> flag += HAS_RESA_GOOD;
}
} else {
$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);
$nb_resa = pmb_mysql_result($r,0,0);
// On compte les exemplaires disponibles et prêtable 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 pret_flag=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);
$nb_dispo = pmb_mysql_result($r, 0, 0);
if (($nb_dispo-$nb_resa) <= 0 ) {
$retour -> flag += HAS_RESA_PLANNED_FALSE;
}
}
//cas du non monopole
$loan_trust_management_not_blocking = 0;
if ($pmb_loan_trust_management) {
$param = explode(',', $pmb_loan_trust_management);
$loan_trust_management = $param[0];
if (count($param) == 2) {
if ($param[1]) {
$loan_trust_management_not_blocking = 1;
}
}
$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);
$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 ".$loan_trust_management." day) >= now()";
$rpa = pmb_mysql_query($qpa);
$npa=pmb_mysql_result($rpa,0,0);
}
if (!($np || $npa)) {
$loan_trust_management_not_blocking = 0;
} elseif (($np || $npa) && !$loan_trust_management_not_blocking) {
$retour -> flag += IS_TRUSTED;
}
}
return $retour;
}