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