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