Lines 55-70
sub store {
Link Here
|
55 |
? Koha::Biblios->find( $title->biblio_id )->unblessed |
55 |
? Koha::Biblios->find( $title->biblio_id )->unblessed |
56 |
: {}; |
56 |
: {}; |
57 |
|
57 |
|
58 |
my $marc_record = TransformKohaToMarc( |
|
|
59 |
{ |
60 |
%$biblio, |
61 |
'biblio.title' => $title->publication_title, |
62 |
|
63 |
} |
64 |
); |
65 |
|
66 |
my $biblio_id; |
58 |
my $biblio_id; |
67 |
if ( %$biblio ) { |
59 |
if ( %$biblio ) { |
|
|
60 |
|
61 |
my $marc_record = TransformKohaToMarc( |
62 |
{ |
63 |
%$biblio, |
64 |
'biblio.title' => $title->publication_title, |
65 |
|
66 |
} |
67 |
); |
68 |
|
68 |
$biblio_id = $title->biblio_id; |
69 |
$biblio_id = $title->biblio_id; |
69 |
C4::Biblio::ModBiblio($marc_record, $title->biblio_id, ''); |
70 |
C4::Biblio::ModBiblio($marc_record, $title->biblio_id, ''); |
70 |
} else { |
71 |
} else { |
71 |
- |
|
|