summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
095b0af)
this is *HUGE* performance improvement
old new
stmts
1112898 786000
subs 295048 228382
my $biblionumber = shift;
my $embeditems = shift || 0;
my $dbh = C4::Context->dbh;
my $biblionumber = shift;
my $embeditems = shift || 0;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT marcxml FROM biblioitems WHERE biblionumber=? ");
$sth->execute($biblionumber);
my $row = $sth->fetchrow_hashref;
my $sth = $dbh->prepare("SELECT marcxml FROM biblioitems WHERE biblionumber=? ");
$sth->execute($biblionumber);
my $row = $sth->fetchrow_hashref;
C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) if ($embeditems);
return $record;
C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) if ($embeditems);
return $record;
+
+=cut
+
+ my $sth = $dbh->prepare("SELECT marc FROM biblioitems WHERE biblionumber=? ");
+ $sth->execute($biblionumber);
+ my $row = $sth->fetchrow_hashref;
+ if ( $row->{marc} ) {
+ my $record = MARC::Record->new();
+ $record = MARC::Record::new_from_usmarc( $row->{marc} );
+ return $record;