From cd8a565a6ad801d99d481585b52977bf95420702 Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul@koha-fr.org>
Date: Wed, 24 Oct 2007 14:42:09 -0500
Subject: [PATCH] temp

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 misc/migration_tools/22_to_30/rebuild_unimarc_100.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 df37b2a976..61c961a8c9 100755
--- 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);
 #
 }
-- 
2.39.5