Lines 81-92
if ( $email ) {
Link Here
|
81 |
# retrieve biblios from shelf |
81 |
# retrieve biblios from shelf |
82 |
foreach my $biblio (@$items) { |
82 |
foreach my $biblio (@$items) { |
83 |
my $biblionumber = $biblio->{biblionumber}; |
83 |
my $biblionumber = $biblio->{biblionumber}; |
84 |
|
84 |
my $fw = GetFrameworkCode($biblionumber); |
85 |
my $dat = GetBiblioData($biblionumber); |
85 |
my $dat = GetBiblioData($biblionumber); |
86 |
my $record = GetMarcBiblio($biblionumber); |
86 |
my $record = GetMarcBiblio($biblionumber); |
87 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
87 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
88 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
88 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
89 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
89 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
|
|
90 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
90 |
|
91 |
|
91 |
my @items = GetItemsInfo( $biblionumber ); |
92 |
my @items = GetItemsInfo( $biblionumber ); |
92 |
|
93 |
|
Lines 95-107
if ( $email ) {
Link Here
|
95 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
96 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
96 |
$dat->{'biblionumber'} = $biblionumber; |
97 |
$dat->{'biblionumber'} = $biblionumber; |
97 |
$dat->{ITEM_RESULTS} = \@items; |
98 |
$dat->{ITEM_RESULTS} = \@items; |
|
|
99 |
$dat->{subtitle} = $subtitle; |
98 |
|
100 |
|
99 |
$iso2709 .= $record->as_usmarc(); |
101 |
$iso2709 .= $record->as_usmarc(); |
100 |
|
102 |
|
101 |
push( @results, $dat ); |
103 |
push( @results, $dat ); |
102 |
} |
104 |
} |
103 |
|
105 |
|
104 |
my $user = GetMember(borrowernumber => $borrowernumber); |
106 |
my $user = GetMember(borrowernumber => $borrowernumber); |
|
|
107 |
|
108 |
if (C4::Context->preference('OPACBaseURL')){ |
109 |
$template2->param( OPACBaseURL => C4::Context->preference('OPACBaseURL') ); |
110 |
} |
105 |
|
111 |
|
106 |
$template2->param( |
112 |
$template2->param( |
107 |
BIBLIO_RESULTS => \@results, |
113 |
BIBLIO_RESULTS => \@results, |
Lines 185-188
END_OF_BODY
Link Here
|
185 |
url => "/cgi-bin/koha/opac-sendshelf.pl", |
191 |
url => "/cgi-bin/koha/opac-sendshelf.pl", |
186 |
); |
192 |
); |
187 |
output_html_with_http_headers $query, $cookie, $template->output; |
193 |
output_html_with_http_headers $query, $cookie, $template->output; |
188 |
} |
194 |
} |