preventing retrieval on fleshed object
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 5 Sep 2006 16:43:03 +0000 (16:43 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 5 Sep 2006 16:43:03 +0000 (16:43 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5963 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm

index 9537e0f..bb0f366 100644 (file)
@@ -181,7 +181,8 @@ sub fetch_user_data {
                return OpenILS::Event->new('PATRON_INACTIVE')
                        unless $U->is_true($patron->active);
        
-               $patron->card($e->retrieve_actor_card($patron->card));
+               $patron->card($e->retrieve_actor_card($patron->card))
+                       unless ref $patron->card;
        
                return OpenILS::Event->new('PATRON_CARD_INACTIVE')
                        unless $U->is_true($patron->card->active);