--- trunk/lib/WebPAC/Normalize.pm	2005/07/17 22:48:25	22
+++ trunk/lib/WebPAC/Normalize.pm	2005/07/24 11:17:44	29
@@ -2,6 +2,7 @@
 
 use warnings;
 use strict;
+use base 'WebPAC::Common';
 use Data::Dumper;
 
 =head1 NAME
@@ -78,7 +79,7 @@
 			return length($_);
 		}, ...
 	},
-	db => $webpac_db_obj,
+	db => $db_obj,
 	lookup_regex => $lookup->regex,
   );
 
@@ -128,7 +129,9 @@
 
 	if ($self->{'db'}) {
 		my @ds = $self->{'db'}->load_ds($rec);
-		return @ds if (@ds);
+		$log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper(@ds) });
+		return @ds if ($#ds > 0);
+		$log->debug("cache miss, creating");
 	}
 
 	undef $self->{'currnet_filename'};
@@ -242,6 +245,8 @@
 		headline => $self->{'headline'},
 	) if ($self->{'db'});
 
+	$log->debug("ds: ", sub { Dumper(@ds) });
+
 	return @ds;
 
 }