[Catalyst-commits] r11272 - Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF

ferz at dev.catalyst.perl.org ferz at dev.catalyst.perl.org
Sat Aug 29 09:57:47 GMT 2009


Author: ferz
Date: 2009-08-29 09:57:46 +0000 (Sat, 29 Aug 2009)
New Revision: 11272

Modified:
   Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm
Log:
fixed some errors


Modified: Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm
===================================================================
--- Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm	2009-08-29 09:40:34 UTC (rev 11271)
+++ Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm	2009-08-29 09:57:46 UTC (rev 11272)
@@ -120,7 +120,7 @@
 
 sub process {
     my ($self, $c) = @_;
-
+    $DB::single=1;
     $c->log->debug(__PACKAGE__ . ":" . __LINE__ . "process() chiamata");
     my $pdf_filename = $c->stash->{pdf_filename} || (split '/',$c->req->path)[-1] || 'index.pdf';
     $pdf_filename .= '.pdf' unless ($pdf_filename =~ /\.pdf$/i);
@@ -147,7 +147,7 @@
 sub render_pdf {
     my ($self, $c) = @_;
 
-    my $c->stash->{pdf} = PDF::API2->new;
+    $c->stash->{pdf} = PDF::API2->new;
     #     [% USE pdf = Catalyst::View::PDF::API2 %]
     my $template = <<'EOT';
     [% PROCESS $pdf_template %]
@@ -166,7 +166,7 @@
     #}
 
     my $pdfout = $c->stash->{pdf}->stringify;
-    $$c->stash->{pdf}->end;
+    $c->stash->{pdf}->end;
     return $pdfout;
 }
 




More information about the Catalyst-commits mailing list