From d2c49720907258b149801f7f741a74a3bc3f7327 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Tue, 9 Aug 2005 21:55:44 +0000 Subject: [PATCH] Simplified Net::Amazon example (bug 14073) git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@370 48953598-375a-da11-a14b-00016c27c3ee --- Changes | 1 + lib/Maypole/Manual/Request.pod | 19 ++++++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/Changes b/Changes index d5ba3d3..b0e2172 100644 --- a/Changes +++ b/Changes @@ -6,6 +6,7 @@ For information about current developments and future releases, see: Fix to documentation for CGI::Maypole (bug 7263) Fix to cgi_maypole.t (bug 11346) Fix to TT error reporting (bug 13991) + Template xhtml validation (bug 13975) 2.10 Tue 19 Jul 2005 Multiple Template Paths added ( http://rt.cpan.org/NoAuth/Bug.html?id=13447 ) diff --git a/lib/Maypole/Manual/Request.pod b/lib/Maypole/Manual/Request.pod index f9788bd..0aa333a 100644 --- a/lib/Maypole/Manual/Request.pod +++ b/lib/Maypole/Manual/Request.pod @@ -602,16 +602,21 @@ to the original C routine. For instance, in this method, we use a L object to fill in some fields of a database row based on an ISBN: + use Net::Amazon; + my $amazon = Net::Amazon->new(token => 'YOUR_AMZN_TOKEN'); + + ... + sub create_from_isbn :Exported { my ($self, $r) = @_; - my $response = $ua->search(asin => $r->params->{isbn}); - my ($prop) = $response->properties; + my $book_info = $amazon->search(asin => $r->params->{isbn})->properties; + # Rewrite the CGI parameters with the ones from Amazon - @{$r->params->{qw(title publisher author year)} = - ($prop->title, - $prop->publisher, - (join "/", $prop->authors()), - $prop->year()); + $r->params->{title} = $book_info->title; + $r->params->{publisher} = $book_info->publisher; + $r->params->{year} = $book_info->year; + $r->params->{author} = join('and', $book_info->authors()); + # And jump to the usual edit/create routine $self->do_edit($r); } -- 2.39.5