From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 28 Jul 2006 20:12:33 +0000 (+0000)
Subject: returning correct event on checkin when there is no copy to checkin
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=20d4b691889c7d485a293beb152fab8677a27f1e;p=Evergreen.git

returning correct event on checkin when there is no copy to checkin


git-svn-id: svn://svn.open-ils.org/ILS/trunk@5161 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 4690e6f10a..fd14a2f320 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -1071,6 +1071,10 @@ sub do_checkin {
 	my $self = shift;
 	$self->log_me("do_checkin()");
 
+	return $self->bail_on_events(
+		OpenILS::Event->new('ASSET_COPY_NOT_FOUND')) 
+		unless $self->copy;
+
 	unless( $self->is_renewal ) {
 		return $self->bail_on_events($self->editor->event)
 			unless $self->editor->allowed('COPY_CHECKIN');