From 01303eee8ef487105153d6fd8e2f9103a2ee69fd Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 27 Jul 2006 15:51:05 +0000 Subject: [PATCH] Add commented-out logging. --- lib/ZOOM/IRSpy.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index b5bc04a..21b1a0f 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.13 2006-07-25 16:50:49 mike Exp $ +# $Id: IRSpy.pm,v 1.14 2006-07-27 15:51:05 mike Exp $ package ZOOM::IRSpy; @@ -148,9 +148,11 @@ sub initialise { } my $rs = $this->{conn}->search(new ZOOM::Query::CQL($this->{query})); + #print "size='", $rs->size(), "'\n"; foreach my $i (1 .. $rs->size()) { my $target = _render_record($rs, $i-1, "id"); my $zeerex = _render_record($rs, $i-1, "zeerex"); + #print STDERR "making '$target' record with '$zeerex'\n"; $target2record{lc($target)} = new ZOOM::IRSpy::Record($target, $zeerex); push @{ $this->{targets} }, $target @@ -161,6 +163,7 @@ sub initialise { my $record = $target2record{$target}; if (!defined $record) { $this->log("irspy_debug", "made new record for '$target'"); + #print STDERR "making '$target' record without zeerex\n"; $target2record{$target} = new ZOOM::IRSpy::Record($target); } else { $this->log("irspy_debug", "using existing record for '$target'"); -- 1.7.10.4