[open-ils-commits] r17488 - trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction (erickson)

[svn at svn.open-ils.org]

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

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-09-03 19:58:01 UTC (rev 17487)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-09-03 20:00:22 UTC (rev 17488)
@@ -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