Lines 1137-1142
sub GetMarcBiblio {
Link Here
|
1137 |
$sth->execute($biblionumber); |
1137 |
$sth->execute($biblionumber); |
1138 |
my $row = $sth->fetchrow_hashref; |
1138 |
my $row = $sth->fetchrow_hashref; |
1139 |
my $biblioitemnumber = $row->{'biblioitemnumber'}; |
1139 |
my $biblioitemnumber = $row->{'biblioitemnumber'}; |
|
|
1140 |
|
1141 |
# When the record is not found or is deleted, then we should return |
1142 |
return unless $biblioitemnumber; |
1143 |
|
1140 |
my $marcxml = GetXmlBiblio( $biblionumber ); |
1144 |
my $marcxml = GetXmlBiblio( $biblionumber ); |
1141 |
$marcxml = StripNonXmlChars( $marcxml ); |
1145 |
$marcxml = StripNonXmlChars( $marcxml ); |
1142 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
1146 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
1143 |
- |
|
|