|
Lines 25-31
use Try::Tiny qw( catch try );
Link Here
|
| 25 |
use C4::Biblio qw( |
25 |
use C4::Biblio qw( |
| 26 |
GetMarcSubjects |
26 |
GetMarcSubjects |
| 27 |
); |
27 |
); |
| 28 |
use C4::Items qw( GetItemsInfo ); |
|
|
| 29 |
use C4::Auth qw( get_template_and_user ); |
28 |
use C4::Auth qw( get_template_and_user ); |
| 30 |
use C4::Output qw( output_and_exit output_html_with_http_headers ); |
29 |
use C4::Output qw( output_and_exit output_html_with_http_headers ); |
| 31 |
use C4::Templates; |
30 |
use C4::Templates; |
|
Lines 76-83
if ( $email_add ) {
Link Here
|
| 76 |
my $marcauthorsarray = $biblio->get_marc_contributors; |
75 |
my $marcauthorsarray = $biblio->get_marc_contributors; |
| 77 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
76 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
| 78 |
|
77 |
|
| 79 |
my @items = GetItemsInfo( $biblionumber ); |
|
|
| 80 |
|
| 81 |
my $hasauthors = 0; |
78 |
my $hasauthors = 0; |
| 82 |
if($dat->{'author'} || @$marcauthorsarray) { |
79 |
if($dat->{'author'} || @$marcauthorsarray) { |
| 83 |
$hasauthors = 1; |
80 |
$hasauthors = 1; |
|
Lines 88-94
if ( $email_add ) {
Link Here
|
| 88 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
85 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
| 89 |
$dat->{HASAUTHORS} = $hasauthors; |
86 |
$dat->{HASAUTHORS} = $hasauthors; |
| 90 |
$dat->{'biblionumber'} = $biblionumber; |
87 |
$dat->{'biblionumber'} = $biblionumber; |
| 91 |
$dat->{ITEM_RESULTS} = \@items; |
88 |
$dat->{ITEM_RESULTS} = $biblio->items->search_ordered; |
| 92 |
|
89 |
|
| 93 |
$iso2709 .= $record->as_usmarc(); |
90 |
$iso2709 .= $record->as_usmarc(); |
| 94 |
|
91 |
|