--- trunk/lib/WebPAC/Normalize.pm 2007/11/03 12:37:43 979 +++ trunk/lib/WebPAC/Normalize.pm 2007/11/03 13:33:19 980 @@ -1,6 +1,6 @@ package WebPAC::Normalize; use Exporter 'import'; -@EXPORT = qw/ +our @EXPORT = qw/ _set_rec _set_lookup _set_load_row _get_ds _clean_ds @@ -24,6 +24,7 @@ get set count + /; use warnings; @@ -37,6 +38,8 @@ # debugging warn(s) my $debug = 0; +use WebPAC::Normalize::ISBN; +push @EXPORT, ( 'isbn_10', 'isbn_13' ); =head1 NAME @@ -102,9 +105,6 @@ die "need row argument" unless ($arg->{row}); die "need normalisation argument" unless ($arg->{rules}); - # FIXME load this conditionally -# use WebPAC::Normalize::ISBN; - no strict 'subs'; _set_lookup( $arg->{lookup} ) if defined($arg->{lookup}); _set_rec( $arg->{row} );