projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix translation issues
[koha.git]
/
misc
/
batchImportMARCWithBiblionumbers.pl
diff --git
a/misc/batchImportMARCWithBiblionumbers.pl
b/misc/batchImportMARCWithBiblionumbers.pl
index
4acc02b
..
24692fd
100755
(executable)
--- a/
misc/batchImportMARCWithBiblionumbers.pl
+++ b/
misc/batchImportMARCWithBiblionumbers.pl
@@
-56,7
+56,7
@@
my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField("biblio.biblionumbe
my $i=0;
while ( my $record = $batch->next() ) {
my $i=0;
while ( my $record = $batch->next() ) {
-
my $biblionumber=$record->field($tagfield)->subfield(
$biblionumtagsubfield);
+
my $biblionumber = ($tagfield < 10) ? $record->field($tagfield)->data : $record->subfield($tagfield,
$biblionumtagsubfield);
$i++;
$sth2->execute($record->as_usmarc,$biblionumber) if $biblionumber;
print "$biblionumber \n";
$i++;
$sth2->execute($record->as_usmarc,$biblionumber) if $biblionumber;
print "$biblionumber \n";