From 71b88cbbe33d9bb8e28e072b9451b7217736fbfb Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Wed, 28 Apr 2010 17:51:36 +0200 Subject: [PATCH] fix debug output for debug=2 --- bin/irspy-rewrite-records.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/irspy-rewrite-records.pl b/bin/irspy-rewrite-records.pl index 4c89286..fc3de55 100755 --- a/bin/irspy-rewrite-records.pl +++ b/bin/irspy-rewrite-records.pl @@ -43,7 +43,7 @@ $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" ); my $rs = $spy->{conn}->search( new ZOOM::Query::CQL($cql_query) ); -print STDERR "rewriting ", $rs->size(), " target records" if $debug; +print STDERR "rewriting ", $rs->size(), " target records\n" if $debug; foreach my $i ( 1 .. $rs->size() ) { my $xml = render_record( $rs, $i - 1, "zeerex" ); @@ -58,7 +58,7 @@ foreach my $i ( 1 .. $rs->size() ) { } } ZOOM::IRSpy::_rewrite_zeerex_record( $spy->{conn}, $rec ); - print STDERR "." if $debug; + print STDERR "." if $debug == 1; } -print STDERR "\nDone\n" if $debug; +print STDERR "Done\n" if $debug; -- 1.7.10.4