r19166 - in /trunk/libnet-amazon-perl: ./ debian/ lib/Net/ lib/Net/Amazon/ lib/Net/Amazon/Property/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Apr 25 21:45:02 UTC 2008
Author: gregoa
Date: Fri Apr 25 21:45:00 2008
New Revision: 19166
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19166
Log:
New upstream release.
Modified:
trunk/libnet-amazon-perl/Changes
trunk/libnet-amazon-perl/META.yml
trunk/libnet-amazon-perl/README
trunk/libnet-amazon-perl/debian/changelog
trunk/libnet-amazon-perl/lib/Net/Amazon.pm
trunk/libnet-amazon-perl/lib/Net/Amazon/Property.pm
trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Book.pm
trunk/libnet-amazon-perl/lib/Net/Amazon/Property/CE.pm
trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Music.pm
trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Software.pm
trunk/libnet-amazon-perl/lib/Net/Amazon/Property/VideoGames.pm
Modified: trunk/libnet-amazon-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/Changes?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/Changes (original)
+++ trunk/libnet-amazon-perl/Changes Fri Apr 25 21:45:00 2008
@@ -1,4 +1,10 @@
Revision history for Perl extension Net::Amazon:
+0.49 (04/24/2008)
+ (cb) Make an effort to return the price of an item. Check for the
+ price of an item in the following order: Amazon's price, third
+ party new, and then third party used. This issue was reported
+ by a least two different people via Mike Schilli.
+
0.48 (01/13/2008)
(cb) Fix from MATSUU Takuto for ReleaseDate, and Title. These methods
have been moved to the base class. The theatrical release date
Modified: trunk/libnet-amazon-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/META.yml?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/META.yml (original)
+++ trunk/libnet-amazon-perl/META.yml Fri Apr 25 21:45:00 2008
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Net-Amazon
-version: 0.48
+version: 0.49
version_from: lib/Net/Amazon.pm
installdirs: site
requires:
Modified: trunk/libnet-amazon-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/README?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/README (original)
+++ trunk/libnet-amazon-perl/README Fri Apr 25 21:45:00 2008
@@ -1,5 +1,5 @@
######################################################################
- Net::Amazon 0.48
+ Net::Amazon 0.49
######################################################################
NAME
Net::Amazon - Framework for accessing amazon.com via REST
Modified: trunk/libnet-amazon-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/debian/changelog?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/debian/changelog (original)
+++ trunk/libnet-amazon-perl/debian/changelog Fri Apr 25 21:45:00 2008
@@ -1,3 +1,9 @@
+libnet-amazon-perl (0.49-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Fri, 25 Apr 2008 23:43:35 +0200
+
libnet-amazon-perl (0.48-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon.pm Fri Apr 25 21:45:00 2008
@@ -8,7 +8,7 @@
use strict;
use warnings;
-our $VERSION = '0.48';
+our $VERSION = '0.49';
our $WSDL_DATE = '2007-10-29';
our $Locale = 'us';
our @CANNED_RESPONSES = ();
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon/Property.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon/Property.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon/Property.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon/Property.pm Fri Apr 25 21:45:00 2008
@@ -139,11 +139,32 @@
}
$result .= $self->year() . ", " if $self->year();
- $result .= $self->OurPrice() . ", ";
+
+ $result .= $self->_best_effort_price() . ", ";
$result .= $self->ASIN();
return $result;
}
+
+##################################################
+sub _best_effort_price {
+##################################################
+ my($self) = @_;
+
+ my $price;
+ if ($self->OurPrice()) {
+ $price = $self->OurPrice();
+ } elsif ($self->ThirdPartyNewPrice()) {
+ $price = $self->ThirdPartyNewPrice();
+ } elsif ($self->UsedPrice()) {
+ $price = $self->UsedPrice();
+ } else {
+ $price = '[$unknown]';
+ }
+
+ return $price;
+}
+
##################################################
sub factory {
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Book.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Book.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Book.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Book.pm Fri Apr 25 21:45:00 2008
@@ -70,7 +70,7 @@
return join('/', @a) . ", " .
'"' . $self->title . '"' . ", " .
$self->year . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon/Property/CE.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon/Property/CE.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon/Property/CE.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon/Property/CE.pm Fri Apr 25 21:45:00 2008
@@ -76,7 +76,7 @@
return join('/', $self->platforms) . ", " .
'"' . $self->title . '"' . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Music.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Music.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Music.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Music.pm Fri Apr 25 21:45:00 2008
@@ -89,7 +89,7 @@
return join('/', $self->artists) . ", " .
'"' . $self->album . '"' . ", " .
$self->year . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->Asin;
}
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Software.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Software.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Software.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon/Property/Software.pm Fri Apr 25 21:45:00 2008
@@ -68,7 +68,7 @@
return join('/', @a) . ", " .
'"' . $self->title . '"' . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon/Property/VideoGames.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon/Property/VideoGames.pm?rev=19166&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon/Property/VideoGames.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon/Property/VideoGames.pm Fri Apr 25 21:45:00 2008
@@ -84,7 +84,7 @@
return join('/', $self->platforms) . ", " .
'"' . $self->title . '"' . ", " .
- $self->OurPrice . ", " .
+ $self->_best_effort_price() . ", " .
$self->ASIN;
}
More information about the Pkg-perl-cvs-commits
mailing list