X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FTemplate.pm;fp=lib%2FPackages%2FTemplate.pm;h=0fe24813ee9bad83afbf1999a4213f3c7ab9f451;hb=1fd5b9a7aa83ba35db2fd0543aeba1c3496b2e30;hp=554f2ce0e4c8551248ad625a9d0224190c1fff01;hpb=e454ca3e9cd32ded30b5ee29302119ccd28d71ee;p=deb%2Fpackages.git

diff --git a/lib/Packages/Template.pm b/lib/Packages/Template.pm
index 554f2ce..0fe2481 100644
--- a/lib/Packages/Template.pm
+++ b/lib/Packages/Template.pm
@@ -53,7 +53,7 @@ sub error {
 }
 
 sub page {
-    my ($self, $action, $page_content) = @_;
+    my ($self, $action, $page_content, $target) = @_;
 
     #use Data::Dumper;
     #die Dumper($self, $action, $page_content);
@@ -63,9 +63,13 @@ sub page {
 					@{$page_content->{used_langs}} );
 
     my $txt;
-    $self->process("$self->{format}/$action.tmpl", $page_content, \$txt)
-	or die sprintf( "template error: %s", $self->error ); # too late for reporting on-line
-
+    if ($target) {
+	$self->process("$self->{format}/$action.tmpl", $page_content, $target)
+	    or die sprintf( "template error: %s", $self->error ); # too late for reporting on-line
+    } else {
+	$self->process("$self->{format}/$action.tmpl", $page_content, \$txt)
+	    or die sprintf( "template error: %s", $self->error );
+    }
     return $txt;
 }