|
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 |
- |
|
|