Lines 77-89
if ( $email ) {
Link Here
|
77 |
|
77 |
|
78 |
# retrieve biblios from shelf |
78 |
# retrieve biblios from shelf |
79 |
foreach my $biblio (@$items) { |
79 |
foreach my $biblio (@$items) { |
80 |
my $biblionumber = $biblio->{biblionumber}; |
80 |
my $biblionumber = $biblio->{biblionumber}; |
81 |
|
81 |
my $fw = GetFrameworkCode($biblionumber); |
82 |
my $dat = GetBiblioData($biblionumber); |
82 |
my $dat = GetBiblioData($biblionumber); |
83 |
my $record = GetMarcBiblio($biblionumber); |
83 |
my $record = GetMarcBiblio($biblionumber); |
84 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
84 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
85 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
85 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
86 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
86 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
|
|
87 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
87 |
|
88 |
|
88 |
my @items = GetItemsInfo( $biblionumber ); |
89 |
my @items = GetItemsInfo( $biblionumber ); |
89 |
|
90 |
|
Lines 92-103
if ( $email ) {
Link Here
|
92 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
93 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
93 |
$dat->{'biblionumber'} = $biblionumber; |
94 |
$dat->{'biblionumber'} = $biblionumber; |
94 |
$dat->{ITEM_RESULTS} = \@items; |
95 |
$dat->{ITEM_RESULTS} = \@items; |
|
|
96 |
$dat->{subtitle} = $subtitle; |
95 |
|
97 |
|
96 |
$iso2709 .= $record->as_usmarc(); |
98 |
$iso2709 .= $record->as_usmarc(); |
97 |
|
99 |
|
98 |
push( @results, $dat ); |
100 |
push( @results, $dat ); |
99 |
} |
101 |
} |
100 |
|
102 |
|
|
|
103 |
if (C4::Context->preference('OPACBaseURL')){ |
104 |
$template2->param( OPACBaseurl => C4::Context->preference('OPACBaseURL') ); |
105 |
} |
106 |
|
101 |
$template2->param( |
107 |
$template2->param( |
102 |
BIBLIO_RESULTS => \@results, |
108 |
BIBLIO_RESULTS => \@results, |
103 |
email_sender => $email_from, |
109 |
email_sender => $email_from, |
104 |
- |
|
|