temp

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl b/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
index df37b2a..61c961a 100755 (executable)
--- a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
+++ b/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
@@ -21,8 +21,9 @@ $|=1; # flushes output
 print "Creating/updating field 100 if needed\n";
 while (my ($biblionumber,$time)=$sth->fetchrow ){
 #   my $record;
+print "record : $biblionumber \n";
     my $record = GetMarcBiblio($biblionumber);
-# print $record->as_formatted;
+print "=> ".$record->as_formatted;
     MARCmodrecord($biblionumber,$record,$time);
 #
 }