--- trunk/lib/WebPAC/Input/ISIS.pm	2006/08/26 12:00:25	623
+++ trunk/lib/WebPAC/Input/ISIS.pm	2006/08/26 12:00:36	625
@@ -88,19 +88,17 @@
 
 	my ($isis_db, $mfn, $filter_coderef) = @_;
 
-use Data::Dump qw/dump/;
-warn "fetch_rec filter_coderef = ", dump($filter_coderef), $/;
-
 	my $rec = $isis_db->to_hash({
 		mfn => $mfn,
 		include_subfields => 1,
-		hash_filter => sub {
-			my ($l,$f) = @_;
-			warn "## in hash_filter ($l,$f)\n";
-			my $o = $filter_coderef->($l,$f);
-			warn "## out hash_filter = $o\n";
-			return $o;
-		},
+		hash_filter => $filter_coderef,
+#		hash_filter => sub {
+#			my ($l,$f) = @_;
+#			warn "## in hash_filter ($l,$f)\n";
+#			my $o = $filter_coderef->($l,$f) if ($filter_coderef);
+#			warn "## out hash_filter = $o\n";
+#			return $o;
+#		},
 	});
 
 	return $rec;