[open-ils-commits] r17489 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Transaction (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-09-03 16:00:39 -0400 (Fri, 03 Sep 2010)
New Revision: 17489

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
Log:
event code may be 0 (SUCCESS) == false in SIP checkin, check defined instead

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-09-03 20:00:22 UTC (rev 17488)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-09-03 20:00:39 UTC (rev 17489)
@@ -87,7 +87,7 @@
     }
 
     my $code = $U->event_code($resp);
-    my $txt  = $code ? $resp->{textcode} : '';
+    my $txt  = (defined $code) ? $resp->{textcode} : '';
 
     $resp->{org} &&= OpenILS::SIP::shortname_from_id($resp->{org}); # Convert id to shortname