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