Rev 1676 | Blame | Last modification | View Log | RSS feed
<?php/*** @category PHP* @package jrest* @author Raphaël Droz <raphael@tela-botania.org>* @copyright 2013 Tela-Botanica* @license http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>*/// Include the main TCPDF library (search for installation path).date_default_timezone_set("Europe/Paris");require_once('tcpdf_config.php');require_once('tcpdf/tcpdf.php');Class GenerateurPDF {public $pdf;function GenerateurPDF($utilisateur = NULL) {// create new PDF document$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);// set document information$pdf->SetCreator(PDF_CREATOR);$pdf->SetAuthor($utilisateur ? $utilisateur['prenom'] . ' ' . $utilisateur['nom'] : 'CEL - Tela Botanica');$pdf->SetTitle('Observations en étiquettes');$pdf->SetSubject('Étiquettes des observations');$pdf->SetKeywords('botaniques, observations, étiquettes, cel, tela-botanica');// set default header data// $pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 005', PDF_HEADER_STRING);// set header and footer fonts// $pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));// $pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));// set default monospaced font$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);// set margins$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);// set auto page breaks// $pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);$pdf->SetAutoPageBreak(FALSE, PDF_MARGIN_BOTTOM);$pdf->SetFont('times', '', 11);$pdf->setCellPaddings(1, 1, 1, 1);$pdf->setCellMargins(1, 1, 1, 1);$pdf->AddPage();$pdf->setEqualColumns(2);$this->pdf = $pdf;}function export($obs) {$pdf = &$this->pdf;$i = 0;while($i < count($obs)) {$pdf->selectColumn(0);// Multicell test$this->doHTMLcell($obs[$i++]); if(!isset($obs[$i])) break;$pdf->Ln();$this->doHTMLcell($obs[$i++]); if(!isset($obs[$i])) break;$pdf->Ln();$this->doHTMLcell($obs[$i++]); if(!isset($obs[$i])) break;/*$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 1, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 1, 1, '', '', true);*/$pdf->selectColumn(1);$this->doHTMLcell($obs[$i++]); if(!isset($obs[$i])) break;$pdf->Ln();$this->doHTMLcell($obs[$i++]); if(!isset($obs[$i])) break;$pdf->Ln();$this->doHTMLcell($obs[$i++]); if(!isset($obs[$i])) break;/*$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 0, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 0, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 0, 1, '', '', true);*/if(isset($obs[$i])) $pdf->AddPage();}}function getlinenb4($txt) {// store current object$this->pdf->startTransaction();// store starting values$start_y = $this->pdf->GetY();$start_page = $this->pdf->getPage();$this->pdf->MultiCell($this->column_width, $h=0, $txt, $border=0, $align='L', $fill=false, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0);$end_y = $this->pdf->GetY();$end_page = $this->pdf->getPage();// calculate height$height = 0;if ($end_page == $start_page) {$height = $end_y - $start_y;} else {for ($page=$start_page; $page <= $end_page; ++$page) {$this->setPage($page);if ($page == $start_page) {// first page$height = $this->pdf->h - $start_y - $this->pdf->bMargin;} elseif ($page == $end_page) {// last page$height = $end_y - $this->pdf->tMargin;} else {$height = $this->pdf->h - $this->pdf->tMargin - $this->bMargin;}}}// restore previous object$this->pdf = $this->pdf->rollbackTransaction();return $height;}function getlinenb3($txt) {return $this->pdf->getStringHeight($this->column_width, $txt);}function getlinenb2($txt) {//var_dump($line, $this->pdf->GetStringWidth($line));return ceil($this->pdf->GetStringWidth($txt) / $this->column_width);}function getlinenb($txt) {return $this->pdf->getStringHeight('', $txt) / ($this->pdf->getFontSize() * $this->pdf->getCellHeightRatio());}// singe la propriété CSS3 "text-overflow" : "ellipsis"function elude($txt, $limite_lignes = 3) {// echo strlen($txt) . ' '. $this->getlinenb($txt) . ' ' . $limite_lignes . "\n";$cell_paddings = $this->pdf->getCellPaddings();$marge = $cell_paddings['T'] + $cell_paddings['B'];$line_height = $this->pdf->getStringHeight($this->column_width, "a") - $marge;if($limite_lignes > 1) {$lim = $line_height * $limite_lignes + $marge; // $line_height + ($line_height - $marge) * ($limite_lignes - 1);} else {$lim = $line_height + $marge;}while(strlen($txt) > 4 && ($nb = $this->getlinenb3(strip_tags($txt))) > $lim) {//echo "$nb / $line_height: $txt\n";// TODO: mb_internal_encoding()$txt = mb_substr($txt, 0, -4, 'UTF-8') . '…';}//echo "$txt: $nb / $limite_lignes \n";return $txt;}// TODO: affichage pays dans "localité"// ORDER BY id_observation// italique pour nom d'espèce, mais pas auteurfunction doHTMLcell(&$obs) {$this->pdf->setCellMargins(0,0,0,0);$width = $this->column_width = 98;//echo "cell_padding['T']: " . $this->pdf->getCellPaddings()['T'] . ", cell_padding['B']: " . $this->pdf->getCellPaddings()['B'] . "\n";$lh = $this->pdf->getFontSize() * $this->pdf->getCellHeightRatio();//$lh = $this->pdf->GetLineWidth();/*var_dump($this->pdf->GetLineWidth(),$this->pdf->GetCharWidth("a"),$this->pdf->getStringHeight(60, "Ê"),$this->pdf->getHTMLFontUnits("plop"),$this->pdf->GetStringWidth("aa"),$lh,5,$this->getlinenb4("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum..."),$this->elude("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum...", 5),4,$this->getlinenb4("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor"),$this->elude("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum...", 4),3,$this->getlinenb4("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet"),$this->elude("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum...", 3),2,$this->getlinenb4("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore"),$this->elude("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum...", 2),1,$this->getlinenb4("Observation : Lorem ipsum dolor sit amet, consectetur"),$this->elude("Observation : Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Lorem ipsum...", 1));die;*//* $str = '<strong>Observation</strong> : ' . $obs['commentaire'];echo $this->getlinenb(strip_tags($str)) . "\n";echo $this->getlinenb2(strip_tags($str)) . "\n";echo $this->pdf->getStringHeight($width, strip_tags($str)) . "\n";echo $this->pdf->getStringHeight($width, "a") . "\n";echo ( $this->pdf->getStringHeight($width, strip_tags($str)) / $this->pdf->getStringHeight($width, "a")) . "\n";die;*/// 3ème paramètre = '' equivalent à $this->pdf->getX()// 4ème paramètre = '' equivalent à $this->pdf->getY()// référentiel/* $this->pdf->writeHTMLCell($w = $width, '', '', '',$html = '<strong>Référentiel</strong> : ' . $obs['nom_referentiel'],$border = 'LTR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true); */// famille$this->pdf->writeHTMLCell($w = $width, '', '', '',$html = '<strong>Famille</strong> : ' . strtoupper($obs['famille']),$border = 'LTR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true);/*// taxon// la taille maximum en bdtfx est 115 caractères UTF-8 (num_nom: 101483)// SELECT num_nom, CONCAT(nom_sci, ' ', auteur) AS a, CHAR_LENGTH(CONCAT(nom_sci, ' ', auteur)) FROM bdtfx_v1_01 ORDER BY CHAR_LENGTH(a) DESC limit 2;$nom = '<em>' . $obs['nom_ret'] . '</em>';if($obs['certitude'] && stripos($obs['certitude'], 'certain') === false) {$nom .= ' (' . $obs['certitude'] . ')';}$this->pdf->writeHTMLCell($w = $width, $lh * 3.5, '', '',//$html = '<strong>Espèce</strong> : ' . self::elude('Espèce : ', $obs['nom_ret'], 2),//$html = $this->elude('<strong>Taxon</strong> : ' . $nom, 3),$html = '<strong>Taxon</strong> : ' . $nom, // on ne strip pas le nom de taxon, car pas plus de 3 lignes$border = 'LR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true);*/// ou bien nom saisi...// la taille maximum dans cel_obs au 12/07/2013 est 112 caractères UTF-8 (id_observation: 787762)// SELECT id_observation, TRIM(nom_sel), CHAR_LENGTH(TRIM(nom_sel)) FROM cel_obs ORDER BY CHAR_LENGTH(TRIM(nom_sel)) DESC LIMIT 2;$nom = '<em>' . $obs['nom_sel'] . '</em>';if($obs['certitude'] && stripos($obs['certitude'], 'certain') === false) {$nom .= ' (' . $obs['certitude'] . ')';}$this->pdf->writeHTMLCell($w = $width, $lh * 3.5, '', '',//$html = '<strong>Espèce</strong> : ' . self::elude('Espèce : ', $obs['nom_ret'], 2),//$html = $this->elude('<strong>Taxon</strong> : ' . $nom, 3),$html = '<strong>Taxon</strong> : ' . mb_substr(trim($nom), 0, 115, 'UTF-8'), // on ne strip pas le nom sélectionné, car pas plus de 3 lignes, mais on assure la mise en page$border = 'LR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true);// collecteur// TODO: pseudo$limite_nom = 26;$prenom = $obs['prenom_utilisateur'];if(mb_strlen($prenom . ' ' . $obs['nom_utilisateur'], 'UTF-8') > $limite_nom) {$prenom = mb_substr($prenom, 0, 26 - mb_strlen($obs['nom_utilisateur'], 'UTF-8') - 1 /* espace */ - 1 /* … */, 'UTF-8') . '…';//var_dump($prenom);die;}$this->pdf->writeHTMLCell($w = $width - 25, '', '', '',$html = '<strong>Collecteur</strong> : ' . $prenom . ' ' . $obs['nom_utilisateur'],$border = 'L', $ln = 0, $fill = false, $reset = true, $align = 'L', $autopadding = true);// N°: TODO: writeHTMLCell() semble bugger$this->pdf->Cell($w = 25, '',$txt = 'N° : ' . $obs['id_observation'], //. sprintf("%04d", $obs['ordre'])$border = 'R', $ln = 1, $align = 'R', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');/*$this->pdf->writeHTMLCell($w = 30, '', '', '',$html = '<strong>N°</strong> : ' . $obs['id_observation'], //. sprintf("%04d", $obs['ordre']),$border = 'R', $ln = 1, $fill = true, $reset = true, $align = 'L', $autopadding = true);*/// localité// TODO: département// TEST: Corse (2A, 2B)$info_dep = "<strong>Localité</strong> : %s";$donnees_dep = array($obs['zone_geo']);if($obs['ce_zone_geo']) {$info_dep .= " (%s)";if(strpos($obs['ce_zone_geo'], 'INSEE') !== false) $donnees_dep[] = preg_replace('/^[^\d]*(\d\d).*/', '\1', $obs['ce_zone_geo']);else $donnees_dep[] = $obs['ce_zone_geo'];}$info_loc = '';$donnees_loc = array();if($obs['lieudit']) {$info_loc = "%s";$donnees_loc[] = $obs['lieudit'];}if($obs['station']) {$info_loc .= ", %s";$donnees_loc[] = $obs['station'];}if($obs['milieu']) {$info_loc .= " [%s]";$donnees_loc[] = $obs['milieu'];}$this->pdf->writeHTMLCell($w = $width, $lh * 3.5, '', '',//$html = "<strong>Localité</strong> : " .//self::elude('Localité : ', sprintf("%s (%s)\n%s, %s [%s]", $obs['zone_geo'], $obs['ce_zone_geo'], $obs['lieudit'], $obs['station'], $obs['milieu'] ), 3),// $html = self::elude(sprintf("<strong>Localité</strong> : %s (%s)\n%s, %s [%s]", $obs['zone_geo'], $obs['ce_zone_geo'], $obs['lieudit'], $obs['station'], $obs['milieu']), 3),$html = $this->elude(vsprintf($info_dep, $donnees_dep), 2) . "\n" .$this->elude(vsprintf($info_loc, $donnees_loc), 2),$border = 'LR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true);// lon/lat/alt$info_geo = '';$donnees = array();if($obs['latitude'] && $obs['longitude'] /* TODO: clean DB ! */ && $obs['latitude'] != 0.00000) {$info_geo .= "%.5f N / %.5f E";array_push($donnees, $obs['latitude'], $obs['longitude']);}if($obs['altitude']) {$info_geo .= ", %dm";array_push($donnees, $obs['altitude']);}$this->pdf->writeHTMLCell($w = $width, '', '', '',$html = vsprintf("<strong>Lat. / Lon. , Alt.</strong> : " . $info_geo, $donnees),$border = 'LR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true);// commentaire$this->pdf->writeHTMLCell($w = $width, $lh * 4.5, '', '',//$html = '<strong>Observation</strong> : ' . self::elude('Observation : ', $obs['commentaire']),$html = self::elude('<strong>Observations</strong> : ' . $obs['commentaire'], 4),$border = 'LR', $ln = 1, $fill = false, $reset = true, $align = 'L', $autopadding = true);// date$temps = strtotime($obs['date_observation']);$this->pdf->writeHTMLCell($w = $width, '', '', '',$html = '<strong>Date de récolte</strong> : ' . $temps ? strftime("%d/%m/%Y", $temps) : '',$border = 'LBR', $ln = 1, $fill = false, $reset = true, $align = 'R', $autopadding = true);}function docell($obs) {$this->pdf->setCellMargins(0,0,0,0);$this->pdf->Cell($w = 60, '',$txt = 'Famille : ' . $obs['famille'],$border = 'LT', $ln = 0, $align = 'L', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');$this->pdf->Cell($w = 20, '',$txt = 'N° : ' . $obs['id_observation'] /*. sprintf("%04d", $obs['ordre']) */,$border = 'TR', $ln = 1, $align = 'L', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');$this->pdf->Cell($w = 80, '',$txt = 'Espèce : ' . $obs['nom_ret'],$border = 'RL', $ln = 1, $align = 'L', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');$this->pdf->Cell($w = 80, '',$txt = 'Collecteur : ' . $obs['prenom_utilisateur'] . ' ' . $obs['nom_utilisateur'],$border = 'RL', $ln = 1, $align = 'L', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');$this->pdf->MultiCell(80, 20,$txt = sprintf("Localité : %s (%s)\n%s, %s", $obs['zone_geo'], $obs['ce_zone_geo'], $obs['lieudit'], $obs['station']),$border = 'RL', 'L', 0, 1, '', '', true);$this->pdf->Cell($w = 80, '',$txt = sprintf("Latitude, Longitude : %s / %s", $obs['latitude'], $obs['longitude']),$border = 'RL', $ln = 1, $align = 'L', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');$this->pdf->MultiCell(80, 20,$txt = 'Observation : ' . self::elude('Observation : ', $obs['commentaire']),$border = 'RL', 'L', 0, 1, '', '', true);$this->pdf->Cell($w = 80, '',$txt = 'Date : ' . strftime("%d/%m/%Y", strtotime($obs['date_observation'])),$border = 'LBR', $ln = 1, $align = 'R', $fill = false, $link = false, $stretch = 1, $ignore_min_height = false, $calign = 'T', $valign = 'M');}// singe la propriété CSS3 "text-overflow" : "ellipsis"function elude_bis($intitule, $commentaire, $lignes = 3) {// TODO: GetLineWidth, GetCharWidth()$limite = $lignes /* lignes */ * 43 /* caractères */ - strlen($intitule);if(mb_strlen($commentaire, 'UTF-8') < $limite) return $commentaire;return mb_substr($commentaire, 0, $limite - 2) . '…';}function export1($observations) {$pdf = &$this->pdf;// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)$pdf->setEqualColumns(2);$i = 0;while($i < count($observations)) {$obs = $observations[$i];$pdf->selectColumn(0);// Multicell test$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 1, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 1, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 1, 1, '', '', true);$pdf->Ln();$pdf->selectColumn(1);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 0, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 0, 1, '', '', true);$pdf->MultiCell(0, 25, self::doTemplate($obs), 1, 'L', 0, 1, '', '', true);$i += 6;if(isset($observations[$i])) $pdf->AddPage();}}static function doTemplate($obs) {$pattern =<<<EOFFamille: %s (%d)Espèce: %sCollecteur: %sLocalité: %sObservation: %s Date: %sEOF;return sprintf($pattern,$obs['famille'],$obs['ordre'],$obs['nom_ret'],$obs['prenom_utilisateur'] . ' ' . $obs['nom_utilisateur'],$obs['zone_geo'],$obs['commentaire'],strftime("%Y-%m-%d", strtotime($obs['date_observation'])));}function export2($observations) {$pdf = &$this->pdf;$pdf->setEqualColumns(2);$i = 0;$y = $pdf->getY();$x = $pdf->getX();while($i < count($observations)) {$obs = $observations[$i++];$pdf->selectColumn(0);// Multicell test$pdf->writeHTMLCell(0, 25, $x, $y + 25 * 0, self::doHTMLTemplate($obs), 1, 0, 0, true);$pdf->writeHTMLCell(0, 25, $x, $y + 25 * 1, self::doHTMLTemplate($obs), 1, 0, 0, true);$pdf->writeHTMLCell(0, 25, $x, $y + 25 * 2, self::doHTMLTemplate($obs), 1, 0, 0, true);//$pdf->Ln();$pdf->selectColumn(1);$pdf->writeHTMLCell(0, 25, $x, $y + 25 * 0, self::doHTMLTemplate($obs), 1, 1, 1, true);$pdf->writeHTMLCell(0, 25, $x, $y + 25 * 1, self::doHTMLTemplate($obs), 1, 1, 1, true);$pdf->writeHTMLCell(0, 25, $x, $y + 25 * 2, self::doHTMLTemplate($obs), 1, 1, 1, true);$i += 6;if(isset($observations[$i])) $pdf->AddPage();}}static function doHTMLTemplate($obs) {$pattern =<<<EOF<p>Famille: %s <span style="text-align: right">(%d)</span><br/>Espèce: %s<br/>Collecteur: %s<br/>Localité: %s<br/>Observation: %s Date: %s</p>EOF;return sprintf($pattern,$obs['famille'],$obs['ordre'],$obs['nom_ret'],$obs['prenom_utilisateur'] . ' ' . $obs['nom_utilisateur'],$obs['zone_geo'],$obs['commentaire'],strftime("%Y-%m-%d", strtotime($obs['date_observation'])));}}