From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 13 May 2006 13:39:09 +0000 (+0000)
Subject:  r617@llin:  dpavlin | 2006-05-13 15:42:13 +0200
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=4cbf330b89616c03b26a0ee535347f7d4d86541b;hp=acd5eceddca55257727e8d3b918e15688ae68c64;p=webpac2

 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
--- 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";