View | Details | Raw Unified | Return to bug 21201
Collapse All | Expand All

(-)a/C4/Items.pm (-22 lines)
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
- 

Return to bug 21201