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