Bug 19943: Remove C4::Biblio::GetBiblioItemData

It is no longer used.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2018-01-09 14:38:10 -03:00
parent 6183c0e6a9
commit d9bc1949e9

View file

@ -67,7 +67,6 @@ BEGIN {
push @EXPORT, qw(
GetBiblioData
GetMarcBiblio
GetBiblioItemData
&GetRecordValue
@ -720,34 +719,6 @@ sub GetBiblioData {
return ($data);
} # sub GetBiblioData
=head2 GetBiblioItemData
$itemdata = &GetBiblioItemData($biblioitemnumber);
Looks up the biblioitem with the given biblioitemnumber. Returns a
reference-to-hash. The keys are the fields from the C<biblio>,
C<biblioitems>, and C<itemtypes> tables in the Koha database, except
that C<biblioitems.notes> is given as C<$itemdata-E<gt>{bnotes}>.
=cut
sub GetBiblioItemData {
my ($biblioitemnumber) = @_;
my $dbh = C4::Context->dbh;
my $query = "SELECT *,biblioitems.notes AS bnotes
FROM biblio LEFT JOIN biblioitems on biblio.biblionumber=biblioitems.biblionumber ";
unless ( C4::Context->preference('item-level_itypes') ) {
$query .= "LEFT JOIN itemtypes on biblioitems.itemtype=itemtypes.itemtype ";
}
$query .= " WHERE biblioitemnumber = ? ";
my $sth = $dbh->prepare($query);
my $data;
$sth->execute($biblioitemnumber);
$data = $sth->fetchrow_hashref;
$sth->finish;
return ($data);
} # sub &GetBiblioItemData
=head2 GetISBDView
$isbd = &GetISBDView({