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

(-)a/C4/Biblio.pm (-17 lines)
Lines 68-74 BEGIN { Link Here
68
      GetBiblioItemData
68
      GetBiblioItemData
69
      GetBiblioItemInfosOf
69
      GetBiblioItemInfosOf
70
      GetBiblioItemByBiblioNumber
70
      GetBiblioItemByBiblioNumber
71
      GetBiblionumberFromItemnumber
72
71
73
      &GetRecordValue
72
      &GetRecordValue
74
      &GetFieldMapping
73
      &GetFieldMapping
Lines 831-851 sub GetBiblioItemByBiblioNumber { Link Here
831
    return @results;
830
    return @results;
832
}
831
}
833
832
834
=head2 GetBiblionumberFromItemnumber
835
836
837
=cut
838
839
sub GetBiblionumberFromItemnumber {
840
    my ($itemnumber) = @_;
841
    my $dbh            = C4::Context->dbh;
842
    my $sth            = $dbh->prepare("Select biblionumber FROM items WHERE itemnumber = ?");
843
844
    $sth->execute($itemnumber);
845
    my ($result) = $sth->fetchrow;
846
    return ($result);
847
}
848
849
=head2 GetISBDView 
833
=head2 GetISBDView 
850
834
851
  $isbd = &GetISBDView({
835
  $isbd = &GetISBDView({
852
- 

Return to bug 18277