From cd8a565a6ad801d99d481585b52977bf95420702 Mon Sep 17 00:00:00 2001 From: Paul POULAIN Date: Wed, 24 Oct 2007 14:42:09 -0500 Subject: [PATCH] temp Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- 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