projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6f7f735
)
fix debug output for debug=2
author
Wolfram Schneider
<wosch@indexdata.dk>
Wed, 28 Apr 2010 15:51:36 +0000
(17:51 +0200)
committer
Wolfram Schneider
<wosch@indexdata.dk>
Wed, 28 Apr 2010 15:51:36 +0000
(17:51 +0200)
bin/irspy-rewrite-records.pl
patch
|
blob
|
history
diff --git
a/bin/irspy-rewrite-records.pl
b/bin/irspy-rewrite-records.pl
index
4c89286
..
fc3de55
100755
(executable)
--- 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) );
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" );
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 );
}
}
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;