|
Lines 73-79
BEGIN {
Link Here
|
| 73 |
GetItemsInfo |
73 |
GetItemsInfo |
| 74 |
GetItemsLocationInfo |
74 |
GetItemsLocationInfo |
| 75 |
GetHostItemsInfo |
75 |
GetHostItemsInfo |
| 76 |
GetItemnumbersForBiblio |
|
|
| 77 |
get_hostitemnumbers_of |
76 |
get_hostitemnumbers_of |
| 78 |
GetHiddenItemnumbers |
77 |
GetHiddenItemnumbers |
| 79 |
ItemSafeToDelete |
78 |
ItemSafeToDelete |
|
Lines 1290-1315
sub GetLastAcquisitions {
Link Here
|
| 1290 |
return @results; |
1289 |
return @results; |
| 1291 |
} |
1290 |
} |
| 1292 |
|
1291 |
|
| 1293 |
=head2 GetItemnumbersForBiblio |
|
|
| 1294 |
|
| 1295 |
my $itemnumbers = GetItemnumbersForBiblio($biblionumber); |
| 1296 |
|
| 1297 |
Given a single biblionumber, return an arrayref of all the corresponding itemnumbers |
| 1298 |
|
| 1299 |
=cut |
| 1300 |
|
| 1301 |
sub GetItemnumbersForBiblio { |
| 1302 |
my $biblionumber = shift; |
| 1303 |
my @items; |
| 1304 |
my $dbh = C4::Context->dbh; |
| 1305 |
my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?"); |
| 1306 |
$sth->execute($biblionumber); |
| 1307 |
while (my $result = $sth->fetchrow_hashref) { |
| 1308 |
push @items, $result->{'itemnumber'}; |
| 1309 |
} |
| 1310 |
return \@items; |
| 1311 |
} |
| 1312 |
|
| 1313 |
=head2 get_hostitemnumbers_of |
1292 |
=head2 get_hostitemnumbers_of |
| 1314 |
|
1293 |
|
| 1315 |
my @itemnumbers_of = get_hostitemnumbers_of($biblionumber); |
1294 |
my @itemnumbers_of = get_hostitemnumbers_of($biblionumber); |
| 1316 |
- |
|
|