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