-# $Id: IRSpy.pm,v 1.11 2006-07-24 17:00:36 mike Exp $
+# $Id: IRSpy.pm,v 1.13 2006-07-25 16:50:49 mike Exp $
package ZOOM::IRSpy;
my $zeerex = _render_record($rs, $i-1, "zeerex");
$target2record{lc($target)} =
new ZOOM::IRSpy::Record($target, $zeerex);
+ push @{ $this->{targets} }, $target
+ if $this->{allrecords};
}
foreach my $target (keys %target2record) {
my $res = $this->_run_test("Main");
foreach my $target (sort keys %{ $this->{target2record} }) {
my $rec = $this->{target2record}->{$target};
+ # It's a shame that LibXML can't pretty-print this
print STDERR "$target: zeerex='", $rec->{zeerex}, "' = \n",
$rec->{zeerex}->toString(), "\n";
### Write record back to database, if modified.