Let [pdf] tag pass through page size parameters.

interchange · Feb 24, 2011 · 4417947 · 4417947
1 parent 6937c06
commit 4417947
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/Vend/PDF.pm b/lib/Vend/PDF.pm
@@ -42,7 +42,7 @@ sub pdf {
 	my (%input, $locale, $ret);
 
 	if ($function eq 'combine') {
-		$ret = combine($output, $opt->{files});
+		$ret = combine($output, $opt->{files}, $opt);
 		return;
 	}
 
@@ -125,7 +125,8 @@ sub pdf {
 	my ($pdf);
 
 	$pdf = new Template::Zoom::PDF (template => $html_object,
-		import => $opt->{import});
+		import => $opt->{import},
+		page_size => $opt->{page_size});
 
 	$pdf->process($output);
 
@@ -137,10 +138,10 @@ sub pdf {
 }
 
 sub combine {
-	my ($output, $files) = @_;
+	my ($output, $files, $opt) = @_;
 	my ($pdf, $import);
 
-	$pdf = new Template::Zoom::PDF (file => $output);
+	$pdf = new Template::Zoom::PDF (file => $output, page_size => $opt->{page_size});
 
 	$import = new Template::Zoom::PDF::Import;