From 606347e95ae25295f1ece4de9ea848d0ea56f661 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Sun, 14 Sep 2014 10:44:55 -0400 Subject: [PATCH] Fix some things in NCIP::ILS::Evergreen picked up by perl -c. Signed-off-by: Jason Stephenson --- lib/NCIP/ILS/Evergreen.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/NCIP/ILS/Evergreen.pm b/lib/NCIP/ILS/Evergreen.pm index 32eb7c0..90b89c9 100644 --- a/lib/NCIP/ILS/Evergreen.pm +++ b/lib/NCIP/ILS/Evergreen.pm @@ -596,6 +596,8 @@ sub checkinitem { # We should check for errors here, but I'll leave that for # later. + # We need the circulation user for the information below, so we retrieve it. + my $circ_user = $self->retrieve_user_by_id($circ->usr()); my $data = { ItemId => NCIP::Item::Id->new( { @@ -871,7 +873,7 @@ sub check_circ_details { return NCIP::Problem->new( { ProblemType => 'Item Not Checked Out', - ProblemDetail => "Item with barcode $item_barcode not checkout out.", + ProblemDetail => 'Item with barcode ' . $copy->barcode() . ' is not checked out.', ProblemValue => $copy->barcode() } ); @@ -884,7 +886,7 @@ sub check_circ_details { return NCIP::Problem->new( { ProblemType => 'Item Not Checked Out To This User', - ProblemDetail => "Item with barcode $item_barcode not checkout out to user with barcode $user_barcode." + ProblemDetail => 'Item with barcode ' . $copy->barcode() . ' is not checked out to this user.', } ); } -- 2.43.2