Lines 765-771
sub BatchCommitItems {
Link Here
|
765 |
my ( $MARCfield, $MARCsubfield ) = GetMarcFromKohaField( 'items.onloan' ); |
765 |
my ( $MARCfield, $MARCsubfield ) = GetMarcFromKohaField( 'items.onloan' ); |
766 |
$item_marc->field($MARCfield)->delete_subfield( code => $MARCsubfield ); |
766 |
$item_marc->field($MARCfield)->delete_subfield( code => $MARCsubfield ); |
767 |
|
767 |
|
768 |
my $item = TransformMarcToKoha( $item_marc ); |
768 |
my $item = TransformMarcToKoha({ record => $item_marc }); |
769 |
|
769 |
|
770 |
my $duplicate_barcode = exists( $item->{'barcode'} ) && Koha::Items->find({ barcode => $item->{'barcode'} }); |
770 |
my $duplicate_barcode = exists( $item->{'barcode'} ) && Koha::Items->find({ barcode => $item->{'barcode'} }); |
771 |
my $duplicate_itemnumber = exists( $item->{'itemnumber'} ); |
771 |
my $duplicate_itemnumber = exists( $item->{'itemnumber'} ); |
Lines 1710-1716
sub _parse_biblio_fields {
Link Here
|
1710 |
my ($marc_record) = @_; |
1710 |
my ($marc_record) = @_; |
1711 |
|
1711 |
|
1712 |
my $dbh = C4::Context->dbh; |
1712 |
my $dbh = C4::Context->dbh; |
1713 |
my $bibliofields = TransformMarcToKoha($marc_record, ''); |
1713 |
my $bibliofields = TransformMarcToKoha({ record => $marc_record }); |
1714 |
return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'}); |
1714 |
return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'}); |
1715 |
|
1715 |
|
1716 |
} |
1716 |
} |
1717 |
- |
|
|