Lines 21-26
use MARC::Record;
Link Here
|
21 |
|
21 |
|
22 |
use Koha::Database; |
22 |
use Koha::Database; |
23 |
|
23 |
|
|
|
24 |
use C4::Biblio qw( AddBiblio TransformKohaToMarc ); |
24 |
use Koha::Acquisition::Booksellers; |
25 |
use Koha::Acquisition::Booksellers; |
25 |
use Koha::Biblios; |
26 |
use Koha::Biblios; |
26 |
use Koha::ERM::EHoldings::Titles; |
27 |
use Koha::ERM::EHoldings::Titles; |
Lines 47-62
sub store {
Link Here
|
47 |
|
48 |
|
48 |
# FIXME This is terrible and ugly, we need to: |
49 |
# FIXME This is terrible and ugly, we need to: |
49 |
# * Provide a mapping for each attribute of title |
50 |
# * Provide a mapping for each attribute of title |
50 |
# * Deal with marcflavour |
|
|
51 |
# * Create a txn |
51 |
# * Create a txn |
52 |
my $title = $self->title; |
52 |
my $title = $self->title; |
53 |
my $biblio = $title->biblio_id ? Koha::Biblios->find($title->biblio_id) : undef; |
53 |
my $biblio = |
54 |
my $marc_record = $biblio ? $biblio->metadata->record : MARC::Record->new; |
54 |
$title->biblio_id |
55 |
eval {$marc_record->field('245')->delete_subfield('a');}; |
55 |
? Koha::Biblios->find( $title->biblio_id )->unblessed |
56 |
$marc_record->add_fields(MARC::Field->new(245, '', '', a => $title->publication_title)); |
56 |
: {}; |
|
|
57 |
|
58 |
my $marc_record = TransformKohaToMarc( |
59 |
{ |
60 |
%$biblio, |
61 |
'biblio.title' => $title->publication_title, |
62 |
|
63 |
} |
64 |
); |
57 |
|
65 |
|
58 |
my $biblio_id; |
66 |
my $biblio_id; |
59 |
if ( $biblio ) { |
67 |
if ( %$biblio ) { |
60 |
$biblio_id = $title->biblio_id; |
68 |
$biblio_id = $title->biblio_id; |
61 |
C4::Biblio::ModBiblio($marc_record, $title->biblio_id, ''); |
69 |
C4::Biblio::ModBiblio($marc_record, $title->biblio_id, ''); |
62 |
} else { |
70 |
} else { |
63 |
- |
|
|