|
Lines 84-90
if ( $email ) {
Link Here
|
| 84 |
my $fw = GetFrameworkCode($biblionumber); |
84 |
my $fw = GetFrameworkCode($biblionumber); |
| 85 |
my $dat = GetBiblioData($biblionumber); |
85 |
my $dat = GetBiblioData($biblionumber); |
| 86 |
my $record = GetMarcBiblio($biblionumber, 1); |
86 |
my $record = GetMarcBiblio($biblionumber, 1); |
| 87 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
|
|
| 88 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
87 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
| 89 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
88 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
| 90 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
89 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
|
Lines 92-98
if ( $email ) {
Link Here
|
| 92 |
my @items = GetItemsInfo( $biblionumber ); |
91 |
my @items = GetItemsInfo( $biblionumber ); |
| 93 |
|
92 |
|
| 94 |
$dat->{ISBN} = GetMarcISBN($record, $marcflavour); |
93 |
$dat->{ISBN} = GetMarcISBN($record, $marcflavour); |
| 95 |
$dat->{MARCNOTES} = $marcnotesarray; |
|
|
| 96 |
$dat->{MARCSUBJCTS} = $marcsubjctsarray; |
94 |
$dat->{MARCSUBJCTS} = $marcsubjctsarray; |
| 97 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
95 |
$dat->{MARCAUTHORS} = $marcauthorsarray; |
| 98 |
$dat->{'biblionumber'} = $biblionumber; |
96 |
$dat->{'biblionumber'} = $biblionumber; |