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