From a16926b818b2afed73c363d472e60501ff039992 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 21 Dec 2009 20:11:28 +0000
Subject: [PATCH] backporting fix to prevent circ event creation with empty
 event names

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@15213 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 0fc3974e4e..4782bb7d19 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -907,7 +907,7 @@ sub do_inspect {
         push(@{$results->{failure_codes}}, 
             $_->{fail_part}) for @{$self->matrix_test_result};
         push(@{$results->{failure_events}}, 
-            $LEGACY_CIRC_EVENT_MAP->{$_->{fail_part}}) 
+            $LEGACY_CIRC_EVENT_MAP->{$_->{fail_part}} || $_->{fail_part}) 
                 for @{$self->matrix_test_result};
         return $results;
     }
@@ -2417,7 +2417,7 @@ sub run_renew_permit {
     if(!$self->legacy_script_support) {
         my $results = $self->run_indb_circ_test;
         unless($self->circ_test_success) {
-            push(@$events, $LEGACY_CIRC_EVENT_MAP->{$_->{fail_part}}) for @$results;
+            push(@$events, $LEGACY_CIRC_EVENT_MAP->{$_->{fail_part}} || $_->{fail_part}) for @$results;
         }
 
     } else {
-- 
2.11.0