View | Details | Raw Unified | Return to bug 19943
Collapse All | Expand All

(-)a/C4/Biblio.pm (-30 lines)
Lines 67-73 BEGIN { Link Here
67
    push @EXPORT, qw(
67
    push @EXPORT, qw(
68
      GetBiblioData
68
      GetBiblioData
69
      GetMarcBiblio
69
      GetMarcBiblio
70
      GetBiblioItemData
71
70
72
      &GetRecordValue
71
      &GetRecordValue
73
72
Lines 720-753 sub GetBiblioData { Link Here
720
    return ($data);
719
    return ($data);
721
}    # sub GetBiblioData
720
}    # sub GetBiblioData
722
721
723
=head2 GetBiblioItemData
724
725
  $itemdata = &GetBiblioItemData($biblioitemnumber);
726
727
Looks up the biblioitem with the given biblioitemnumber. Returns a
728
reference-to-hash. The keys are the fields from the C<biblio>,
729
C<biblioitems>, and C<itemtypes> tables in the Koha database, except
730
that C<biblioitems.notes> is given as C<$itemdata-E<gt>{bnotes}>.
731
732
=cut
733
734
sub GetBiblioItemData {
735
    my ($biblioitemnumber) = @_;
736
    my $dbh                = C4::Context->dbh;
737
    my $query              = "SELECT *,biblioitems.notes AS bnotes
738
        FROM biblio LEFT JOIN biblioitems on biblio.biblionumber=biblioitems.biblionumber ";
739
    unless ( C4::Context->preference('item-level_itypes') ) {
740
        $query .= "LEFT JOIN itemtypes on biblioitems.itemtype=itemtypes.itemtype ";
741
    }
742
    $query .= " WHERE biblioitemnumber = ? ";
743
    my $sth = $dbh->prepare($query);
744
    my $data;
745
    $sth->execute($biblioitemnumber);
746
    $data = $sth->fetchrow_hashref;
747
    $sth->finish;
748
    return ($data);
749
}    # sub &GetBiblioItemData
750
751
=head2 GetISBDView 
722
=head2 GetISBDView 
752
723
753
  $isbd = &GetISBDView({
724
  $isbd = &GetISBDView({
754
- 

Return to bug 19943