package GCPlugins::GCbooks::GCbooksAmazonCommon; ################################################### # # Copyright 2005-2010 Christian Jodar # # This file is part of GCstar. # # GCstar is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # GCstar is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GCstar; if not, write to the Free Software # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA # ################################################### use strict; use GCPlugins::GCbooks::GCbooksCommon; use GCPlugins::GCstar::GCAmazonCommon; { package GCPlugins::GCbooks::GCbooksAmazonPluginsBase; use base ('GCPlugins::GCbooks::GCbooksPluginsBase', 'GCPlugins::GCstar::GCPluginAmazonCommon'); sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = $class->SUPER::new(); bless ($self, $class); $self->{codeField} = 'isbn'; return $self; } sub isEAN { my ($self, $value) = @_; return $value =~ /^978/; } sub getSearchFieldsArray { return ['isbn', 'title']; } sub getEanField { return 'isbn'; } } 1;