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 |
- |
|
|