Bug 21183: Replace C4::Items::GetItemnumberFromBarcode calls

[koha.git] / members / mancredit.pl

diff --git a/members/mancredit.pl b/members/mancredit.pl
index 8fdef1e..813461e 100755 (executable)
--- a/members/mancredit.pl
+++ b/members/mancredit.pl
@@ -34,6 +34,7 @@ use C4::Items;
 use C4::Members::Attributes qw(GetBorrowerAttributes);
 
 use Koha::Account;
+use Koha::Items;
 use Koha::Patrons;
 use Koha::Patron::Categories;
 use Koha::Token;
@@ -67,7 +68,8 @@ if ($add){
         my $barcode = $input->param('barcode');
         my $item_id;
         if ($barcode) {
-            $item_id = GetItemnumberFromBarcode($barcode);
+            my $item = Koha::Items->find({barcode => $barcode});
+            $item_id = $item->itemnumber if $item;
         }
         my $description = $input->param('desc');
         my $note        = $input->param('note');