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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-18 17:34:39 -0400 (Fri, 18 Sep 2009)
New Revision: 14063

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
if no legacy map for in-db checkout/renew is defined, default to the fail message from the in-db process

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-18 21:34:00 UTC (rev 14062)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-18 21:34:39 UTC (rev 14063)
@@ -914,7 +914,7 @@
         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};
     }
 
@@ -2431,7 +2431,7 @@
     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 {