r1052@llin: dpavlin | 2006-09-29 22:15:12 +0200

 don't reset lookup and config on each data_structure call

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@730 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index b81b623..e1fd7be 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -102,9 +102,9 @@ sub data_structure {
        die "need normalisation argument" unless ($arg->{rules});
 
        no strict 'subs';
-       _set_lookup( $arg->{lookup} );
+       _set_lookup( $arg->{lookup} ) if defined($arg->{lookup});
        _set_rec( $arg->{row} );
-       _set_config( $arg->{config} );
+       _set_config( $arg->{config} ) if defined($arg->{config});
        _clean_ds( %{ $arg } );
        $load_ds_coderef = $arg->{load_ds_coderef};