From d51b84c7ccd1891e137b1f7901e0c50299df7e05 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Sat, 13 Sep 2014 11:11:25 -0400 Subject: [PATCH] Fix a problem detected by perl -c.... Signed-off-by: Jason Stephenson --- lib/NCIP/ILS/Evergreen.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/NCIP/ILS/Evergreen.pm b/lib/NCIP/ILS/Evergreen.pm index 8ddaeaa..35d8e88 100644 --- a/lib/NCIP/ILS/Evergreen.pm +++ b/lib/NCIP/ILS/Evergreen.pm @@ -567,7 +567,7 @@ sub checkinitem { # checked out to someone else. my ($user_barcode, $user_idfield) = $self->find_user_barcode($request); if (ref($user_barcode) ne 'NCIP::Problem') { - my $user = $self->retrieve_user_by_bacode($circ_user_barcode); + my $user = $self->retrieve_user_by_bacode($user_barcode); if ($user->id() != $circ_user->id()) { $response->problem( NCIP::Problem->new( -- 2.43.2