[open-ils-commits] r11335 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-25 09:49:59 -0500 (Tue, 25 Nov 2008)
New Revision: 11335

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
not all checkins require a patron.  watch out for that

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-11-25 14:46:07 UTC (rev 11334)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-11-25 14:49:59 UTC (rev 11335)
@@ -565,7 +565,7 @@
 	}
 
     return $self->bail_on_events(OpenILS::Event->new('ACTOR_USER_NOT_FOUND'))
-        unless $self->patron($patron);
+        unless $self->patron($patron) or $self->is_checkin;
 }
 
 # --------------------------------------------------------------------------
@@ -1744,7 +1744,9 @@
             unless @{$self->events};
     }
 
-    OpenILS::Utils::Penalty->calculate_penalties($self->editor, $self->patron->id, $self->circ_lib);
+    OpenILS::Utils::Penalty->calculate_penalties(
+        $self->editor, $self->patron->id, $self->circ_lib) if $self->patron;
+
     $self->checkin_flesh_events;
     return;
 }