[open-ils-commits] r14022 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-15 12:13:00 -0400 (Tue, 15 Sep 2009)
New Revision: 14022

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
for now, don't allow inspect calls on copies that have not been created in the db, IOW pre-cat copies that have never circulated

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-15 16:12:42 UTC (rev 14021)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-15 16:13:00 UTC (rev 14022)
@@ -895,6 +895,9 @@
 
 sub do_inspect {
     my $self = shift;
+
+    return OpenILS::Event->new('ASSET_COPY_NOT_FOUND') unless $self->copy;
+
     $self->run_indb_circ_test;
 
     my $results = {