|
Lines 70-75
BEGIN {
Link Here
|
| 70 |
GetItemsInfo |
70 |
GetItemsInfo |
| 71 |
GetItemsLocationInfo |
71 |
GetItemsLocationInfo |
| 72 |
GetHostItemsInfo |
72 |
GetHostItemsInfo |
|
|
73 |
GetItemnumbersForBiblio |
| 73 |
get_itemnumbers_of |
74 |
get_itemnumbers_of |
| 74 |
get_hostitemnumbers_of |
75 |
get_hostitemnumbers_of |
| 75 |
GetItemnumberFromBarcode |
76 |
GetItemnumberFromBarcode |
|
Lines 1499-1504
sub GetLastAcquisitions {
Link Here
|
| 1499 |
return @results; |
1500 |
return @results; |
| 1500 |
} |
1501 |
} |
| 1501 |
|
1502 |
|
|
|
1503 |
=head2 GetItemnumberForBiblio |
| 1504 |
|
| 1505 |
my @itemnumbers = GetItemnumbersForBiblio($biblionumber); |
| 1506 |
|
| 1507 |
Given a single biblionumber, return an array of all the corresponding itemnumbers |
| 1508 |
|
| 1509 |
=cut |
| 1510 |
|
| 1511 |
sub GetItemnumbersForBiblio { |
| 1512 |
my $biblionumber = shift; |
| 1513 |
my @items; |
| 1514 |
my $dbh = C4::Context->dbh; |
| 1515 |
my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?"); |
| 1516 |
$sth->execute($biblionumber); |
| 1517 |
while (my $result = $sth->fetchrow_hashref) { |
| 1518 |
push @items, $result->{'itemnumber'}; |
| 1519 |
} |
| 1520 |
return \@items; |
| 1521 |
} |
| 1522 |
|
| 1502 |
=head2 get_itemnumbers_of |
1523 |
=head2 get_itemnumbers_of |
| 1503 |
|
1524 |
|
| 1504 |
my @itemnumbers_of = get_itemnumbers_of(@biblionumbers); |
1525 |
my @itemnumbers_of = get_itemnumbers_of(@biblionumbers); |