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