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