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