function pdf_export_dots(&$dots, &$more)
{
# PLEASE FOR TO BE CACHING ME, OBIWAN...
# (20110120/straup)
$w = 11;
$h = 8.5;
$margin = 0.5;
$dpi = 72;
$header_h = 0.2;
$row_h = 0.2;
$col_width = 1.25;
# Here we go...
$pdf = new FPDF("P", "in", array($w, $h));
$pdf->setMargins($margin, $margin);
# The legend gets added below (once we've figured out what page
# each dot is on) but we'll just declare it here.
$legend = array();
$count_legend_items = floor($h / ($row_h * 1.4));
$count_clusters = ceil(count($dots) / $count_legend_items);
# Just turn clusters off for now... the map rendering time
# is still too long for multiple map images (20110120/straup)
$count_clusters = 1;
$clusters = array();
if ($count_clusters == 1) {
$clusters = array($dots);
} else {
$points = array();
$i = 0;
foreach ($dots as $dot) {
$points[] = array('x' => (double) $dot['longitude'], 'y' => (double) $dot['latitude'], 'id' => $dot['id'], 'idx' => $i);
$i++;
}
$_clusters = kmeans_cluster($points, $count_clusters);
foreach ($_clusters as $_cluster) {
$_dots = array();
foreach ($_cluster as $_pt) {
$_dots[] = $dots[$pt['idx']];
}
$clusters[] = $_dots;
}
}
#
# First generate all the maps
#
$maps = array();
$img_more = array('width' => $h * $dpi, 'height' => $h * $dpi, 'dot_size' => 15);
foreach ($clusters as $dots) {
list($map, $gd_img) = maps_image_for_dots($dots, $img_more);
$maps[] = maps_gd_to_png($gd_img, 'pdf');
}
# Now figure out the what is the what of the dots
$columns = array();
$cols_per_page = floor(($w - $margin * 2) / $col_width);
$count_cols = count($more['columns']);
$pages_per_row = ceil($count_cols / $cols_per_page);
# See this? We're adding enough extra columns and re-counting
# everything in order to ensure that every page for each row
# has an 'id' column
if ($pages_per_row > 1) {
$_count = $count_cols + ($pages_per_row - 1);
$pages_per_row = ceil($_count / $cols_per_page);
}
# First, chunk out the header in (n) pages and measure the
# height of the (header) row itself
$_h = $header_h * 1.3;
$pdf->SetFont('Helvetica', 'B', 10);
for ($i = 0; $i < $count_cols; $i++) {
$col_name = $more['columns'][$i];
$b = floor($i / $cols_per_page);
if (!is_array($columns[$b])) {
$columns[] = array();
}
$columns[$b][] = $col_name;
$str_width = ceil($pdf->GetStringWidth($more['columns'][$i]));
if ($str_width > $col_width) {
$lines = ceil($str_width / $col_width);
$_h = max($_h, $lines * $header_h);
}
}
$header_h = $_h;
# make sure every page has an 'id' field
# (see above)
$count_columns = count($columns);
for ($i = 0; $i < $count_columns; $i++) {
$cols = $columns[$i];
if (!in_array('id', $cols)) {
array_unshift($cols, 'id');
$columns[$i] = $cols;
}
# move stuff around so that we keep the pages nice and tidy
if (count($columns[$i]) > $cols_per_page) {
$to_keep = array_slice($columns[$i], 0, $cols_per_page);
$extra = array_slice($columns[$i], $cols_per_page);
$columns[$i] = $to_keep;
$columns[$i + 1] = $extra;
}
}
# Now work out the height of each row of dots
$row_heights = array();
$pdf->SetFont('Helvetica', '', 10);
foreach ($dots as $dot) {
$_h = $row_h;
foreach ($dot as $key => $value) {
$str_width = ceil($pdf->GetStringWidth($value));
if ($str_width > $col_width) {
$lines = ceil($str_width / $col_width);
$_h = max($_h, $lines * $row_h);
}
}
$row_heights[] = $_h * 1.1;
}
# Now sort everything in to pages
$pages = array();
$page = 0;
$count_dots = count($dots);
$dot_idx = 0;
$y = $margin + $header_h;
while ($dot_idx < $count_dots) {
$dot = $dots[$dot_idx];
$row_height = $row_heights[$dot_idx];
# will this row bleed off the current page ($page) ?
$goto_nextpage = 0;
if ($y + $row_height > $h - $margin * 1.5) {
$goto_nextpage = 1;
}
if ($goto_nextpage) {
$page += $pages_per_row;
$y = $margin + $header_h;
}
$y += $row_height;
# set up information for legend
$legend[$dot['id']] = array('page' => $page + 2, 'id' => $dot['id'], 'latitude' => $dot['latitude'], 'longitude' => $dot['longitude'], 'ymd' => gmdate('Y-m-d', strtotime($dot['created'])));
#
$j = 0;
foreach ($columns as $cols) {
$_row = array();
foreach ($cols as $name) {
$_row[] = $dot[$name];
}
$page_idx = $page + $j;
if (!is_array($pages[$page_idx])) {
$pages[$page_idx] = array(array('row' => $cols, 'bold' => 1, 'height' => $header_h));
}
$pages[$page_idx][] = array('row' => $_row, 'height' => $row_height);
$j++;
}
$dot_idx++;
}
#
# ZOMG... finally publish the thing...
#
# First, display all the maps and corresponding
# legends
function sort_by_lat($a, $b)
{
if ($a['latitude'] == $b['latitude']) {
return 0;
}
return $a['latitude'] > $b['latitude'] ? -1 : 1;
}
$count_clusters = count($clusters);
for ($i = 0; $i < $count_clusters; $i++) {
$dots = $clusters[$i];
$_legend = array();
$j = 0;
foreach ($dots as $dot) {
$_legend[$dot['id']] = $legend[$dot['id']];
$j++;
if ($j >= $count_legend_items) {
break;
}
}
usort($_legend, "sort_by_lat");
$pdf->AddPage();
$pdf->Image($maps[$i], 0, 0, 0, 0, 'PNG');
$pdf->SetFont('Helvetica', '', 10);
$x = $h + $margin;
$y = $margin;
foreach ($_legend as $dot) {
$text = "{$dot['id']} / pg. {$dot['page']}";
$pdf->SetXY($x, $y);
$pdf->Cell(0, $row_h, $text);
$loc = new MMaps_Location($dot['latitude'], $dot['longitude']);
$pt = $map->locationPoint($loc);
$x1 = $x - $margin / 8;
$y1 = $y + $row_h / 2;
$x2 = $pt->x / $dpi;
$y2 = $pt->y / $dpi;
$pdf->Line($x1, $y1, $x2, $y2);
$y += $row_h * 1.1;
}
}
# Now the rows (of dots)
foreach ($pages as $page) {
$pdf->AddPage();
$x = $margin;
$y = $margin;
$z = 0;
foreach ($page as $data) {
$style = $data['bold'] ? 'B' : '';
$pdf->SetFont('Helvetica', $style, 10);
$x_offset = $col_width * 0.1;
$y_offset = $data['height'] * 0.1;
$max_width = $col_width - $x_offset * 3;
$bg = $z % 2 ? 255 : 235;
$z++;
foreach ($data['row'] as $value) {
$value = trim($value);
$width = $pdf->GetStringWidth($value);
$pdf->SetFillColor($bg);
$pdf->Rect($x, $y, $col_width, $data['height'], 'F');
# Don't bother with MultiCell - it is behaving
# badly (20110120/straup)
if ($width < $max_width) {
$pdf->SetXY($x + $x_offset, $y + $y_offset);
$pdf->Cell(0, $row_h, $value);
} else {
$_x = $x;
$_y = $y;
$lines = array();
$buffer = '';
foreach (str_split($value) as $char) {
if ($buffer == '' && $char == ' ') {
continue;
}
$buffer .= $char;
$width = $pdf->GetStringWidth($buffer);
if ($width >= $max_width) {
$lines[] = $buffer;
$buffer = '';
}
}
if (strlen($buffer)) {
$lines[] = $buffer;
$buffer = '';
}
foreach ($lines as $ln) {
$pdf->SetXY($_x + $x_offset, $_y + $y_offset);
$pdf->Cell(0, $row_h, $ln);
$_y += $row_h * 0.8;
}
}
$x += $col_width;
}
$x = $margin;
$y += $data['height'];
}
}
# Go!
$pdf->Close();
$pdf->Output($more['path'], 'F');
$pdf = null;
foreach ($maps as $map_img) {
if (!unlink($map_img)) {
error_log("[EXPORT] (pdf) unlink {$map_img} : {$ok}");
}
}
return $more['path'];
}
/**
* Sets up a new PDF object with the necessary settings
*
* @return FPDF A new PDF object
*/
protected function initialize_pdf()
{
global $CFG;
require_once $CFG->libdir . '/fpdf/fpdf.php';
$newpdf = new FPDF('L', 'in', 'letter');
$newpdf->setMargins(self::marginx, self::marginy);
$newpdf->SetFont('Arial', '', 9);
$newpdf->AddPage();
$newpdf->SetFont('Arial', '', 16);
$newpdf->MultiCell(0, 0.2, $this->report->title, 0, 'C');
$newpdf->Ln(0.2);
$newpdf->SetFont('Arial', '', 8);
$newpdf->SetFillColor(225, 225, 225);
return $newpdf;
}
Define("H_MARGIN", 13);
Define("COL_SIZE", 22);
Define("ROW_SIZE", 16);
Define("COL_NUM", 9);
Define("ROW_NUM", 17);
Define("V_PADDING", 0);
Define("H_PADDING", 0);
Define("BARCODE_WIDTH", 20);
Define("BARCODE_HEIGHT", 10);
Define("TEXT_HEIGHT", 3);
Define("TEXT_SIZE", 8);
}
require_once \Pasteque\PT::$ABSPATH . "/lib/barcode-master/php-barcode.php";
$font = "./lib/barcode-master/NOTTB___.TTF";
$pdf = new \FPDF(PAPER_ORIENTATION, "mm", PAPER_SIZE);
$pdf->setMargins(H_MARGIN, V_MARGIN);
$pdf->setAutoPageBreak(false, V_MARGIN);
$pdf->AddPage();
$pdf->SetFont('Arial', 'B', TEXT_SIZE);
function pdf_barcode($pdf, $productId, $col, $row)
{
$product = \Pasteque\ProductsService::get($productId);
$x = H_MARGIN + $col * COL_SIZE + $col * H_PADDING;
$y = V_MARGIN + $row * ROW_SIZE + $row * V_PADDING;
$pdf->SetXY($x, $y);
$pdf->Cell(BARCODE_WIDTH, TEXT_HEIGHT, utf8_decode($product->reference), 0, 1, "C");
$pdf->SetXY($x, $y + TEXT_HEIGHT);
$data = \Barcode::fpdf($pdf, "000000", $pdf->GetX() + BARCODE_WIDTH / 2, $pdf->GetY() + BARCODE_HEIGHT / 2, 0, "ean13", array('code' => $product->barcode), BARCODE_WIDTH / (15 * 7), BARCODE_HEIGHT);
$pdf->SetXY($x, $y + BARCODE_HEIGHT + TEXT_HEIGHT);
$pdf->Cell(BARCODE_WIDTH, TEXT_HEIGHT, $product->barcode, 0, 1, "C");
}
/**
* Get the data needed for a downloadable version of the report (all data,
* no paging necessary) and format it accordingly for the download file
* type.
*
* NOTE: It is expected that the valid format types will be overridden in
* an extended report class as the array is empty by default.
*
* @param string $format A valid format type.
*/
function download($format)
{
global $CFG;
$output = '';
if (empty($this->data)) {
return $output;
}
$filename = !empty($this->title) ? $this->title : 'report_download';
switch ($format) {
case 'csv':
$filename .= '.csv';
header("Content-Transfer-Encoding: ascii");
header("Content-Disposition: attachment; filename={$filename}");
header("Content-Type: text/comma-separated-values");
$row = array();
foreach ($this->headers as $header) {
$row[] = $this->csv_escape_string(strip_tags($header));
}
echo implode(',', $row) . "\n";
foreach ($this->data as $datum) {
if (!is_object($datum)) {
continue;
}
$row = array();
foreach ($this->headers as $id => $header) {
if (isset($datum->{$id})) {
$row[] = $this->csv_escape_string($datum->{$id});
} else {
$row[] = '""';
}
}
echo implode(',', $row) . "\n";
}
break;
case 'excel':
require_once $CFG->libdir . '/excellib.class.php';
$filename .= '.xls';
/// Creating a workbook
$workbook = new MoodleExcelWorkbook('-');
/// Sending HTTP headers
$workbook->send($filename);
/// Creating the first worksheet
$sheettitle = get_string('studentprogress', 'reportstudentprogress');
$myxls =& $workbook->add_worksheet($sheettitle);
/// Format types
$format =& $workbook->add_format();
$format->set_bold(0);
$formatbc =& $workbook->add_format();
$formatbc->set_bold(1);
$formatbc->set_align('center');
$formatb =& $workbook->add_format();
$formatb->set_bold(1);
$formaty =& $workbook->add_format();
$formaty->set_bg_color('yellow');
$formatc =& $workbook->add_format();
$formatc->set_align('center');
$formatr =& $workbook->add_format();
$formatr->set_bold(1);
$formatr->set_color('red');
$formatr->set_align('center');
$formatg =& $workbook->add_format();
$formatg->set_bold(1);
$formatg->set_color('green');
$formatg->set_align('center');
$rownum = 0;
$colnum = 0;
foreach ($this->headers as $header) {
$myxls->write($rownum, $colnum++, $header, $formatbc);
}
foreach ($this->data as $datum) {
if (!is_object($datum)) {
continue;
}
$rownum++;
$colnum = 0;
foreach ($this->headers as $id => $header) {
if (isset($datum->{$id})) {
$myxls->write($rownum, $colnum++, $datum->{$id}, $format);
} else {
$myxls->write($rownum, $colnum++, '', $format);
}
}
}
$workbook->close();
break;
case 'pdf':
require_once $CFG->libdir . '/fpdf/fpdf.php';
$filename .= '.pdf';
$newpdf = new FPDF('L', 'in', 'letter');
$marginx = 0.75;
$marginy = 0.75;
$newpdf->setMargins($marginx, $marginy);
$newpdf->SetFont('Arial', '', 9);
$newpdf->AddPage();
$newpdf->SetFont('Arial', '', 16);
$newpdf->MultiCell(0, 0.2, $this->title, 0, 'C');
$newpdf->Ln(0.2);
$newpdf->SetFont('Arial', '', 8);
$newpdf->SetFillColor(225, 225, 225);
$heights = array();
$widths = array();
$hmap = array();
$rownum = 0;
/// PASS 1 - Calculate sizes.
foreach ($this->headers as $id => $header) {
$widths[$id] = $newpdf->GetStringWidth($header) + 0.2;
}
$row = 0;
foreach ($this->data as $datum) {
if (!isset($heights[$row])) {
$heights[$row] = 0;
}
foreach ($this->headers as $id => $header) {
if (isset($datum->{$id})) {
$width = $newpdf->GetStringWidth($datum->{$id}) + 0.2;
if ($width > $widths[$id]) {
$lines = ceil($width / $widths[$id]);
$widths[$id] = $width;
} else {
$lines = 1;
}
$height = $lines * 0.2;
if ($height > $heights[$row]) {
$heights[$row] = $height;
}
}
}
$row++;
}
/// Calculate the width of the table...
$twidth = 0;
foreach ($widths as $width) {
$twidth += $width;
}
/// Readjust the left margin according to the total width...
$marginx = (11.0 - $twidth) / 2.0;
$newpdf->setMargins($marginx, $marginy);
foreach ($this->headers as $id => $header) {
$text = str_replace(' ', "\n", $header);
$newpdf->Cell($widths[$id], 0.2, "{$text}", 1, 0, 'C', 1);
}
$newpdf->Ln();
$row = 0;
foreach ($this->data as $datum) {
if (is_array($datum) && strtolower($datum[0]) == 'hr') {
$curx = $newpdf->GetX();
$cury = $newpdf->GetY() + 0.1;
$endx = 0;
$endy = $cury;
foreach ($widths as $width) {
$endx += $width;
}
$newpdf->Line($curx, $cury, $endx, $endy);
$newpdf->SetX($curx + 0.1);
} else {
foreach ($this->headers as $id => $header) {
$text = '';
if (isset($datum->{$id})) {
$text = $datum->{$id};
}
$newpdf->Cell($widths[$id], $heights[$row], $text, 0, 0, 'C', 0);
}
}
$newpdf->Ln();
$row++;
}
$newpdf->Output($filename, 'I');
break;
default:
return $output;
break;
}
}
