mirror of
https://github.com/alchemy-fr/Phraseanet.git
synced 2025-10-15 14:03:27 +00:00
Add PDF Export Module
This commit is contained in:
Romain Neutron
528
lib/Alchemy/Phrasea/Out/Module/PDF.php
Normal file
528
lib/Alchemy/Phrasea/Out/Module/PDF.php
Normal file
@@ -0,0 +1,528 @@
|
||||
<?php
|
||||
|
||||
/*
|
||||
* This file is part of Phraseanet
|
||||
*
|
||||
* (c) 2005-2010 Alchemy
|
||||
*
|
||||
* For the full copyright and license information, please view the LICENSE
|
||||
* file that was distributed with this source code.
|
||||
*/
|
||||
|
||||
namespace Alchemy\Phrasea\Out\Module;
|
||||
|
||||
use \Alchemy\Phrasea\Out\Tool\PhraseaPDF;
|
||||
|
||||
require_once __DIR__ . '/../../../vendor/tcpdf/tcpdf.php';
|
||||
|
||||
/**
|
||||
* Creates a PDF
|
||||
*
|
||||
* @package
|
||||
* @license http://opensource.org/licenses/gpl-3.0 GPLv3
|
||||
* @link www.phraseanet.com
|
||||
*/
|
||||
class PDF
|
||||
{
|
||||
|
||||
protected $records;
|
||||
protected $pdf;
|
||||
|
||||
const LAYOUT_PREVIEW = 'preview';
|
||||
const LAYOUT_PREVIEWCAPTION = 'previewCaption';
|
||||
const LAYOUT_PREVIEWCAPTIONTDM = 'previewCaptionTdm';
|
||||
const LAYOUT_THUMBNAILLIST = 'thumbnailList';
|
||||
const LAYOUT_THUMBNAILGRID = 'thumbnailGrid';
|
||||
|
||||
public function __construct(array $records, $layout)
|
||||
{
|
||||
$list = array();
|
||||
|
||||
foreach ($records as $record)
|
||||
{
|
||||
switch ($layout)
|
||||
{
|
||||
default:
|
||||
throw new \Exception('Unknown layout');
|
||||
break;
|
||||
case self::LAYOUT_PREVIEW:
|
||||
case self::LAYOUT_PREVIEWCAPTION:
|
||||
case self::LAYOUT_PREVIEWCAPTIONTDM:
|
||||
try
|
||||
{
|
||||
// exit('prout');
|
||||
$subdef = $record->get_subdef('preview');
|
||||
if (!$subdef->is_physically_present())
|
||||
{
|
||||
continue;
|
||||
}
|
||||
if ($subdef->get_type() !== \media_subdef::TYPE_IMAGE)
|
||||
continue;
|
||||
|
||||
$subdef = $record->get_subdef('thumbnail');
|
||||
if (!$subdef->is_physically_present())
|
||||
continue;
|
||||
|
||||
if ($subdef->get_type() !== \media_subdef::TYPE_IMAGE)
|
||||
continue;
|
||||
}
|
||||
catch (\Exception $e)
|
||||
{
|
||||
continue;
|
||||
}
|
||||
break;
|
||||
case self::LAYOUT_THUMBNAILLIST:
|
||||
case self::LAYOUT_THUMBNAILGRID:
|
||||
try
|
||||
{
|
||||
$subdef = $record->get_subdef('thumbnail');
|
||||
if (!$subdef->is_physically_present())
|
||||
continue;
|
||||
|
||||
if ($subdef->get_type() !== \media_subdef::TYPE_IMAGE)
|
||||
throw new \Exception('Not suitable');
|
||||
}
|
||||
catch (\Exception $e)
|
||||
{
|
||||
continue;
|
||||
}
|
||||
break;
|
||||
}
|
||||
|
||||
$record->set_number(count($list) + 1);
|
||||
|
||||
$list[] = $record;
|
||||
}
|
||||
|
||||
$this->records = $list;
|
||||
|
||||
$pdf = new PhraseaPDF("P", "mm", "A4", true, 'UTF-8', false);
|
||||
|
||||
$pdf->SetAuthor("Phraseanet");
|
||||
$pdf->SetTitle("Phraseanet Print");
|
||||
$pdf->SetDisplayMode("fullpage", "single");
|
||||
|
||||
$this->pdf = $pdf;
|
||||
|
||||
switch ($layout)
|
||||
{
|
||||
case "preview":
|
||||
$this->print_preview();
|
||||
break;
|
||||
case "previewCaption":
|
||||
$this->print_preview();
|
||||
break;
|
||||
case "previewCaptionTdm":
|
||||
$this->print_preview(true);
|
||||
break;
|
||||
case "thumbnailList":
|
||||
$this->print_thumbnailList();
|
||||
break;
|
||||
case "thumbnailGrid":
|
||||
$this->print_thumbnailGrid();
|
||||
break;
|
||||
}
|
||||
|
||||
return $this;
|
||||
}
|
||||
|
||||
public function render()
|
||||
{
|
||||
$this->pdf->Close();
|
||||
|
||||
return $this->pdf->Output('', 'S');
|
||||
}
|
||||
|
||||
protected function print_thumbnailGrid($links=false)
|
||||
{
|
||||
$appbox = \appbox::get_instance();
|
||||
$user = \User_Adapter::getInstance($appbox->get_session()->get_usr_id(), $appbox);
|
||||
|
||||
$NDiapoW = 3;
|
||||
$NDiapoH = 4;
|
||||
|
||||
$this->pdf->AddPage();
|
||||
|
||||
$oldMargins = $this->pdf->getMargins();
|
||||
$tmargin = $oldMargins['top'];
|
||||
$lmargin = $oldMargins['left'];
|
||||
$bmargin = $oldMargins['bottom'];
|
||||
$rmargin = $oldMargins['right'];
|
||||
|
||||
$this->pdf->SetLeftMargin($lmargin + 55);
|
||||
|
||||
$clientW = $this->pdf->getPageWidth() - $lmargin - $rmargin;
|
||||
$clientH = $this->pdf->getPageHeight() - $tmargin - $bmargin;
|
||||
|
||||
$DiapoW = floor($clientW / $NDiapoW);
|
||||
$DiapoH = floor($clientH / $NDiapoH);
|
||||
$TitleH = 5;
|
||||
$ImgSize = min($DiapoW, ($DiapoH - $TitleH)) - 5;
|
||||
|
||||
$npages = ceil(count($this->records) / ($NDiapoW * $NDiapoH));
|
||||
|
||||
$irow = $ipage = 0;
|
||||
$icol = -1;
|
||||
foreach ($this->records as $rec)
|
||||
{
|
||||
/* @var $rec record_adapter */
|
||||
if (++$icol >= $NDiapoW)
|
||||
{
|
||||
$icol = 0;
|
||||
if (++$irow >= $NDiapoH)
|
||||
{
|
||||
$irow = 0;
|
||||
$ipage++;
|
||||
$this->pdf->AddPage();
|
||||
}
|
||||
}
|
||||
$fimg = null;
|
||||
$himg = 0;
|
||||
|
||||
$subdef = $rec->get_subdef('preview');
|
||||
|
||||
$fimg = $subdef->get_pathfile();
|
||||
|
||||
if (!$user->ACL()->has_right_on_base($rec->get_base_id(), "nowatermark")
|
||||
&& $subdef->get_type() == media_subdef::TYPE_IMAGE)
|
||||
$fimg = recordutils_image::watermark($rec->get_base_id(), $rec->get_record_id());
|
||||
|
||||
$wimg = $himg = $ImgSize;
|
||||
if ($subdef->get_height() > 0 && $subdef->get_width() > 0)
|
||||
{
|
||||
if ($subdef->get_width() > $subdef->get_height())
|
||||
$himg = $wimg * $subdef->get_height() / $subdef->get_width();
|
||||
else
|
||||
$wimg = $himg * $subdef->get_width() / $subdef->get_height();
|
||||
}
|
||||
|
||||
if ($fimg)
|
||||
{
|
||||
$x = $lmargin + ($icol * $DiapoW);
|
||||
$y = $tmargin + ($irow * $DiapoH);
|
||||
$this->pdf->SetDrawColor(0);
|
||||
$this->pdf->Rect($x, $y, $DiapoW, $DiapoH, "D");
|
||||
|
||||
$this->pdf->SetXY($x, $y + 1);
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, '', 10);
|
||||
$t = $irow . '-' . $x;
|
||||
$t = $rec->get_title();
|
||||
|
||||
$this->pdf->MultiCell($DiapoW, $TitleH, $t, '0', 'C', false);
|
||||
|
||||
if ($links)
|
||||
{
|
||||
$lk = $this->pdf->AddLink();
|
||||
$this->pdf->SetLink($lk, 0, $npages + $rec->get_number());
|
||||
$this->pdf->Image(
|
||||
$fimg
|
||||
, $x + (($DiapoW - $wimg) / 2)
|
||||
, $TitleH + $y + (($DiapoH - $TitleH - $himg) / 2)
|
||||
, $wimg, $himg
|
||||
, null, $lk
|
||||
);
|
||||
}
|
||||
else
|
||||
{
|
||||
$this->pdf->Image($fimg
|
||||
, $x + (($DiapoW - $wimg) / 2)
|
||||
, $TitleH + $y + (($DiapoH - $TitleH - $himg) / 2)
|
||||
, $wimg, $himg
|
||||
);
|
||||
}
|
||||
}
|
||||
}
|
||||
$this->pdf->SetLeftMargin($oldMargins['left']);
|
||||
}
|
||||
|
||||
protected function print_thumbnailList()
|
||||
{
|
||||
$this->pdf->AddPage();
|
||||
$oldMargins = $this->pdf->getMargins();
|
||||
|
||||
$tmargin = $oldMargins['top'];
|
||||
$lmargin = $oldMargins['left'];
|
||||
$bmargin = $oldMargins['bottom'];
|
||||
$rmargin = $oldMargins['right'];
|
||||
|
||||
$this->pdf->SetLeftMargin($lmargin + 55);
|
||||
|
||||
$ndoc = 0;
|
||||
$lastpage = $this->pdf->PageNo();
|
||||
foreach ($this->records as $rec)
|
||||
{
|
||||
/* @var $rec record_adapter */
|
||||
$subdef = $rec->get_subdef('thumbnail');
|
||||
|
||||
$fimg = $subdef->get_pathfile();
|
||||
$wimg = $himg = 50;
|
||||
|
||||
if ($subdef->get_width() > $subdef->get_height())
|
||||
$himg = round($wimg * $subdef->get_height() / $subdef->get_width());
|
||||
else
|
||||
$wimg = round($himg * $subdef->get_width() / $subdef->get_height());
|
||||
|
||||
$himg = 0;
|
||||
|
||||
if ($this->pdf->GetY() > $this->pdf->getPageHeight() - (6 + $himg + 20))
|
||||
$this->pdf->AddPage();
|
||||
|
||||
$title = "record : " . $rec->get_title();
|
||||
|
||||
$y = $this->pdf->GetY();
|
||||
|
||||
$t = phrasea::bas_names($rec->get_base_id());
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, '', 10);
|
||||
$this->pdf->SetFillColor(220, 220, 220);
|
||||
$this->pdf->SetLeftMargin($lmargin);
|
||||
$this->pdf->SetRightMargin($rmargin);
|
||||
$this->pdf->SetX($lmargin);
|
||||
$this->pdf->SetY($y);
|
||||
|
||||
$this->pdf->out = false;
|
||||
$this->pdf->MultiCell(140, 4, $title, "LTR", "L", 1);
|
||||
$y2 = $this->pdf->GetY();
|
||||
$h = $y2 - $y;
|
||||
$this->pdf->out = true;
|
||||
$this->pdf->SetX($lmargin);
|
||||
$this->pdf->SetY($y);
|
||||
$this->pdf->Cell(0, $h, "", "LTR", 1, "R", 1);
|
||||
$this->pdf->SetX($lmargin);
|
||||
$this->pdf->SetY($y);
|
||||
$this->pdf->Cell(0, 4, $t, "", 1, "R");
|
||||
$this->pdf->SetX($lmargin);
|
||||
$this->pdf->SetY($y);
|
||||
$this->pdf->MultiCell(140, 4, $title, "", "L");
|
||||
$this->pdf->SetX($lmargin);
|
||||
$this->pdf->SetY($y = $y2);
|
||||
|
||||
$this->pdf->SetLeftMargin($lmargin + 55);
|
||||
$this->pdf->SetY($y + 2);
|
||||
|
||||
if ($fimg)
|
||||
{
|
||||
$y = $this->pdf->GetY();
|
||||
$this->pdf->Image($fimg, $lmargin, $y, $wimg, $himg);
|
||||
$this->pdf->SetY($y);
|
||||
}
|
||||
|
||||
$nf = 0;
|
||||
$this->pdf->SetX($lmargin + 55);
|
||||
$p0 = $this->pdf->PageNo();
|
||||
$y0 = $this->pdf->GetY();
|
||||
foreach ($rec->get_caption()->get_fields() as $field)
|
||||
{
|
||||
/* @var $field caption_field */
|
||||
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, 'B', 12);
|
||||
$this->pdf->Write(5, $field->get_name() . " : ");
|
||||
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, '', 12);
|
||||
$this->pdf->Write(5, $field->get_value(true));
|
||||
|
||||
$this->pdf->Write(6, "\n");
|
||||
$nf++;
|
||||
}
|
||||
if ($this->pdf->PageNo() == $p0 && ($this->pdf->GetY() - $y0) < $himg)
|
||||
$this->pdf->SetY($y0 + $himg);
|
||||
$ndoc++;
|
||||
}
|
||||
$this->pdf->SetLeftMargin($lmargin);
|
||||
}
|
||||
|
||||
protected function print_preview($withtdm=false)
|
||||
{
|
||||
$appbox = \appbox::get_instance();
|
||||
$registry = \registry::get_instance();
|
||||
$user = \User_Adapter::getInstance($appbox->get_session()->get_usr_id(), $appbox);
|
||||
|
||||
if ($withtdm === true)
|
||||
{
|
||||
$this->print_thumbnailGrid($this->pdf, $this->records, true);
|
||||
}
|
||||
|
||||
foreach ($this->records as $krec => $rec)
|
||||
{
|
||||
/* @var $rec record_adapter */
|
||||
|
||||
$this->pdf->AddPage();
|
||||
|
||||
if ($withtdm === "CALCPAGES")
|
||||
{
|
||||
if ($presentationpage)
|
||||
$rec->set_number($this->pdf->PageNo() + 1);
|
||||
else
|
||||
$rec->set_number($this->pdf->PageNo());
|
||||
}
|
||||
$lmargin = $this->pdf->GetX();
|
||||
$tmargin = $this->pdf->GetY();
|
||||
$himg = 0;
|
||||
$y = 0;
|
||||
$miniConv = NULL;
|
||||
|
||||
$LEFT__TEXT = "";
|
||||
$LEFT__IMG = NULL;
|
||||
$RIGHT_TEXT = "";
|
||||
$RIGHT_IMG = NULL;
|
||||
|
||||
$LEFT__IMG = $registry->get('GV_RootPath') . "config/minilogos/logopdf_"
|
||||
. $rec->get_sbas_id() . ".jpg";
|
||||
|
||||
if (!is_file($LEFT__IMG))
|
||||
{
|
||||
$databox = $rec->get_databox();
|
||||
$str = $databox->get_sxml_structure();
|
||||
$vn = (string) ($str->pdfPrintLogo);
|
||||
if (($vn * 1) == 1)
|
||||
{
|
||||
$LEFT__TEXT = $databox->get_viewname();
|
||||
}
|
||||
}
|
||||
|
||||
$collection = \collection::get_from_base_id($rec->get_base_id());
|
||||
|
||||
$vn = "";
|
||||
if ($str = simplexml_load_string($collection->get_prefs()))
|
||||
$vn = (string) ($str->pdfPrintappear);
|
||||
|
||||
if ($vn == "" || $vn == "1")
|
||||
{
|
||||
$RIGHT_TEXT = \phrasea::bas_names($rec->get_base_id());
|
||||
}
|
||||
elseif ($vn == "2")
|
||||
{
|
||||
$RIGHT_IMG = $registry->get('GV_RootPath') . "config/minilogos/" . $rec->get_base_id();
|
||||
}
|
||||
|
||||
$xtmp = $this->pdf->GetX();
|
||||
$ytmp = $this->pdf->GetY();
|
||||
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, '', 12);
|
||||
$this->pdf->SetFillColor(220, 220, 220);
|
||||
$y = $this->pdf->GetY();
|
||||
$this->pdf->MultiCell(95, 7, $LEFT__TEXT, "LTB", "L", 1);
|
||||
$y2 = $this->pdf->GetY();
|
||||
$h = $y2 - $y;
|
||||
$this->pdf->SetY($y);
|
||||
$this->pdf->SetX(105);
|
||||
$this->pdf->Cell(95, $h, $RIGHT_TEXT, "TBR", 1, "R", 1);
|
||||
|
||||
if ($LEFT__TEXT == "" && is_file($LEFT__IMG))
|
||||
{
|
||||
if ($size = @getimagesize($LEFT__IMG))
|
||||
{
|
||||
$wmm = (int) $size[0] * 25.4 / 72;
|
||||
$hmm = (int) $size[1] * 25.4 / 72;
|
||||
if ($hmm > 6)
|
||||
{
|
||||
$coeff = $hmm / 6;
|
||||
$wmm = (int) $wmm / $coeff;
|
||||
$hmm = (int) $hmm / $coeff;
|
||||
}
|
||||
$this->pdf->Image($LEFT__IMG, $xtmp + 0.5, $ytmp + 0.5, $wmm, $hmm);
|
||||
}
|
||||
}
|
||||
|
||||
if ($RIGHT_IMG != NULL && is_file($RIGHT_IMG))
|
||||
{
|
||||
if ($size = @getimagesize($RIGHT_IMG))
|
||||
{
|
||||
|
||||
if ($size[2] == '1')
|
||||
{
|
||||
if (!isset($miniConv[$RIGHT_IMG]))
|
||||
{
|
||||
$tmp_filename = tempnam('minilogos/', 'gif4fpdf');
|
||||
$img = imagecreatefromgif($RIGHT_IMG);
|
||||
imageinterlace($img, 0);
|
||||
imagepng($img, $tmp_filename);
|
||||
rename($tmp_filename, $tmp_filename . '.png');
|
||||
$miniConv[$RIGHT_IMG] = $tmp_filename . '.png';
|
||||
$RIGHT_IMG = $tmp_filename . '.png';
|
||||
}
|
||||
else
|
||||
$RIGHT_IMG = $miniConv[$RIGHT_IMG];
|
||||
|
||||
$wmm = (int) $size[0] * 25.4 / 72;
|
||||
$hmm = (int) $size[1] * 25.4 / 72;
|
||||
if ($hmm > 6)
|
||||
{
|
||||
$coeff = $hmm / 6;
|
||||
$wmm = (int) $wmm / $coeff;
|
||||
$hmm = (int) $hmm / $coeff;
|
||||
}
|
||||
$tt = 0;
|
||||
if ($hmm < 6)
|
||||
$tt = (6 - $hmm) / 2;
|
||||
$this->pdf->Image($RIGHT_IMG, 200 - 0.5 - $wmm, $ytmp + 0.5 + $tt);
|
||||
}
|
||||
else
|
||||
{
|
||||
$wmm = (int) $size[0] * 25.4 / 72;
|
||||
$hmm = (int) $size[1] * 25.4 / 72;
|
||||
if ($hmm > 6)
|
||||
{
|
||||
$coeff = $hmm / 6;
|
||||
$wmm = (int) $wmm / $coeff;
|
||||
$hmm = (int) $hmm / $coeff;
|
||||
}
|
||||
$this->pdf->Image($RIGHT_IMG, 200 - 0.5 - $wmm, $ytmp + 0.5);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$y = $this->pdf->GetY() + 3;
|
||||
|
||||
$subdef = $rec->get_subdef('preview');
|
||||
|
||||
$f = $subdef->get_pathfile();
|
||||
|
||||
if (!$user->ACL()->has_right_on_base($rec->get_base_id(), "nowatermark")
|
||||
&& $subdef->get_type() == media_subdef::TYPE_IMAGE)
|
||||
$f = recordutils_image::watermark($rec->get_base_id(), $rec->get_record_id());
|
||||
|
||||
$wimg = $himg = 150; // preview dans un carre de 150 mm
|
||||
if ($subdef->get_width() > 0 && $subdef->get_height() > 0)
|
||||
{
|
||||
if ($subdef->get_width() > $subdef->get_height())
|
||||
$himg = $wimg * $subdef->get_height() / $subdef->get_width();
|
||||
else
|
||||
$wimg = $himg * $subdef->get_width() / $subdef->get_height();
|
||||
}
|
||||
$this->pdf->Image($f, $lmargin, $y, $wimg, $himg);
|
||||
|
||||
if ($miniConv != NULL)
|
||||
{
|
||||
foreach ($miniConv as $oneF)
|
||||
unlink($oneF);
|
||||
}
|
||||
$this->pdf->SetXY($lmargin, $y += ( $himg + 5));
|
||||
|
||||
$nf = 0;
|
||||
foreach ($rec->get_caption()->get_fields() as $field)
|
||||
{
|
||||
/* @var $field caption_field */
|
||||
if ($nf > 0)
|
||||
$this->pdf->Write(6, "\n");
|
||||
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, 'B', 12);
|
||||
$this->pdf->Write(5, $field->get_name() . " : ");
|
||||
|
||||
$this->pdf->SetFont(PhraseaPDF::FONT, '', 12);
|
||||
|
||||
$t = str_replace(
|
||||
array("<", ">", "&")
|
||||
, array("<", ">", "&")
|
||||
, $field->get_value(true)
|
||||
);
|
||||
|
||||
$this->pdf->Write(5, $t);
|
||||
|
||||
$nf++;
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user