r617@llin: dpavlin | 2006-05-13 15:42:13 +0200

 dump lookup_hash

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

diff --git a/t/6-unit.t b/t/6-unit.t
index dc1431b..489ba81 100755 (executable)
--- a/t/6-unit.t
+++ b/t/6-unit.t
@@ -26,7 +26,8 @@ $abs_path =~ s#/[^/]*$#/#;
 diag "abs_path: $abs_path" if ($debug);
 
 my $isis_file = "$abs_path../t/winisis/BIBL";
-$isis_file = '/data/hidra/THS/THS';
+#$isis_file = '/data/hidra/THS/THS';
+$isis_file = '/data/isis_data/ffkk/';
 
 diag "isis_file: $isis_file" if ($debug);
 
@@ -88,7 +89,7 @@ while (my $row = $isis->fetch) {
        {
                no strict 'subs';
                use WebPAC::Normalize::Set;
-               diag " lookup => ",Dumper($lookup) if ($debug);
+               diag " lookup => ",Dumper($lookup->lookup_hash) if ($debug);
                set_lookup( $lookup->lookup_hash );
                clean_ds();
                eval "$norm_pl";