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

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

Return to bug 21183