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