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

(-)a/C4/Biblio.pm (-41 lines)
Lines 70-76 BEGIN { Link Here
70
      GetBiblioItemData
70
      GetBiblioItemData
71
      GetBiblioItemInfosOf
71
      GetBiblioItemInfosOf
72
      GetBiblioItemByBiblioNumber
72
      GetBiblioItemByBiblioNumber
73
      GetBiblioFromItemNumber
74
      GetBiblionumberFromItemnumber
73
      GetBiblionumberFromItemnumber
75
74
76
      &GetRecordValue
75
      &GetRecordValue
Lines 788-832 sub GetBiblionumberFromItemnumber { Link Here
788
    return ($result);
787
    return ($result);
789
}
788
}
790
789
791
=head2 GetBiblioFromItemNumber
792
793
  $item = &GetBiblioFromItemNumber($itemnumber,$barcode);
794
795
Looks up the item with the given itemnumber. if undef, try the barcode.
796
797
C<&itemnodata> returns a reference-to-hash whose keys are the fields
798
from the C<biblio>, C<biblioitems>, and C<items> tables in the Koha
799
database.
800
801
=cut
802
803
#'
804
sub GetBiblioFromItemNumber {
805
    my ( $itemnumber, $barcode ) = @_;
806
    my $dbh = C4::Context->dbh;
807
    my $sth;
808
    if ($itemnumber) {
809
        $sth = $dbh->prepare(
810
            "SELECT * FROM items 
811
            LEFT JOIN biblio ON biblio.biblionumber = items.biblionumber
812
            LEFT JOIN biblioitems ON biblioitems.biblioitemnumber = items.biblioitemnumber
813
             WHERE items.itemnumber = ?"
814
        );
815
        $sth->execute($itemnumber);
816
    } else {
817
        $sth = $dbh->prepare(
818
            "SELECT * FROM items 
819
            LEFT JOIN biblio ON biblio.biblionumber = items.biblionumber
820
            LEFT JOIN biblioitems ON biblioitems.biblioitemnumber = items.biblioitemnumber
821
             WHERE items.barcode = ?"
822
        );
823
        $sth->execute($barcode);
824
    }
825
    my $data = $sth->fetchrow_hashref;
826
    $sth->finish;
827
    return ($data);
828
}
829
830
=head2 GetISBDView 
790
=head2 GetISBDView 
831
791
832
  $isbd = &GetISBDView({
792
  $isbd = &GetISBDView({
833
- 

Return to bug 18276