Lines 1173-1178
sub GetMarcBiblio {
Link Here
|
1173 |
$sth->execute($biblionumber); |
1173 |
$sth->execute($biblionumber); |
1174 |
my $row = $sth->fetchrow_hashref; |
1174 |
my $row = $sth->fetchrow_hashref; |
1175 |
my $biblioitemnumber = $row->{'biblioitemnumber'}; |
1175 |
my $biblioitemnumber = $row->{'biblioitemnumber'}; |
|
|
1176 |
|
1177 |
# When the record is not found or is deleted, then we should return |
1178 |
return unless $biblioitemnumber; |
1179 |
|
1176 |
my $marcxml = GetXmlBiblio( $biblionumber ); |
1180 |
my $marcxml = GetXmlBiblio( $biblionumber ); |
1177 |
$marcxml = StripNonXmlChars( $marcxml ); |
1181 |
$marcxml = StripNonXmlChars( $marcxml ); |
1178 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
1182 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
1179 |
- |
|
|