/[webpac2]/trunk/lib/WebPAC/Normalize/ISBN.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize/ISBN.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 960 by dpavlin, Fri Nov 2 11:32:02 2007 UTC revision 1004 by dpavlin, Sun Nov 4 19:02:54 2007 UTC
# Line 34  sub isbn_13 { Line 34  sub isbn_13 {
34    
35          foreach my $isbn ( @_ ) {          foreach my $isbn ( @_ ) {
36    
37                    next unless $isbn =~ m/\d/;
38    
39                  my $i = Business::ISBN->new( $isbn );                  my $i = Business::ISBN->new( $isbn );
40                  if ( ! $i ) {                  if ( ! $i ) {
41                          warn "ERROR: ISBN not valid: $isbn\n";                          warn "ERROR: ISBN not valid: $isbn\n";
# Line 58  sub isbn_10 { Line 60  sub isbn_10 {
60    
61          foreach my $isbn ( @_ ) {          foreach my $isbn ( @_ ) {
62    
63                    next unless $isbn =~ m/\d/;
64    
65                  my $i = Business::ISBN->new( $isbn );                  my $i = Business::ISBN->new( $isbn );
66                  if ( ! $i ) {                  if ( ! $i ) {
67                          warn "ERROR: ISBN not valid: $isbn\n";                          warn "ERROR: ISBN not valid: $isbn\n";
Legend:
Removed from v.960  
changed lines
  Added in v.1004
  ViewVC Help
Powered by ViewVC 1.1.26