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

(-)a/C4/Biblio.pm (-17 lines)
Lines 70-76 BEGIN { Link Here
70
      GetBiblioItemData
70
      GetBiblioItemData
71
      GetBiblioItemInfosOf
71
      GetBiblioItemInfosOf
72
      GetBiblioItemByBiblioNumber
72
      GetBiblioItemByBiblioNumber
73
      GetBiblionumberFromItemnumber
74
73
75
      &GetRecordValue
74
      &GetRecordValue
76
75
Lines 772-792 sub GetBiblioItemByBiblioNumber { Link Here
772
    return @results;
771
    return @results;
773
}
772
}
774
773
775
=head2 GetBiblionumberFromItemnumber
776
777
778
=cut
779
780
sub GetBiblionumberFromItemnumber {
781
    my ($itemnumber) = @_;
782
    my $dbh            = C4::Context->dbh;
783
    my $sth            = $dbh->prepare("Select biblionumber FROM items WHERE itemnumber = ?");
784
785
    $sth->execute($itemnumber);
786
    my ($result) = $sth->fetchrow;
787
    return ($result);
788
}
789
790
=head2 GetISBDView 
774
=head2 GetISBDView 
791
775
792
  $isbd = &GetISBDView({
776
  $isbd = &GetISBDView({
793
- 

Return to bug 18277