function generatePdfResasReaders($tresas, $location_biblio = 0)
{
global $dbh, $ourPDF, $fpdf, $deflt2docs_location;
global $fdp, $after_list, $limite_after_list, $before_list, $madame_monsieur;
global $nb_1ere_page, $nb_par_page, $taille_bloc_expl, $debut_expl_1er_page, $debut_expl_page;
global $marge_page_gauche, $marge_page_droite, $largeur_page, $hauteur_page, $format_page;
if (!$tresas) {
return 0;
}
if (SESSrights & CIRCULATION_AUTH) {
if (!$location_biblio) {
$location_biblio = $deflt2docs_location;
}
$this->infos_biblio($location_biblio);
// la formule de politesse du bas (le signataire)
$var = "pdflettreresa_fdp";
global ${$var};
eval("\$fdp=\"" . ${$var} . "\";");
// le texte après la liste des ouvrages en résa
$var = "pdflettreresa_after_list";
global ${$var};
eval("\$after_list=\"" . ${$var} . "\";");
// la position verticale limite du texte after_liste (si >, saut de page et impression)
$var = "pdflettreresa_limite_after_list";
global ${$var};
$limite_after_list = ${$var};
// le texte avant la liste des ouvrges en réservation
$var = "pdflettreresa_before_list";
global ${$var};
eval("\$before_list=\"" . ${$var} . "\";");
// le "Madame, Monsieur," ou tout autre truc du genre "Cher adhérent,"
$var = "pdflettreresa_madame_monsieur";
global ${$var};
eval("\$madame_monsieur=\"" . ${$var} . "\";");
// le nombre de blocs notices à imprimer sur la première page
$var = "pdflettreresa_nb_1ere_page";
global ${$var};
$nb_1ere_page = ${$var};
// le nombre de blocs notices à imprimer sur les pages suivantes
$var = "pdflettreresa_nb_par_page";
global ${$var};
$nb_par_page = ${$var};
// la taille d'un bloc notices
$var = "pdflettreresa_taille_bloc_expl";
global ${$var};
$taille_bloc_expl = ${$var};
// la position verticale du premier bloc notice sur la première page
$var = "pdflettreresa_debut_expl_1er_page";
global ${$var};
$debut_expl_1er_page = ${$var};
// la position verticale du premier bloc notice sur les pages suivantes
$var = "pdflettreresa_debut_expl_page";
global ${$var};
$debut_expl_page = ${$var};
// la marge gauche des pages
$var = "pdflettreresa_marge_page_gauche";
global ${$var};
$marge_page_gauche = ${$var};
// la marge droite des pages
$var = "pdflettreresa_marge_page_droite";
global ${$var};
$marge_page_droite = ${$var};
// la largeur des pages
$var = "pdflettreresa_largeur_page";
global ${$var};
$largeur_page = ${$var};
// la hauteur des pages
$var = "pdflettreresa_hauteur_page";
global ${$var};
$hauteur_page = ${$var};
// le format des pages
$var = "pdflettreresa_format_page";
global ${$var};
$format_page = ${$var};
$taille_doc = array($largeur_page, $hauteur_page);
$ourPDF = new $fpdf($format_page, 'mm', $taille_doc);
$ourPDF->Open();
foreach ($tresas as $idempr => $resa) {
if ($idempr != $id_empr_tmp) {
$liste_ids_resa = implode(",", $resa);
lettre_resa_par_lecteur($idempr, $liste_ids_resa);
$id_empr_tmp = $idempr;
}
}
$ourPDF->SetMargins($marge_page_gauche, $marge_page_gauche);
return $ourPDF;
} else {
return 0;
}
}
$var = "pdflettreresa_largeur_page";
$largeur_page = ${$var};
// la hauteur des pages
$var = "pdflettreresa_hauteur_page";
$hauteur_page = ${$var};
// le format des pages
$var = "pdflettreresa_format_page";
$format_page = ${$var};
$taille_doc = array($largeur_page, $hauteur_page);
$ourPDF = new $fpdf($format_page, 'mm', $taille_doc);
$ourPDF->Open();
switch ($pdfdoc) {
case "lettre_resa":
default:
// chercher id_empr validé
$rqt = "select resa_idempr from resa where id_resa in ({$id_resa}) ";
$res = pmb_mysql_query($rqt, $dbh);
while ($resa_validee = pmb_mysql_fetch_object($res)) {
if ($resa_validee->resa_idempr != $id_empr_tmp) {
lettre_resa_par_lecteur($resa_validee->resa_idempr);
$id_empr_tmp = $resa_validee->resa_idempr;
}
}
$ourPDF->SetMargins($marge_page_gauche, $marge_page_gauche);
break;
}
if ($probleme) {
echo "<script> self.close(); </script>";
} else {
$ourPDF->OutPut();
}