Lines 1252-1258
sub GetMarcBiblio {
Link Here
|
1252 |
my $biblionumber = shift; |
1252 |
my $biblionumber = shift; |
1253 |
my $embeditems = shift || 0; |
1253 |
my $embeditems = shift || 0; |
1254 |
my $dbh = C4::Context->dbh; |
1254 |
my $dbh = C4::Context->dbh; |
1255 |
my $sth = $dbh->prepare("SELECT marcxml FROM biblioitems WHERE biblionumber=? "); |
1255 |
my $sth = $dbh->prepare("SELECT * FROM biblioitems WHERE biblionumber=? "); |
1256 |
$sth->execute($biblionumber); |
1256 |
$sth->execute($biblionumber); |
1257 |
my $row = $sth->fetchrow_hashref; |
1257 |
my $row = $sth->fetchrow_hashref; |
1258 |
my $marcxml = StripNonXmlChars( $row->{'marcxml'} ); |
1258 |
my $marcxml = StripNonXmlChars( $row->{'marcxml'} ); |
Lines 1264-1271
sub GetMarcBiblio {
Link Here
|
1264 |
if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; } |
1264 |
if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; } |
1265 |
return unless $record; |
1265 |
return unless $record; |
1266 |
|
1266 |
|
1267 |
C4::Biblio::_koha_marc_update_bib_ids($record, '', $biblionumber, $biblionumber); |
1267 |
C4::Biblio::_koha_marc_update_bib_ids($record, '', $biblionumber, $row->{biblioitemnumber}); |
1268 |
C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) if ($embeditems); |
1268 |
C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) if ($embeditems); |
1269 |
|
1269 |
|
1270 |
return $record; |
1270 |
return $record; |
1271 |
} else { |
1271 |
} else { |
1272 |
- |
|
|