Lines 75-80
if ( $email ) {
Link Here
|
75 |
my @shelf = GetShelf($shelfid); |
75 |
my @shelf = GetShelf($shelfid); |
76 |
my ($items, $totitems) = GetShelfContents($shelfid); |
76 |
my ($items, $totitems) = GetShelfContents($shelfid); |
77 |
my $marcflavour = C4::Context->preference('marcflavour'); |
77 |
my $marcflavour = C4::Context->preference('marcflavour'); |
|
|
78 |
my $baseurl = C4::Context->preference('OPACBaseURL'); |
78 |
my $iso2709; |
79 |
my $iso2709; |
79 |
my @results; |
80 |
my @results; |
80 |
|
81 |
|
Lines 95-100
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->{OPACBaseURL} = $baseurl; |
98 |
|
100 |
|
99 |
$iso2709 .= $record->as_usmarc(); |
101 |
$iso2709 .= $record->as_usmarc(); |
100 |
|
102 |
|
Lines 185-188
END_OF_BODY
Link Here
|
185 |
url => "/cgi-bin/koha/opac-sendshelf.pl", |
187 |
url => "/cgi-bin/koha/opac-sendshelf.pl", |
186 |
); |
188 |
); |
187 |
output_html_with_http_headers $query, $cookie, $template->output; |
189 |
output_html_with_http_headers $query, $cookie, $template->output; |
188 |
} |
190 |
} |
189 |
- |
|
|