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