Lines 75-81
BEGIN {
Link Here
|
75 |
GetHostItemsInfo |
75 |
GetHostItemsInfo |
76 |
GetItemnumbersForBiblio |
76 |
GetItemnumbersForBiblio |
77 |
get_hostitemnumbers_of |
77 |
get_hostitemnumbers_of |
78 |
GetBarcodeFromItemnumber |
|
|
79 |
GetHiddenItemnumbers |
78 |
GetHiddenItemnumbers |
80 |
ItemSafeToDelete |
79 |
ItemSafeToDelete |
81 |
DelItemCheck |
80 |
DelItemCheck |
Lines 1359-1382
sub get_hostitemnumbers_of {
Link Here
|
1359 |
return @returnhostitemnumbers; |
1358 |
return @returnhostitemnumbers; |
1360 |
} |
1359 |
} |
1361 |
|
1360 |
|
1362 |
|
|
|
1363 |
=head2 GetBarcodeFromItemnumber |
1364 |
|
1365 |
$result = GetBarcodeFromItemnumber($itemnumber); |
1366 |
|
1367 |
=cut |
1368 |
|
1369 |
sub GetBarcodeFromItemnumber { |
1370 |
my ($itemnumber) = @_; |
1371 |
my $dbh = C4::Context->dbh; |
1372 |
|
1373 |
my $rq = |
1374 |
$dbh->prepare("SELECT barcode FROM items WHERE items.itemnumber=?"); |
1375 |
$rq->execute($itemnumber); |
1376 |
my ($result) = $rq->fetchrow; |
1377 |
return ($result); |
1378 |
} |
1379 |
|
1380 |
=head2 GetHiddenItemnumbers |
1361 |
=head2 GetHiddenItemnumbers |
1381 |
|
1362 |
|
1382 |
my @itemnumbers_to_hide = GetHiddenItemnumbers(@items); |
1363 |
my @itemnumbers_to_hide = GetHiddenItemnumbers(@items); |
1383 |
- |
|
|