source: pmb4.1/trunk/fuentes/pmb/circ/ticket-pret.inc.php @ 478

Last change on this file since 478 was 478, checked in by mabarracus, 4 years ago

copy trusty code 4.1

  • Property svn:executable set to *
File size: 3.6 KB
Line 
1<?php
2// +-------------------------------------------------+
3// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
4// +-------------------------------------------------+
5// $Id: ticket-pret.inc.php,v 1.18 2009-05-16 11:11:53 dbellamy Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9require_once("$base_path/circ/pret_func.inc.php");
10// liste des prêts et réservations
11// prise en compte du param d'envoi de ticket de prêt électronique
12// la liste n'est envoyée que si pas de cb_doc, si cb_doc, c'est que c'est un ticket unique d'un prêt et dans ce cas, le ticket électronique est envoyé par pret.inc.php
13if ($empr_electronic_loan_ticket && !$cb_doc && $param_popup_ticket) {
14        electronic_ticket($id_empr) ;
15        }
16
17// popup d'impression PDF pour fiche lecteur
18// reçoit : id_empr et éventuellement cb_doc
19// Démarrage et configuration du pdf
20
21$ourPDF = new $fpdf('P', 'mm', 'A4');
22$ourPDF->Open();
23$ourPDF->addPage();
24$ourPDF->SetLeftMargin(10);                                                                                                                                             
25$ourPDF->SetTopMargin(10);
26
27$offsety = 40;
28
29biblio_info( 10, 10) ;
30lecteur_info($id_empr, 90, 10+$offsety, $dbh);
31date_edition(10,70+$offsety);
32
33if ($cb_doc == "") {
34        $rqt = "select expl_cb from pret, exemplaires where pret_idempr='".$id_empr."' and pret_idexpl=expl_id order by pret_date " ;
35        $req = mysql_query($rqt) or die($msg['err_sql'].'<br />'.$rqt.'<br />'.mysql_error()); 
36       
37        $ourPDF->SetXY (10,80+$offsety);
38        $ourPDF->setFont($pmb_pdf_font, 'BI', 20);
39        $ourPDF->multiCell(190, 20, $msg["prets_en_cours"], 0, 'L', 0);
40        $i=0;
41        $nb_page=0;
42        $nb_par_page = 10;
43        $nb_1ere_page = 7;
44        $taille_bloc = 18 ;
45        while ($data = mysql_fetch_array($req)) {
46                if ($nb_page==0 && $i<$nb_1ere_page) {
47                                $pos_page = 100+$offsety+$taille_bloc*$i;
48                                }
49                if (($nb_page==0 && $i==$nb_1ere_page) || ((($i-$nb_1ere_page) % $nb_par_page)==0)) {
50                        $ourPDF->addPage();
51                        $nb_page++;
52                        }
53                if ($nb_page>=1) {
54                        $pos_page = 10+($taille_bloc*($i-$nb_1ere_page-($nb_page-1)*$nb_par_page));
55                        }
56                expl_info ($data['expl_cb'],20,$pos_page,$dbh,0,65);
57                $i++;
58                }
59
60        // Impression des réservations en cours
61        $rqt = "select resa_idnotice, resa_idbulletin from resa where resa_idempr='".$id_empr."' " ;
62        $req = mysql_query($rqt) or die($msg['err_sql'].'<br />'.$rqt.'<br />'.mysql_error()); 
63        if (mysql_num_rows($req) > 0) {
64                if ($nb_page==0 && $i<$nb_1ere_page) {
65                                $pos_page = 100+$offsety+$taille_bloc*$i;
66                                }
67                if (($nb_page==0 && $i==$nb_1ere_page) || ((($i-$nb_1ere_page) % $nb_par_page)==0)) {
68                        $ourPDF->addPage();
69                        $nb_page++;
70                        }
71                if ($nb_page>=1) {
72                        $pos_page = 10+($taille_bloc*($i-$nb_1ere_page-($nb_page-1)*$nb_par_page));
73                        }
74                $i++;
75                $ourPDF->SetXY (10,$pos_page+7);
76                $ourPDF->setFont($pmb_pdf_font, 'BI', 20);
77                $ourPDF->multiCell(190, 20, $msg["documents_reserves"], 0, 'L', 0);
78               
79                while ($data = mysql_fetch_array($req)) {
80                if ($nb_page==0 && $i<$nb_1ere_page) {
81                                $pos_page = 100+$offsety+$taille_bloc*$i;
82                                }
83                if (($nb_page==0 && $i==$nb_1ere_page) || ((($i-$nb_1ere_page) % $nb_par_page)==0)) {
84                        $ourPDF->addPage();
85                        $nb_page++;
86                        }
87                if ($nb_page>=1) {
88                        $pos_page = 10+($taille_bloc*($i-$nb_1ere_page-($nb_page-1)*$nb_par_page));
89                        }
90                        not_bull_info_resa ($id_empr, $data['resa_idnotice'],$data['resa_idbulletin'],20,$pos_page,$dbh, 65);
91                        $i++;
92                        }
93                } // fin if résas
94
95        } else {
96                $ourPDF->SetXY (10,80+$offsety);
97                $ourPDF->setFont($pmb_pdf_font, 'BI', 20);
98                $ourPDF->multiCell(190, 20, $msg["ticket_de_pret"], 0, 'L', 0);
99
100                expl_info ($cb_doc,20,100+$offsety,$dbh,0,65);
101                }
102               
103//$ourPDF->SetXY (10,276);
104//$ourPDF->setFont('Arial', 'I', 8);
105//$ourPDF->multiCell(190, 0, "En cours de réalisation", 0, 1, 'L', 0);
106
107$ourPDF->OutPut();
108
109?>
Note: See TracBrowser for help on using the repository browser.