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

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

Return to bug 18277