X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy-rewrite-records.pl;h=fc3de55d037c4d95f9b6719808d0f9602962c18d;hp=3dbd731a9193d847bf989fd1247ebea62db13aa0;hb=7cfd357a4adad76aa368d2198f3756c83e86a708;hpb=938508b46480b139ee0945ed123c8c2ea60d0d1d

diff --git a/bin/irspy-rewrite-records.pl b/bin/irspy-rewrite-records.pl
index 3dbd731..fc3de55 100755
--- a/bin/irspy-rewrite-records.pl
+++ b/bin/irspy-rewrite-records.pl
@@ -6,7 +6,7 @@ use lib '../lib';
 use Data::Dumper;
 use Getopt::Long;
 use ZOOM::IRSpy;
-use ZOOM::IRSpy::Utils qw(render_record);
+use ZOOM::IRSpy::Utils qw(render_record validate_record);
 
 use strict;
 use warnings;
@@ -43,13 +43,22 @@ $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" );
     my $rec = $spy->{libxml}->parse_string($xml)->documentElement();
+
+    if ( $debug >= 2 ) {
+        my ( $ok, $errors ) = validate_record($rec);
+        if ( !$ok ) {
+            my @e  = @$errors;
+            my $id = shift @e;
+            print "Id: $id => ", join( " / ", @e ), "\n";
+        }
+    }
     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;