r1499@llin: dpavlin | 2007-11-03 14:31:44 +0100

[webpac2] / lib / WebPAC / Normalize.pm

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 97759a9..f422878 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -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 @@ use Exporter 'import';
 
        get set
        count
+
 /;
 
 use warnings;
@@ -37,6 +38,8 @@ use Carp qw/confess/;
 # debugging warn(s)
 my $debug = 0;
 
+use WebPAC::Normalize::ISBN;
+push @EXPORT, ( 'isbn_10', 'isbn_13' );
 
 =head1 NAME
 
@@ -102,9 +105,6 @@ sub data_structure {
        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} );