From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Tue, 9 Aug 2005 21:55:44 +0000 (+0000)
Subject: Simplified Net::Amazon example (bug 14073)
X-Git-Tag: 2.11~148
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=d2c49720907258b149801f7f741a74a3bc3f7327;p=maypole.git

Simplified Net::Amazon example (bug 14073)

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@370 48953598-375a-da11-a14b-00016c27c3ee
---

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<do_edit> routine. For instance, in this method,
 we use a L<Net::Amazon> 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);
     }