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