View | Details | Raw Unified | Return to bug 19040
Collapse All | Expand All

(-)a/misc/migration_tools/22_to_30/missing090field.pl (-1 / +1 lines)
Lines 26-32 $sth->execute(); Link Here
26
26
27
my $i=1;
27
my $i=1;
28
while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){
28
while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){
29
 my $record = GetMarcBiblio($biblionumber);
29
 my $record = GetMarcBiblio({ biblionumber => $biblionumber });
30
    print ".";
30
    print ".";
31
    print "\r$i" unless $i %100;
31
    print "\r$i" unless $i %100;
32
    MARCmodbiblionumber($biblionumber,$biblioitemnumber,$record);
32
    MARCmodbiblionumber($biblionumber,$biblioitemnumber,$record);
(-)a/misc/migration_tools/22_to_30/rebuild_unimarc_100.pl (-2 / +1 lines)
Lines 29-35 print "Creating/updating field 100 if needed\n"; Link Here
29
while (my ($biblionumber,$time)=$sth->fetchrow ){
29
while (my ($biblionumber,$time)=$sth->fetchrow ){
30
#   my $record;
30
#   my $record;
31
# print "record : $biblionumber \n";
31
# print "record : $biblionumber \n";
32
    my $record = GetMarcBiblio($biblionumber);
32
    my $record = GetMarcBiblio({ biblionumber => $biblionumber });
33
# print "=> ".$record->as_formatted;
33
# print "=> ".$record->as_formatted;
34
    MARCmodrecord($biblionumber,$record,$time) if ($record);
34
    MARCmodrecord($biblionumber,$record,$time) if ($record);
35
#
35
#
36
- 

Return to bug 19040