1a25f0a04SGreg Roach<?php 2a25f0a04SGreg Roach/** 3a25f0a04SGreg Roach * webtrees: online genealogy 4*1062a142SGreg Roach * Copyright (C) 2018 webtrees development team 5a25f0a04SGreg Roach * This program is free software: you can redistribute it and/or modify 6a25f0a04SGreg Roach * it under the terms of the GNU General Public License as published by 7a25f0a04SGreg Roach * the Free Software Foundation, either version 3 of the License, or 8a25f0a04SGreg Roach * (at your option) any later version. 9a25f0a04SGreg Roach * This program is distributed in the hope that it will be useful, 10a25f0a04SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 11a25f0a04SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12a25f0a04SGreg Roach * GNU General Public License for more details. 13a25f0a04SGreg Roach * You should have received a copy of the GNU General Public License 14a25f0a04SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>. 15a25f0a04SGreg Roach */ 1676692c8bSGreg Roachnamespace Fisharebest\Webtrees\Report; 17a25f0a04SGreg Roach 18a25f0a04SGreg Roach/** 19a25f0a04SGreg Roach * Class ReportPdfFootnote 20a25f0a04SGreg Roach */ 21a25f0a04SGreg Roachclass ReportPdfFootnote extends ReportBaseFootnote { 22a25f0a04SGreg Roach /** 23a25f0a04SGreg Roach * PDF Footnotes number renderer 24a25f0a04SGreg Roach * 25adc8b18aSGreg Roach * @param ReportTcpdf $renderer 26a25f0a04SGreg Roach */ 27ffd703eaSGreg Roach public function render($renderer) { 287a6ee1acSGreg Roach $renderer->setCurrentStyle('footnotenum'); 29a25f0a04SGreg Roach $renderer->Write($renderer->getCurrentStyleHeight(), $this->numText, $this->addlink); //source link numbers after name 30a25f0a04SGreg Roach } 31a25f0a04SGreg Roach 32a25f0a04SGreg Roach /** 33a25f0a04SGreg Roach * Write the Footnote text 34a25f0a04SGreg Roach * Uses style name "footnote" by default 35a25f0a04SGreg Roach * 36adc8b18aSGreg Roach * @param ReportTcpdf $pdf 37a25f0a04SGreg Roach */ 38ffd703eaSGreg Roach public function renderFootnote($pdf) { 39a25f0a04SGreg Roach if ($pdf->getCurrentStyle() != $this->styleName) { 40a25f0a04SGreg Roach $pdf->setCurrentStyle($this->styleName); 41a25f0a04SGreg Roach } 427a6ee1acSGreg Roach $temptext = str_replace('#PAGENUM#', $pdf->PageNo(), $this->text); 43a25f0a04SGreg Roach // Set the link to this y/page position 44a25f0a04SGreg Roach $pdf->SetLink($this->addlink, -1, -1); 45a25f0a04SGreg Roach // Print first the source number 46a25f0a04SGreg Roach // working 47a25f0a04SGreg Roach if ($pdf->getRTL()) { 487a6ee1acSGreg Roach $pdf->writeHTML('<span> .' . $this->num . '</span>', false, false, false, false, ''); 49a25f0a04SGreg Roach } else { 507a6ee1acSGreg Roach $temptext = '<span>' . $this->num . '. </span>' . $temptext; 51a25f0a04SGreg Roach } 52a25f0a04SGreg Roach // underline «title» part of Source item 5313abd6f3SGreg Roach $temptext = str_replace(['«', '»'], ['<u>', '</u>'], $temptext); 54a25f0a04SGreg Roach $pdf->writeHTML($temptext, true, false, true, false, ''); 55a25f0a04SGreg Roach } 56a25f0a04SGreg Roach 57a25f0a04SGreg Roach /** 58a25f0a04SGreg Roach * Returns the height in points of the Footnote element 59a25f0a04SGreg Roach * 60adc8b18aSGreg Roach * @param ReportTcpdf $renderer 61a25f0a04SGreg Roach * 62a25f0a04SGreg Roach * @return float $h 63a25f0a04SGreg Roach */ 64ffd703eaSGreg Roach public function getFootnoteHeight($renderer) { 65a25f0a04SGreg Roach return 0; 66a25f0a04SGreg Roach } 67a25f0a04SGreg Roach 68a25f0a04SGreg Roach /** 69a25f0a04SGreg Roach * Splits the text into lines to fit into a giving cell 70a25f0a04SGreg Roach * and returns the last lines width 71a25f0a04SGreg Roach * 72adc8b18aSGreg Roach * @param ReportTcpdf $pdf 73a25f0a04SGreg Roach * 74a25f0a04SGreg Roach * @return array 75a25f0a04SGreg Roach */ 76ffd703eaSGreg Roach public function getWidth($pdf) { 77a25f0a04SGreg Roach // Setup the style name, a font must be selected to calculate the width 787a6ee1acSGreg Roach $pdf->setCurrentStyle('footnotenum'); 79a25f0a04SGreg Roach 80a25f0a04SGreg Roach // Check for the largest font size in the box 81a25f0a04SGreg Roach $fsize = $pdf->getCurrentStyleHeight(); 82a25f0a04SGreg Roach if ($fsize > $pdf->largestFontHeight) { 83a25f0a04SGreg Roach $pdf->largestFontHeight = $fsize; 84a25f0a04SGreg Roach } 85a25f0a04SGreg Roach 86a25f0a04SGreg Roach // Returns the Object if already numbered else false 87a25f0a04SGreg Roach if (empty($this->num)) { 88a25f0a04SGreg Roach $pdf->checkFootnote($this); 89a25f0a04SGreg Roach } 90a25f0a04SGreg Roach 91a25f0a04SGreg Roach // Get the line width 92a25f0a04SGreg Roach $lw = ceil($pdf->GetStringWidth($this->numText)); 93a25f0a04SGreg Roach // Line Feed counter - Number of lines in the text 94a25f0a04SGreg Roach $lfct = substr_count($this->numText, "\n") + 1; 95a25f0a04SGreg Roach // If there is still remaining wrap width... 96a25f0a04SGreg Roach if ($this->wrapWidthRemaining > 0) { 97a25f0a04SGreg Roach // Check with line counter too! 98a25f0a04SGreg Roach // but floor the $wrapWidthRemaining first to keep it bugfree! 99a25f0a04SGreg Roach $wrapWidthRemaining = (int) ($this->wrapWidthRemaining); 100102a585eSGreg Roach if ($lw >= $wrapWidthRemaining || $lfct > 1) { 101102a585eSGreg Roach $newtext = ''; 102a25f0a04SGreg Roach $lines = explode("\n", $this->numText); 103a25f0a04SGreg Roach // Go throught the text line by line 104a25f0a04SGreg Roach foreach ($lines as $line) { 105a25f0a04SGreg Roach // Line width in points 106a25f0a04SGreg Roach $lw = ceil($pdf->GetStringWidth($line)); 107a25f0a04SGreg Roach // If the line has to be wraped 108a25f0a04SGreg Roach if ($lw >= $wrapWidthRemaining) { 1097a6ee1acSGreg Roach $words = explode(' ', $line); 110a25f0a04SGreg Roach $addspace = count($words); 111a25f0a04SGreg Roach $lw = 0; 112a25f0a04SGreg Roach foreach ($words as $word) { 113a25f0a04SGreg Roach $addspace--; 1147a6ee1acSGreg Roach $lw += ceil($pdf->GetStringWidth($word . ' ')); 115a25f0a04SGreg Roach if ($lw < $wrapWidthRemaining) { 116a25f0a04SGreg Roach $newtext .= $word; 117a25f0a04SGreg Roach if ($addspace != 0) { 1187a6ee1acSGreg Roach $newtext .= ' '; 119a25f0a04SGreg Roach } 120a25f0a04SGreg Roach } else { 1217a6ee1acSGreg Roach $lw = $pdf->GetStringWidth($word . ' '); 122a25f0a04SGreg Roach $newtext .= "\n$word"; 123a25f0a04SGreg Roach if ($addspace != 0) { 1247a6ee1acSGreg Roach $newtext .= ' '; 125a25f0a04SGreg Roach } 126a25f0a04SGreg Roach // Reset the wrap width to the cell width 127a25f0a04SGreg Roach $wrapWidthRemaining = $this->wrapWidthCell; 128a25f0a04SGreg Roach } 129a25f0a04SGreg Roach } 130a25f0a04SGreg Roach } else { 131a25f0a04SGreg Roach $newtext .= $line; 132a25f0a04SGreg Roach } 133a25f0a04SGreg Roach // Check the Line Feed counter 134a25f0a04SGreg Roach if ($lfct > 1) { 135a25f0a04SGreg Roach // Add a new line feed as long as it’s not the last line 136a25f0a04SGreg Roach $newtext .= "\n"; 137a25f0a04SGreg Roach // Reset the line width 138a25f0a04SGreg Roach $lw = 0; 139a25f0a04SGreg Roach // Reset the wrap width to the cell width 140a25f0a04SGreg Roach $wrapWidthRemaining = $this->wrapWidthCell; 141a25f0a04SGreg Roach } 142a25f0a04SGreg Roach $lfct--; 143a25f0a04SGreg Roach } 144a25f0a04SGreg Roach $this->numText = $newtext; 145a25f0a04SGreg Roach $lfct = substr_count($this->numText, "\n"); 146a25f0a04SGreg Roach 14713abd6f3SGreg Roach return [$lw, 1, $lfct]; 148a25f0a04SGreg Roach } 149a25f0a04SGreg Roach } 150a25f0a04SGreg Roach $l = 0; 151a25f0a04SGreg Roach $lfct = substr_count($this->numText, "\n"); 152a25f0a04SGreg Roach if ($lfct > 0) { 153a25f0a04SGreg Roach $l = 2; 154a25f0a04SGreg Roach } 155a25f0a04SGreg Roach 15613abd6f3SGreg Roach return [$lw, $l, $lfct]; 157a25f0a04SGreg Roach } 158a25f0a04SGreg Roach} 159