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