From: Wolfram Schneider <wosch@indexdata.dk>
Date: Wed, 28 Apr 2010 15:51:36 +0000 (+0200)
Subject: fix debug output for debug=2
X-Git-Tag: CPAN-v1.02~54^2~21^2
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=67fd99f3a4dde642cdc352df5ed28945266e88ef;p=irspy-moved-to-github.git

fix debug output for debug=2
---

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;