[Catalyst-commits] r11270 - in Catalyst-View-PDF-API2/trunk: .
lib/Catalyst/View/PDF lib/Template/Plugin/Catalyst/View/PDF t
t/lib/TestApp/Controller
ferz at dev.catalyst.perl.org
ferz at dev.catalyst.perl.org
Sat Aug 29 07:30:37 GMT 2009
Author: ferz
Date: 2009-08-29 07:30:36 +0000 (Sat, 29 Aug 2009)
New Revision: 11270
Modified:
Catalyst-View-PDF-API2/trunk/README
Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm
Catalyst-View-PDF-API2/trunk/lib/Template/Plugin/Catalyst/View/PDF/API2.pm
Catalyst-View-PDF-API2/trunk/t/01-livetest.t
Catalyst-View-PDF-API2/trunk/t/lib/TestApp/Controller/Root.pm
Log:
Now it pass all test but the pdf_test.pdf is valid but void, I think that I've only to write a better
PDF::API2 template file.
Modified: Catalyst-View-PDF-API2/trunk/README
===================================================================
--- Catalyst-View-PDF-API2/trunk/README 2009-08-28 16:31:11 UTC (rev 11269)
+++ Catalyst-View-PDF-API2/trunk/README 2009-08-29 07:30:36 UTC (rev 11270)
@@ -24,12 +24,9 @@
Catalyst::View::PDF::Reuse
-NonSoLoSoft - http://www.nonsolosoft.com/
-
-
COPYRIGHT AND LICENCE
-Copyright (C) 2009 NonSoLoSoft
+Copyright (C) 2009 NonSoLoSoft - http://www.nonsolosoft.com/
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
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-28 16:31:11 UTC (rev 11269)
+++ Catalyst-View-PDF-API2/trunk/lib/Catalyst/View/PDF/API2.pm 2009-08-29 07:30:36 UTC (rev 11270)
@@ -121,6 +121,7 @@
sub process {
my ($self, $c) = @_;
+ $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);
@@ -128,7 +129,6 @@
$c->response->content_type('application/pdf');
$c->response->headers->header("Content-Disposition" => qq{$pdf_disposition; filename="$pdf_filename"});
-
$c->response->body($self->render_pdf($c));
}
@@ -156,7 +156,6 @@
# $pdf = PDF::API2->open($tempfile);
#
my $pdf = PDF::API2->new;
-
SEARCH: foreach my $path (@{$self->config->{INCLUDE_PATH}}) {
if (-e catfile($path,$c->stash->{pdf_template})) {
local $CWD = $path;
@@ -172,13 +171,13 @@
=head1 AUTHOR
-Jon Allen, L<jj at jonallen.info>
+Ferruccio Zamuner, L<nonsolosoft at diff.org>
=head1 BUGS
-Please report any bugs or feature requests to C<bug-catalyst-view-pdf-reuse at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-View-PDF-Reuse>. I will be notified, and then you'll
+Please report any bugs or feature requests to C<bug-catalyst-view-pdf-api2 at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-View-PDF-API2>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
@@ -188,28 +187,23 @@
perldoc Catalyst::View::PDF::API2
-Commercial support for this module is available from Penny's Arcade Limited,
-see L<http://www.pennysarcade.co.uk/contact> for contact details.
-
-You can also look for information at:
-
=over 4
=item * RT: CPAN's request tracker
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Catalyst-View-PDF-Reuse>
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Catalyst-View-PDF-API2>
=item * AnnoCPAN: Annotated CPAN documentation
-L<http://annocpan.org/dist/Catalyst-View-PDF-Reuse>
+L<http://annocpan.org/dist/Catalyst-View-PDF-API2>
=item * CPAN Ratings
-L<http://cpanratings.perl.org/d/Catalyst-View-PDF-Reuse>
+L<http://cpanratings.perl.org/d/Catalyst-View-PDF-API2>
=item * Search CPAN
-L<http://search.cpan.org/dist/Catalyst-View-PDF-Reuse>
+L<http://search.cpan.org/dist/Catalyst-View-PDF-API2>
=back
@@ -218,11 +212,11 @@
L<PDF::API2>
-Penny's Arcade Open Source - L<http://www.pennysarcade.co.uk/opensource>
+NonSoLoSoft - L<http://www.nonsolosoft.com/>
=head1 COPYRIGHT & LICENSE
-Copyright (C) 2009 Penny's Arcade Limited
+Copyright (C) 2009 NonSoLoSoft
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: Catalyst-View-PDF-API2/trunk/lib/Template/Plugin/Catalyst/View/PDF/API2.pm
===================================================================
--- Catalyst-View-PDF-API2/trunk/lib/Template/Plugin/Catalyst/View/PDF/API2.pm 2009-08-28 16:31:11 UTC (rev 11269)
+++ Catalyst-View-PDF-API2/trunk/lib/Template/Plugin/Catalyst/View/PDF/API2.pm 2009-08-29 07:30:36 UTC (rev 11270)
@@ -5,23 +5,19 @@
=head1 NAME
-Template::Plugin::Catalyst::View::PDF::Reuse
+Template::Plugin::Catalyst::View::PDF::API2
=head1 SYNOPSYS
-Template Toolkit plugin for PDF::Reuse
+Template Toolkit plugin for PDF::API2
=head1 AUTHOR
-Jon Allen, L<jj at jonallen.info>
+Ferruccio Zamuner, L<nonsolosoft at diff.org>
-=head1 SEE ALSO
-
-Penny's Arcade Open Source - L<http://www.pennysarcade.co.uk/opensource>
-
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Penny's Arcade Limited, all rights reserved.
+Copyright 2009 NonSoLoSoft, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: Catalyst-View-PDF-API2/trunk/t/01-livetest.t
===================================================================
--- Catalyst-View-PDF-API2/trunk/t/01-livetest.t 2009-08-28 16:31:11 UTC (rev 11269)
+++ Catalyst-View-PDF-API2/trunk/t/01-livetest.t 2009-08-29 07:30:36 UTC (rev 11270)
@@ -16,5 +16,4 @@
my $mech = Test::WWW::Mechanize::Catalyst->new;
$mech->get_ok('http://localhost/', 'get main page');
$mech->content_like(qr/it works/i, 'see if it has our text');
-
$mech->get_ok('http://localhost/pdf_test/', 'pdf test');
Modified: Catalyst-View-PDF-API2/trunk/t/lib/TestApp/Controller/Root.pm
===================================================================
--- Catalyst-View-PDF-API2/trunk/t/lib/TestApp/Controller/Root.pm 2009-08-28 16:31:11 UTC (rev 11269)
+++ Catalyst-View-PDF-API2/trunk/t/lib/TestApp/Controller/Root.pm 2009-08-29 07:30:36 UTC (rev 11270)
@@ -18,10 +18,8 @@
pdf_template=>'test_pdf.tt2',
pdf_filename=>'test_pdf.pdf',
} );
- $DB::single=1;
- $c->res->body(''.$c->view('PDF::API2')->render($c,'',$c->stash));
+ $c->forward('View::PDF::API2');
}
-
1;
More information about the Catalyst-commits
mailing list