function add_pret($id_empr, $id_expl, $cb_doc)
{
// le lien MySQL
global $dbh;
global $msg;
global $pmb_quotas_avances;
/* on prépare la date de début*/
$pret_date = time();
/* on cherche la durée du prêt */
if ($pmb_quotas_avances) {
//Initialisation de la classe
$qt = new quota("LEND_TIME_QUOTA");
$struct["READER"] = $id_empr;
$struct["EXPL"] = $id_expl;
$duree_pret = $qt->get_quota_value($struct);
if ($duree_pret == -1) {
$duree_pret = 0;
}
} else {
$query = "SELECT duree_pret";
$query .= " FROM exemplaires, docs_type";
$query .= " WHERE expl_id='" . $id_expl;
$query .= "' and idtyp_doc=expl_typdoc LIMIT 1";
$result = @pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires " . $query);
$expl_properties = pmb_mysql_fetch_object($result);
$duree_pret = $expl_properties->duree_pret;
}
// calculer la date de retour prévue
$pret_retour = $pret_date + 3600 * 24 * $duree_pret;
// 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("Y-m-d", $pret_retour) . "', ";
$query .= "retour_initial = '" . date("Y-m-d", $pret_retour) . "' ";
$result = @pmb_mysql_query($query, $dbh) or die(pmb_mysql_error() . "<br />can't INSERT into pret" . $query);
// insérer la trace en stat, récupérer l'id et le mettre dans la table des prêts pour la maj ultérieure
$stat_avant_pret = pret_construit_infos_stat($id_expl);
$stat_id = stat_stuff($stat_avant_pret);
$query = "update pret SET pret_arc_id='{$stat_id}' where ";
$query .= "pret_idempr = '" . $id_empr . "' and ";
$query .= "pret_idexpl = '" . $id_expl . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update pret for stats " . $query);
audit::insert_creation(AUDIT_PRET, $stat_id);
//enregistrer les champs perso pret
$p_perso = new pret_parametres_perso("pret");
$p_perso->rec_fields_perso($stat_id);
$query = "update exemplaires SET ";
$query .= "last_loan_date = sysdate() ";
$query .= "where expl_id= '" . $id_expl . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update last_loan_date in exemplaires : " . $query);
$query = "update empr SET ";
$query .= "last_loan_date = sysdate() ";
$query .= "where id_empr= '" . $id_empr . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update last_loan_date in empr : " . $query);
}
function get_display_custom_fields($id_empr, $id_expl)
{
$p_perso = new pret_parametres_perso("pret");
if (!$p_perso->no_special_fields) {
$query_custom = "select pret_arc_id from pret\n\t\t\twhere pret_idempr='" . $id_empr . "' and pret_idexpl='" . $id_expl . "'";
$result_custom = pmb_mysql_query($query_custom);
if ($result_custom && pmb_mysql_result($result_custom, 0, 0)) {
$pret_arc_id = pmb_mysql_result($result_custom, 0, 0);
$perso_ = $p_perso->show_fields($pret_arc_id);
$perso = "";
if (count($perso_["FIELDS"])) {
for ($i = 0; $i < count($perso_["FIELDS"]); $i++) {
$perso .= "<div class='row'>" . $perso_["FIELDS"][$i]["TITRE"];
$perso .= $perso_["FIELDS"][$i]["AFF"] . "</div>";
}
$perso . "<br />";
}
return $perso;
}
}
}
function do_fiche()
{
global $empr_tmpl, $empr_pret_allowed;
global $msg, $charset;
global $groupID;
global $biblio_email;
global $pmb_lecteurs_localises;
global $pmb_gestion_abonnement, $pmb_gestion_financiere, $pmb_gestion_tarif_prets, $pmb_gestion_amende;
global $finance_blocage_abt, $finance_blocage_amende, $finance_blocage_pret, $pmb_blocage_retard, $pmb_blocage_retard_force;
global $force_finance;
global $pmb_resa_planning;
global $dbh;
global $pmb_blocage_retard, $pmb_blocage_coef, $pmb_blocage_max, $pmb_blocage_delai;
global $empr_fiche_depliee;
global $pmb_opac_view_activate;
global $pmb_sur_location_activate;
global $alert_sound_list;
// l'utilisateur veut-il les sons d'alerte
global $pmb_short_loan_management;
global $pmb_location_reservation, $deflt2docs_location;
global $id_expl;
$this->fiche = $empr_tmpl;
$this->fiche = str_replace('!!cb!!', $this->cb, $this->fiche);
$this->fiche = str_replace('!!nom!!', pmb_strtoupper($this->nom), $this->fiche);
$this->fiche = str_replace('!!prenom!!', $this->prenom, $this->fiche);
$this->fiche = str_replace('!!image_caddie_empr!!', $this->img_ajout_empr_caddie, $this->fiche);
$this->fiche = str_replace('!!info_nb_pret!!', $this->nb_pret, $this->fiche);
$this->fiche = str_replace('!!info_nb_resa!!', $this->nb_reservations, $this->fiche);
if ($pmb_resa_planning) {
$this->fiche = str_replace('!!info_resa_planning!!', $msg[empr_nb_resa_planning] . ":" . $this->nb_previsions, $this->fiche);
} else {
$this->fiche = str_replace('!!info_resa_planning!!', "", $this->fiche);
}
$this->fiche = str_replace('!!info_authldap!!', $this->ldap, $this->fiche);
$this->fiche = str_replace('!!id!!', $this->id, $this->fiche);
$this->fiche = str_replace('!!adr1!!', $this->adr1, $this->fiche);
$this->fiche = str_replace('!!adr2!!', $this->adr2, $this->fiche);
$this->fiche = str_replace('!!tel1!!', $this->tel1, $this->fiche);
$this->fiche = str_replace('!!sms!!', $this->sms, $this->fiche);
$this->fiche = str_replace('!!tel2!!', $this->tel2, $this->fiche);
$this->fiche = str_replace('!!cp!!', $this->cp, $this->fiche);
$this->fiche = str_replace('!!ville!!', $this->ville, $this->fiche);
$this->fiche = str_replace('!!pays!!', $this->pays, $this->fiche);
$emails = array();
$email_final = array();
$emails = explode(';', $this->mail);
for ($i = 0; $i < count($emails); $i++) {
$email_final[] = "<a href='mailto:" . $emails[$i] . "'>" . $emails[$i] . "</a>";
}
$this->fiche = str_replace('!!mail_all!!', implode(" ", $email_final), $this->fiche);
$this->fiche = str_replace('!!prof!!', $this->prof, $this->fiche);
$this->fiche = str_replace('!!date!!', $this->birth, $this->fiche);
$this->fiche = str_replace('!!categ!!', $this->cat_l, $this->fiche);
$this->fiche = str_replace('!!codestat!!', $this->cstat_l, $this->fiche);
$this->fiche = str_replace('!!adhesion!!', $this->aff_date_adhesion, $this->fiche);
$this->fiche = str_replace('!!expiration!!', $this->aff_date_expiration, $this->fiche);
$this->fiche = str_replace('!!last_loan_date!!', $this->aff_last_loan_date, $this->fiche);
$this->fiche = str_replace('!!perso!!', $this->perso, $this->fiche);
$this->fiche = str_replace('!!header_format!!', $this->header_format, $this->fiche);
$this->fiche = str_replace('!!empr_login!!', $this->login, $this->fiche);
if ($this->pwd != password::gen_hash("", $this->id)) {
$this->fiche = str_replace('!!empr_pwd!!', "<i><strong>" . $msg["empr_pwd_opac_affected"] . "</strong></i>", $this->fiche);
} else {
$this->fiche = str_replace('!!empr_pwd!!', "", $this->fiche);
}
$this->fiche = str_replace('!!comptes!!', $this->compte, $this->fiche);
$this->fiche = str_replace('!!empr_statut_libelle!!', $this->empr_statut_libelle, $this->fiche);
$this->fiche = str_replace('!!empr_picture!!', $this->picture_empr($this->cb), $this->fiche);
if ($empr_fiche_depliee == "1") {
$this->fiche = str_replace('!!depliee!!', " startOpen=\"Yes\"", $this->fiche);
} else {
$this->fiche = str_replace('!!depliee!!', "", $this->fiche);
}
if ($pmb_lecteurs_localises) {
$this->fiche = str_replace("<!-- !!localisation!! -->", "<div class='row'><strong>{$msg['empr_location']} : </strong>" . $this->empr_location_l . "</div>", $this->fiche);
$resume_localisation = $this->empr_location_l;
}
if ($pmb_opac_view_activate) {
}
//Groupes
if (count($this->groupes)) {
$this->fiche = str_replace('!!groupes!!', "<strong>" . $msg[groupes_empr] . " : </strong>" . implode(" / ", $this->groupes) . "\n", $this->fiche);
$resume_groupe = implode(" / ", $this->groupes);
} else {
$this->fiche = str_replace('!!groupes!!', " ", $this->fiche);
}
// Ajout d'infos complémentaires lorsque la fiche lecteur est repliée par défaut
$empr_resume = '';
if ($empr_fiche_depliee == "0") {
//localisation
if ($resume_localisation) {
$empr_resume = $resume_localisation . " - ";
}
//categ
if ($this->cat_l) {
$empr_resume .= $this->cat_l . " - ";
}
//groupe
if ($resume_groupe) {
$empr_resume .= $resume_groupe . " - ";
}
}
$this->fiche = str_replace('!!empr_resume!!', $empr_resume, $this->fiche);
//Pret autorisé ou non ?
$pret_ok = 0;
if ($pmb_gestion_financiere && $force_finance == 0) {
$message_pret = "";
if ($pmb_gestion_abonnement) {
//Vérification du compte
$cpte_abt_id = comptes::get_compte_id_from_empr($this->id, 1);
if ($cpte_abt_id) {
$cpte_abt = new comptes($cpte_abt_id);
$solde_neg = $cpte_abt->get_solde();
if ($finance_blocage_abt && $solde_neg * 1 < 0) {
if ($pret_ok < 2) {
$pret_ok = $finance_blocage_abt;
}
$message_pret .= sprintf($msg["finance_pret_solde_abt"], comptes::format($solde_neg)) . "<br />";
$this->blocage_abt = $finance_blocage_abt;
}
if ($solde_neg * 1 < 0) {
$this->compte_abt = abs($solde_neg);
}
}
}
if ($pmb_gestion_tarif_prets) {
//Vérification du compte
$cpte_pret_id = comptes::get_compte_id_from_empr($this->id, 3);
if ($cpte_pret_id) {
$cpte_pret = new comptes($cpte_pret_id);
$solde_neg = $cpte_pret->get_solde();
if ($finance_blocage_pret && $solde_neg * 1 < 0) {
if ($pret_ok < 2) {
$pret_ok = $finance_blocage_pret;
}
$message_pret .= sprintf($msg["finance_pret_solde_pret"], comptes::format($solde_neg)) . "<br />";
$this->blocage_tarifs = $finance_blocage_pret;
}
if ($solde_neg * 1 < 0) {
$this->compte_tarifs = abs($solde_neg);
}
}
}
if ($pmb_gestion_amende) {
//Vérification du compte
$cpte_amende_id = comptes::get_compte_id_from_empr($this->id, 2);
if ($cpte_amende_id) {
$cpte_amende = new comptes($cpte_amende_id);
$solde_neg = $cpte_amende->get_solde();
$amende = new amende($this->id, true);
$amende_neg = $amende->get_total_amendes();
if ($finance_blocage_amende && ($solde_neg * 1 < 0 || $amende_neg * 1)) {
$this->blocage_amendes = $finance_blocage_amende;
if ($pret_ok < 2) {
$pret_ok = $finance_blocage_amende;
}
if ($solde_neg * 1 < 0) {
$message_pret .= sprintf($msg["finance_pret_solde_amende"], comptes::format($solde_neg)) . "<br />";
}
if ($amende_neg * 1) {
$message_pret .= sprintf($msg["finance_pret_amende_en_cours_blocage"], comptes::format($amende_neg)) . "<br />";
}
}
if ($solde_neg * 1 < 0) {
$this->compte_amendes = abs($solde_neg);
}
if ($amende_neg * 1) {
$this->amendes_en_cours = abs($amende_neg);
}
}
}
}
if ($pmb_blocage_retard && $force_finance == 0) {
if ($this->date_blocage && $this->blocage_active) {
$this->blocage_retard = $pmb_blocage_retard_force;
//pas de forçage possible
if ($pmb_blocage_retard_force == 2) {
$message_pret .= sprintf($msg["blocage_retard_pret"], formatdate($this->date_blocage)) . "<br />";
} else {
$message_pret .= sprintf($msg["blocage_retard_pret"], formatdate($this->date_blocage)) . " <input type='button' value='" . $msg["blocage_params"] . "' class='bouton' onClick=\"openPopUp('./circ/blocage.php?id_empr=" . $this->id . "','blocage_params',400,200,-2,-2,'toolbar=no, dependent=yes,resizable=yes');\"/><br />";
}
if ($pret_ok < 2) {
$pret_ok = $pmb_blocage_retard_force;
}
}
}
// Ajout de l'impossibilité d'effectuer un prêt si un document n'est pas rendu
// alors qu'il a dépassé le délai de blocage (NG72) .
if ($pmb_blocage_retard && $force_finance == 0) {
// Recherche la date de retour du document la plus petite, soit le plus gros retard potentiel
$requete = "select MIN(pret_retour)as pret_retour";
$requete .= " from pret p";
$requete .= " where p.pret_idempr=" . $this->id;
$result = pmb_mysql_query($requete, $dbh);
while ($bloca = pmb_mysql_fetch_object($result)) {
if ($bloca->pret_retour) {
$pret_retour = $bloca->pret_retour;
$date_debut = explode("-", $pret_retour);
$ndays = calendar::get_open_days($date_debut[2], $date_debut[1], $date_debut[0], date("d"), date("m"), date("Y"));
if ($ndays > $pmb_blocage_delai) {
$ndays = $ndays * $pmb_blocage_coef;
if ($ndays > $pmb_blocage_max && $pmb_blocage_max != 0) {
$ndays = $pmb_blocage_max;
}
} else {
$ndays = 0;
}
if ($ndays) {
// Interdire alors de nouveau pret
if ($pret_ok < 2) {
$pret_ok = $pmb_blocage_retard_force;
}
$this->blocage_retard = $pmb_blocage_retard_force;
}
}
}
}
$p_perso = new pret_parametres_perso("pret");
$pret_arc_id = 0;
if ($id_expl) {
$query_custom = "select pret_arc_id from pret\n\t\t\t\twhere pret_idempr='" . $this->id . "' and pret_idexpl='" . $id_expl . "'";
$result_custom = pmb_mysql_query($query_custom);
if ($result_custom && pmb_mysql_num_rows($result_custom)) {
$pret_arc_id = pmb_mysql_result($result_custom, 0, 0);
}
}
$perso_ = $p_perso->show_editable_fields($pret_arc_id);
$pretperso_field_tpl = "\n\t\t\t<div class='row'>\n\t\t\t\t<label class='etiquette'>!!titre!! </label>!!comment!!\n\t\t\t</div>\n\t\t\t<div class='row'>\n\t\t\t\t!!aff!!\n\t\t\t</div>";
if (count($perso_['FIELDS'])) {
$custom_fields = "";
foreach ($perso_['FIELDS'] as $field) {
if ($field['MANDATORY']) {
$field_tpl = "<div class='mandatory'>" . $pretperso_field_tpl . "</div>";
} else {
$field_tpl = $pretperso_field_tpl;
}
$field_tpl = str_replace("!!titre!!", $field['TITRE'], $field_tpl);
$field_tpl = str_replace("!!aff!!", $field['AFF'], $field_tpl);
$field_tpl = str_replace("!!comment!!", $field['COMMENT_DISPLAY'], $field_tpl);
$custom_fields .= $field_tpl;
}
$custom_fields .= $perso_["CHECK_SCRIPTS"];
$empr_pret_allowed = str_replace('<!-- custom_fields -->', $custom_fields, $empr_pret_allowed);
} else {
$empr_pret_allowed = str_replace('<!-- custom_fields -->', "\n<script>function check_form() { return true; }</script>\n", $empr_pret_allowed);
}
if (!$pret_ok && $this->allow_loan) {
$this->fiche = str_replace("!!empr_case_pret!!", $empr_pret_allowed, $this->fiche);
$this->fiche = str_replace('!!id!!', $this->id, $this->fiche);
} else {
if ($pret_ok == 1 && $this->allow_loan) {
$message_pret .= "<input type='button' class='bouton' value=\"" . $msg["finance_pret_force_pret"] . "\" onClick=\"this.form.force_finance.value=1; this.form.submit();\">";
} elseif ($this->allow_loan) {
$message_pret .= "<div class='erreur'>" . $msg["finance_pret_bloque"] . "</div>";
} else {
$message_pret .= "<div class='erreur'>" . $msg["empr_no_allow_loan"] . "</div>";
}
$this->fiche = str_replace("!!empr_case_pret!!", $message_pret, $this->fiche);
}
$abonnement = "";
if ($pmb_gestion_financiere && $pmb_gestion_abonnement == 2) {
if ($this->type_abt) {
$requete = "select type_abt_libelle from type_abts where id_type_abt='" . $this->type_abt . "'";
$resultat_type_abt = pmb_mysql_query($requete);
if (@pmb_mysql_num_rows($resultat_type_abt)) {
$abonnement = pmb_mysql_result($resultat_type_abt, 0, 0);
}
}
}
if ($abonnement) {
$this->fiche = str_replace("!!abonnement!!", "<div class='row'><strong>" . $msg["finance_type_abt"] . " : </strong>" . htmlentities($abonnement, ENT_QUOTES, $charset) . "</div>\n", $this->fiche);
} else {
$this->fiche = str_replace("!!abonnement!!", "", $this->fiche);
}
// message
if ($this->empr_msg) {
$message_fiche_empr = "\n\t\t\t\t\t<hr />\n\t\t\t\t\t<div class='row'>\n\t\t\t\t\t\t<div class='colonne10'><img src='./images/info.png' /></div>\n\t\t\t\t\t\t<div class='colonne-suite'><span class='erreur'>{$this->empr_msg}</span></div>\n\t\t\t\t\t\t</div><br />";
$alert_sound_list[] = "information";
$this->fiche = str_replace('!!empr_msg!!', $message_fiche_empr, $this->fiche);
} else {
$this->fiche = str_replace('!!empr_msg!!', "", $this->fiche);
}
// on distingue les messages de prêts du message sur l'emprunteur
$this->fiche = str_replace('!!pret_msg!!', $this->message, $this->fiche);
if ($this->adhesion_renouv_proche()) {
$message_date_depassee = $msg[empr_date_renouv_proche];
} elseif ($this->adhesion_depassee()) {
$message_date_depassee = $msg[empr_date_depassee];
} else {
$message_date_depassee = "";
}
if ($message_date_depassee) {
$alert_sound_list[] = "critique";
}
$this->fiche = str_replace('!!empr_date_depassee!!', $message_date_depassee, $this->fiche);
if ($this->age_categ_change()) {
$message_categ_age_change = $msg[empr_categ_age_change];
} else {
$message_categ_age_change = "";
}
if ($message_categ_age_change) {
$alert_sound_list[] = "information";
}
$this->fiche = str_replace('!!empr_categ_age_change!!', $message_categ_age_change, $this->fiche);
$group_zone = "<a href='./circ.php'>{$msg['64']}</a>";
if ($groupID) {
$group_zone .= " <a href='./circ.php?categ=groups&action=showgroup&groupID={$groupID}'>{$msg['grp_autre_lecteur']}</a>";
}
$this->fiche = str_replace('!!group_zone!!', $group_zone, $this->fiche);
$fsexe[0] = $msg[128];
$fsexe[1] = $msg[126];
$fsexe[2] = $msg[127];
$this->fiche = str_replace('!!sexe!!', $fsexe[$this->sexe], $this->fiche);
// valeur pour les champ hidden du prêt. L'id empr est pris en charge plus haut (voir Eric)
$this->fiche = str_replace('!!cb!!', $this->cb, $this->fiche);
// traitement liste exemplaires en prêt
$this->fiche = str_replace('!!nb_prets_encours!!', $this->nb_pret, $this->fiche);
//On affiche le bouton de mail si le destinataire a une adresse mail
if ($this->mail) {
$mail_click = "onclick=\"if (confirm('" . $msg["mail_pret_confirm"] . "')) { openPopUp('./pdf.php?pdfdoc=mail_liste_pret&id_empr=" . $this->id . "', 'print_PDF', 600, 500, -2, -2, '{$PDF_win_prop}');} return(false) \"";
$bouton_mail_liste_pret = "<input type='button' name='maillistedocs' class='bouton' value='{$msg['email']}' {$mail_click} />";
} else {
$bouton_mail_liste_pret = "";
}
$this->fiche = str_replace("!!mail_liste_pret!!", $bouton_mail_liste_pret, $this->fiche);
//Si mail de rappel affecté au responsable du groupe
$requete = "select id_groupe,resp_groupe from groupe,empr_groupe where id_groupe=groupe_id and empr_id=" . $this->id . " and resp_groupe and mail_rappel limit 1";
$res = pmb_mysql_query($requete);
if (pmb_mysql_num_rows($res) > 0) {
$requete = "select id_empr, empr_mail from empr where id_empr='" . pmb_mysql_result($res, 0, 1) . "'";
$result = pmb_mysql_query($requete);
$has_mail = pmb_mysql_result($result, 0, 1) ? 1 : 0;
} else {
$has_mail = $this->mail ? 1 : 0;
}
//Si retard sur un document, proposer la lettre de retard ou l'email de retard
if ($this->retard >= 1) {
$imprime_click = "onclick=\"openPopUp('./pdf.php?pdfdoc=lettre_retard&id_empr=" . $this->id . "', 'lettre', 600, 500, -2, -2, 'toolbar=no, dependent=yes, resizable=yes'); return(false) \"";
$bouton_lettre_retard = $msg['retard'] . " <input type=\"button\" class=\"bouton\" value=\"" . $msg["lettre_retard"] . "\" " . $imprime_click . ">";
if ($has_mail && $biblio_email) {
$mail_click = "onclick=\"if (confirm('" . $msg["mail_retard_confirm"] . "')) { openPopUp('./mail.php?type_mail=mail_retard&id_empr=" . $this->id . "', 'mail', 600, 500, -2,- 2, 'toolbar=no, dependent=yes, resizable=yes, scrollbars=yes');} return(false) \"";
$bouton_mail_retard = "<input type=\"button\" class=\"bouton\" value=\"" . $msg["mail_retard"] . "\" " . $mail_click . ">";
} else {
$bouton_mail_retard = "";
}
} else {
$bouton_lettre_retard = "";
$bouton_mail_retard = "";
}
$this->fiche = str_replace("!!lettre_retard!!", $bouton_lettre_retard, $this->fiche);
$this->fiche = str_replace("!!mail_retard!!", $bouton_mail_retard, $this->fiche);
$voir_tout_pret = "";
//separation prets classiques et prets courts
$prets_list = array('0' => '', '1' => '');
if (!count($this->prets)) {
// dans ce cas, le lecteur n'a rien en prêt
$prets_list[0] = "<tr><td colspan='9'>{$msg['650']}</td></tr>";
$prets_list[1] = '';
} else {
// constitution du code HTML
$vdr = 0;
$id_bloc = $id_inpret = '';
$odd_even = 0;
// Gestion de limitation de la visualisation de la liste de pret.
global $pmb_pret_aff_limitation;
global $pmb_pret_aff_nombre;
global $see_all_pret;
global $current_module;
while (list($cle, $valeur) = each($this->prets)) {
$id_inpret .= $valeur['id'] . '|';
if ($valeur['pret_retard'] == 1) {
$tit_color = "color='RED'";
} else {
$tit_color = "";
}
//reservations sur la notice ou le bulletin ?
$resas = "";
$query_resa = "select count(*) as resas from resa where resa_idnotice=" . $valeur['notice_id'] . " and resa_idbulletin=" . $valeur['bulletin_id'] . " and (resa_cb='')";
if ($pmb_location_reservation) {
$query_resa = "select count(*) as resas from resa,empr,resa_loc\n\t\t\t\t\twhere resa_idnotice=" . $valeur['notice_id'] . " and resa_idbulletin=" . $valeur['bulletin_id'] . " and (resa_cb='')\n\t\t\t\t\t\t\t\t\t\tand resa_idempr=id_empr\n\t\t\t\t\t\t\t\t\t\tand empr_location=resa_emprloc and resa_loc='" . $deflt2docs_location . "'\n\t\t\t\t\t";
}
$result_resa = pmb_mysql_query($query_resa, $dbh);
if ($result_resa && mysql_num_rows($result_resa)) {
$qt_resas = pmb_mysql_result($result_resa, 0, 0);
if ($qt_resas) {
$resas = " <img src='./images/alert.gif' alt='" . addslashes($qt_resas . " " . $msg["reserv_en_cours_doc"]) . "' title='" . addslashes($qt_resas . " " . $msg["reserv_en_cours_doc"]) . "'>";
}
}
//Affichage des prolongations
global $pmb_pret_restriction_prolongation, $pmb_pret_nombre_prolongation, $pmb_utiliser_calendrier;
$pret_nombre_prolongation = 0;
$forcage_prolongation = TRUE;
$duree_prolongation = 0;
// Limitation simple du pret
if ($pmb_pret_restriction_prolongation == 1) {
$pret_nombre_prolongation = $pmb_pret_nombre_prolongation;
} elseif ($pmb_pret_restriction_prolongation == 2) {
// Limitation du pret par les quotas
//Initialisation des quotas pour nombre de prolongations
$qt = new quota("PROLONG_NMBR_QUOTA");
//Tableau de passage des paramètres
$struct["READER"] = $this->id;
$struct["EXPL"] = $valeur['id'];
$pret_nombre_prolongation = $qt->get_quota_value($struct);
$forcage_prolongation = $qt->get_force_value($struct);
//Initialisation des quotas de durée de prolongation
$qt = new quota("PROLONG_TIME_QUOTA");
$struct["READER"] = $this->id;
$struct["EXPL"] = $valeur['id'];
$duree_prolongation = $qt->get_quota_value($struct);
}
//$forcage_prolongation=FALSE;
/* on prépare la date de début*/
$pret_date = $valeur['sql_date_retour'];
$rqt_date = "select date_add('" . $pret_date . "', INTERVAL '{$duree_prolongation}' DAY) as date_prolongation ";
$resultatdate = pmb_mysql_query($rqt_date);
$res = pmb_mysql_fetch_object($resultatdate);
$date_prolongation = str_replace('-', "", $res->date_prolongation);
if ($pmb_utiliser_calendrier) {
$req_date_calendrier = "select date_ouverture from ouvertures where ouvert=1 and num_location='" . $valeur["idlocation"] . "' and DATEDIFF(date_ouverture,'{$date_prolongation}')>=0 order by date_ouverture asc limit 1";
$res_date_calendrier = pmb_mysql_query($req_date_calendrier);
if (pmb_mysql_num_rows($res_date_calendrier) > 0) {
$date_prolongation = str_replace('-', "", pmb_mysql_result($res_date_calendrier, 0, 0));
}
}
if ($odd_even == 0) {
$pair_impair = "odd";
$odd_even = 1;
} else {
if ($odd_even == 1) {
$pair_impair = "even";
$odd_even = 0;
}
}
$expl_sur_loc = "";
if ($pmb_sur_location_activate) {
$expl_sur_loc = "<td><center>" . $valeur["sur_location"] . "</center></td>";
}
$tr_javascript = " onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='{$pair_impair}'\"";
$prets_list[$valeur['short_loan_flag']] .= "\n\t\t\t\t\t<tr class='{$pair_impair}' {$tr_javascript}>\n\t\t\t\t\t<form class='form-{$current_module}' name=prolong" . $valeur['id'] . " action='circ.php'>\n\t\t\t\t\t\t<td class='empr-expl'><a href='./circ.php?categ=visu_ex&form_cb_expl=" . rawurlencode($valeur['cb']) . "'>\n\t\t\t\t\t\t\t{$valeur['cb']}</a>\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td size='70%'>\n\t\t\t\t\t\t\t<font {$tit_color}>" . strip_tags($valeur['libelle']) . "</font>\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t<center>{$valeur['typdoc']}<br />{$valeur['cote']}</center>\n\t\t\t\t\t\t</td>{$expl_sur_loc}\n\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t<center>{$valeur['location']}<br />{$valeur['section']}</center>\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t<center>{$valeur['date_pret']}</center>\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t<center>{$valeur['retour_initial']}</center>\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td>";
if ($pmb_pret_restriction_prolongation == 0) {
$prets_list[$valeur['short_loan_flag']] .= "<center>{$valeur['cpt_prolongation']}" . $resas . "</center>";
} else {
$prets_list[$valeur['short_loan_flag']] .= "<center>{$valeur['cpt_prolongation']}/{$pret_nombre_prolongation}" . $resas . "</center>";
}
$prets_list[$valeur['short_loan_flag']] .= "</td>\n\t\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t<input type='hidden' name='categ' value='pret'>\n\t\t\t\t\t\t\t<input type='hidden' name='sub' value='pret_prolongation'>\n\t\t\t\t\t\t\t<input type='hidden' name='form_cb' value='{$this->cb}'>\n\t\t\t\t\t\t\t<input type='hidden' name='cb_doc' value='{$valeur['cb']}'>\n\t\t\t\t\t\t\t<input type='hidden' name='id_doc' value='{$valeur['id']}'>\n\t\t\t\t\t\t\t<input type='hidden' name='date_retour' value=\"\">";
$vdr = max($vdr, $date_prolongation);
// $vdr=max($vdr,$valeur['org_ret_date']);
if ($forcage_prolongation == FALSE && $valeur['cpt_prolongation'] >= $pret_nombre_prolongation) {
$prets_list[$valeur['short_loan_flag']] .= "<center>{$valeur['date_retour']}</center>" . "</td>" . "</form><td> </td></tr>";
} else {
$date_clic = " onClick=\"openPopUp('./select.php?what=calendrier";
$date_clic .= "&caller=prolong" . $valeur['id'];
$date_clic .= "&date_caller={$date_prolongation}";
$date_clic .= "¶m1=date_retour¶m2=date_retour_lib&auto_submit=YES',";
$date_clic .= " 'date_retour', 250, 300, -2, -2,";
$date_clic .= " 'toolbar=no, dependent=yes, resizable=yes')\"";
$prets_list[$valeur['short_loan_flag']] .= "\n\t\t\t\t\t\t<center><input type='button' name='date_retour_lib' class='bouton' value='{$valeur['date_retour']}' " . $date_clic . " sorttable_customkey='{$valeur['date_retour']}' /></center>\n\t\t\t\t\t\t</td><td><center>";
$prets_list[$valeur['short_loan_flag']] .= "<input type='checkbox' id='prol_" . $valeur['id'] . "' name='cbox_prol' onClick='check_cb(this.form)'/>";
$prets_list[$valeur['short_loan_flag']] .= "</center></td>\n\t\t\t\t\t\t</form></tr>";
}
// Gestion de limitation de la visualisation de la liste de pret.
if ($pmb_pret_aff_limitation == 1 && $pmb_pret_aff_nombre && !$see_all_pret && $cle + 1 >= $pmb_pret_aff_nombre) {
break;
}
}
// Gestion de limitation de la visualisation de la liste de pret.
if ($pmb_pret_aff_limitation == 1 && $pmb_pret_aff_nombre && !$see_all_pret && $this->nb_pret > $pmb_pret_aff_nombre) {
// le bouton 'Voir tous les prets' n'a pas été posté et on arrive à la limite imposée
//Affichage du bouton 'Voir tous les prets'
$tout_voir_click = "onclick=\"document.location='circ.php?categ=pret&see_all_pret=1&form_cb=" . $this->cb . "'\"";
$voir_tout_pret = "<input type='button' name='see_all_pret' class='bouton' value='" . $msg['pret_liste_voir_tout'] . "' {$tout_voir_click}/>";
}
}
/* 1ere option */
//$prets_list = $prets_list[0].(($pmb_short_loan_management==1 && count($prets_list[1]))?("<tr ><th colspan='9'>".$msg['short_loans']."</th></tr>".$prets_list[1]):'');
/* 2eme option*/
$id_inpret = substr($id_inpret, 0, -1);
$date_format_SQL = substr($vdr, 0, 4) . '-' . substr($vdr, 4, 2) . '-' . substr($vdr, 6, 2);
$svdr = formatdate($date_format_SQL);
$date_prol = " onClick=\"openPopUp('./select.php?what=calendrier";
$date_prol .= "&caller=prolong_bloc";
$date_prol .= "&date_caller={$vdr}";
$date_prol .= "¶m1=date_retbloc¶m2=date_retbloc_lib&auto_submit=YES',";
$date_prol .= " 'date_retbloc',";
$date_prol .= " 250,260,-2,-2,'toolbar=no, dependent=yes, resizable=yes')\"";
$butt_prol = "\n\t\t\t<input type='button' name='date_retbloc_lib' class='bouton' value='{$svdr}' " . $date_prol . " />\n\t\t\t<input type='hidden' name='categ' value='pret'>\n\t\t\t<input type='hidden' name='sub' value='pret_prolongation_bloc'>\n\t\t\t<input type='hidden' name='form_cb' value='{$this->cb}'>\n\t\t\t<input type='hidden' name='date_retbloc' value=\"\">\n\t\t\t<input type='hidden' name='id_bloc' value=\"\">";
$this->fiche = str_replace('!!id_inpret!!', $id_inpret, $this->fiche);
if ($vdr) {
$this->fiche = str_replace('!!prol_date!!', $butt_prol, $this->fiche);
$this->fiche = str_replace('!!bouton_cocher_prolong!!', "<input type='button' name='bloc_all' value='+' class='bouton' title='{$msg['resa_tout_cocher']}' onClick='check_allcb(this.form)'/>", $this->fiche);
} else {
$this->fiche = str_replace('!!prol_date!!', "", $this->fiche);
$this->fiche = str_replace('!!bouton_cocher_prolong!!', " ", $this->fiche);
}
$this->fiche = str_replace('!!voir_tout_pret!!', $voir_tout_pret, $this->fiche);
/* 1ere option */
//$this->fiche = str_replace('!!pret_list!!', $prets_list, $this->fiche);
/* 2eme option */
$this->fiche = str_replace('!!pret_list!!', $prets_list[0], $this->fiche);
if ($pmb_short_loan_management == 1) {
if (count($prets_list[1])) {
$this->fiche = str_replace('!!short_loan_list!!', $prets_list[1], $this->fiche);
} else {
$this->fiche = str_replace('!!short_loan_list!!', '', $this->fiche);
}
}
//tableau des relances
$this->fiche = str_replace('!!relance!!', $this->relance, $this->fiche);
if ($pmb_gestion_amende && $pmb_gestion_financiere) {
$bt_histo_relance = " <input type='button' class='bouton' id='see_late' name='see_late' value=\"" . $msg['empr_see_late'] . "\" onclick=\"document.location='./circ.php?categ=pret&sub=show_late&id={$this->id}' \" />";
} else {
$bt_histo_relance = "";
}
$this->fiche = str_replace('!!bt_histo_relance!!', $bt_histo_relance, $this->fiche);
// mise à jour de la liste des réservations
$this->fiche = str_replace('!!resa_list!!', $this->fetch_resa(), $this->fiche);
if ($pmb_resa_planning) {
// mise à jour de la liste des réservations planifiées
$this->fiche = str_replace('!!resa_planning_list!!', $this->fetch_resa_planning(), $this->fiche);
} else {
$this->fiche = str_replace('!!resa_planning_list!!', '', $this->fiche);
}
if ($this->allow_sugg && SESSrights & ACQUISITION_AUTH) {
$req = "select count(id_suggestion) as nb from suggestions, suggestions_origine where num_suggestion=id_suggestion and origine='" . $this->id . "' and type_origine='1' ";
$res = pmb_mysql_query($req, $dbh);
$btn_sug = "";
if ($res && pmb_mysql_num_rows($res)) {
$sug = pmb_mysql_fetch_object($res);
if ($sug->nb) {
$btn_sug = "<input type='button' class='bouton' id='see_sug' name='see_sug' value='" . $msg['acquisition_lecteur_see_sugg'] . "' onclick=\"document.location='./acquisition.php?categ=sug&action=list&user_id[]=" . $this->id . "&user_statut[]=1&sugg_location_id=" . $this->empr_location . "' \" />";
}
}
$this->fiche = str_replace('!!voir_sugg!!', $btn_sug, $this->fiche);
} else {
$this->fiche = str_replace('!!voir_sugg!!', "", $this->fiche);
}
// mise à jour de la liste des abonnement de circulation de pério
$this->fiche = str_replace('!!serialcirc_empr!!', $this->fetch_serial_circ(), $this->fiche);
}
function confirm_pret($id_empr, $id_expl, $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;
//supprimer le pret temporaire
$query = "delete from pret where pret_idexpl = '" . $id_expl . "' ";
$result = pmb_mysql_query($query, $dbh);
/* 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 = @pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires " . $query);
$expl_properties = pmb_mysql_fetch_object($result);
$duree_pret = $expl_properties->duree_pret;
}
} else {
if ($pmb_quotas_avances) {
//Initialisation de la classe
$qt = new quota("LEND_TIME_QUOTA");
$struct["READER"] = $id_empr;
$struct["EXPL"] = $id_expl;
$duree_pret = $qt->get_quota_value($struct);
if ($duree_pret == -1) {
$duree_pret = 0;
}
} else {
$query = "SELECT duree_pret";
$query .= " FROM exemplaires, docs_type";
$query .= " WHERE expl_id='" . $id_expl;
$query .= "' and idtyp_doc=expl_typdoc LIMIT 1";
$result = @pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires " . $query);
$expl_properties = pmb_mysql_fetch_object($result);
$duree_pret = $expl_properties->duree_pret;
}
}
// calculer la date de retour prévue, tenir compte de la date de fin d'adhésion
if (!$duree_pret) {
$duree_pret = "0";
}
if ($pmb_pret_date_retour_adhesion_depassee) {
$rqt_date = "select empr_date_expiration,if(empr_date_expiration>date_add('" . $pret_date . "', INTERVAL '{$duree_pret}' DAY),0,1) as pret_depasse_adhes, date_add('" . $pret_date . "', INTERVAL '{$duree_pret}' DAY) as date_retour from empr where id_empr='" . $id_empr . "'";
} else {
$rqt_date = "select empr_date_expiration,if(empr_date_expiration>date_add('" . $pret_date . "', INTERVAL '{$duree_pret}' DAY),0,1) as pret_depasse_adhes, if(empr_date_expiration>date_add('" . $pret_date . "', INTERVAL '{$duree_pret}' DAY),date_add('" . $pret_date . "', INTERVAL '{$duree_pret}' DAY),empr_date_expiration) as date_retour from empr where id_empr='" . $id_empr . "'";
}
$resultatdate = pmb_mysql_query($rqt_date) or die(pmb_mysql_error() . "<br /><br />{$rqt_date}<br /><br />");
$res = pmb_mysql_fetch_object($resultatdate);
$date_retour = $res->date_retour;
$pret_depasse_adhes = $res->pret_depasse_adhes;
$empr_date_expiration = $res->empr_date_expiration;
if ($pmb_utiliser_calendrier) {
if ($pret_depasse_adhes == 0 || $pmb_pret_date_retour_adhesion_depassee) {
$rqt_date = "select date_ouverture from ouvertures where ouvert=1 and to_days(date_ouverture)>=to_days('{$date_retour}') and num_location={$deflt2docs_location} order by date_ouverture ";
$resultatdate = pmb_mysql_query($rqt_date);
$res = @pmb_mysql_fetch_object($resultatdate);
if ($res->date_ouverture) {
$date_retour = $res->date_ouverture;
}
} else {
$rqt_date = "select date_ouverture from ouvertures where date_ouverture>=sysdate() and ouvert=1 and to_days(date_ouverture)<=to_days('{$date_retour}') and num_location={$deflt2docs_location} order by date_ouverture DESC";
$resultatdate = pmb_mysql_query($rqt_date);
$res = @pmb_mysql_fetch_object($resultatdate);
if ($res->date_ouverture) {
$date_retour = $res->date_ouverture;
}
}
// Si la date_retour, calculée ci-dessus d'après le calendrier, dépasse l'adhésion, alors que c'est interdit,
// la date de retour doit etre le dernier jour ouvert
if (!$pmb_pret_date_retour_adhesion_depassee) {
$rqt_date = "SELECT DATEDIFF('{$empr_date_expiration}','{$date_retour}')as diff";
$resultatdate = pmb_mysql_query($rqt_date);
$res = @pmb_mysql_fetch_object($resultatdate);
if ($res->diff < 0) {
$rqt_date = "select date_ouverture from ouvertures where date_ouverture>=sysdate() and ouvert=1 and to_days(date_ouverture)<=to_days('{$empr_date_expiration}') and num_location={$deflt2docs_location} order by date_ouverture DESC";
$resultatdate = pmb_mysql_query($rqt_date);
$res = @pmb_mysql_fetch_object($resultatdate);
if ($res->date_ouverture) {
$date_retour = $res->date_ouverture;
}
}
}
}
// insérer le prêt
$query = "INSERT INTO pret SET ";
$query .= "pret_idempr = '" . $id_empr . "', ";
$query .= "pret_idexpl = '" . $id_expl . "', ";
$query .= "pret_date = sysdate(), ";
$query .= "pret_retour = '{$date_retour}', ";
$query .= "retour_initial = '{$date_retour}', ";
$query .= "short_loan_flag = " . ($pmb_short_loan_management && $short_loan ? "'1'" : "'0'");
$result = @pmb_mysql_query($query, $dbh) or die("can't INSERT into pret" . $query);
// insérer la trace en stat, récupérer l'id et le mettre dans la table des prêts pour la maj ultérieure
$stat_avant_pret = pret_construit_infos_stat($id_expl);
$stat_id = stat_stuff($stat_avant_pret);
$query = "update pret SET pret_arc_id='{$stat_id}' where ";
$query .= "pret_idempr = '" . $id_empr . "' and ";
$query .= "pret_idexpl = '" . $id_expl . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update pret for stats " . $query);
//enregistrer les champs perso pret
$p_perso = new pret_parametres_perso("pret");
$p_perso->rec_fields_perso($stat_id);
$query = "update exemplaires SET ";
$query .= "last_loan_date = sysdate() ";
$query .= "where expl_id= '" . $id_expl . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update last_loan_date in exemplaires : " . $query);
$query = "update exemplaires SET ";
$query .= "expl_retloc=0 ";
$query .= "where expl_id= '" . $id_expl . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update expl_retloc in exemplaires : " . $query);
$query = "update empr SET ";
$query .= "last_loan_date = sysdate() ";
$query .= "where id_empr= '" . $id_empr . "' ";
$result = @pmb_mysql_query($query, $dbh) or die("can't update last_loan_date in empr : " . $query);
//Débit du compte lecteur si nécessaire
if ($pmb_gestion_financiere && $pmb_gestion_tarif_prets) {
$tarif_pret = 0;
switch ($pmb_gestion_tarif_prets) {
case 1:
//Gestion simple
$query = "SELECT tarif_pret";
$query .= " FROM exemplaires, docs_type";
$query .= " WHERE expl_id='" . $id_expl;
$query .= "' and idtyp_doc=expl_typdoc LIMIT 1";
$result = @pmb_mysql_query($query, $dbh) or die("can't SELECT exemplaires " . $query);
$expl_tarif = pmb_mysql_fetch_object($result);
$tarif_pret = $expl_tarif->tarif_pret;
break;
case 2:
//Gestion avancée
//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);
$cpte->record_transaction("", abs($tarif_pret), -1, sprintf($msg["finance_pret_expl"], $id_expl), 0);
}
}
}
$this->resa_pret_gestion($id_empr, $id_expl, $stat_id);
$array[0]['statut'] = 1;
$buf_xml = array2xml($array);
return $buf_xml;
}
<?php
// +-------------------------------------------------+
// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
// +-------------------------------------------------+
// $Id: perso.inc.php,v 1.1 2015-06-26 13:15:12 dgoron Exp $
if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) {
die("no access");
}
require_once $class_path . "/pret_parametres_perso.class.php";
$option_visibilite = array();
$option_visibilite["multiple"] = "none";
$option_visibilite["obligatoire"] = "block";
$option_visibilite["search"] = "none";
$option_visibilite["export"] = "none";
$option_visibilite["filters"] = "block";
$option_visibilite["exclusion"] = "none";
$option_visibilite["opac_sort"] = "none";
$p_perso = new pret_parametres_perso("pret", "./admin.php?categ=loans&sub=perso", $option_visibilite);
$p_perso->proceed();
