[open-ils-commits] r14021 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-15 12:12:42 -0400 (Tue, 15 Sep 2009)
New Revision: 14021

Modified:
   trunk/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: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-15 15:22:40 UTC (rev 14020)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-15 16:12:42 UTC (rev 14021)
@@ -896,6 +896,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 = {