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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-08-06 17:04:19 -0400 (Fri, 06 Aug 2010)
New Revision: 17127

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
Log:
add some tests for copy existence in checkin routines

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-08-06 20:39:35 UTC (rev 17126)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-08-06 21:04:19 UTC (rev 17127)
@@ -49,12 +49,19 @@
 
 sub resensitize {
     my $self = shift;
+    return 0 if !$self->{item};
     return !$self->{item}->magnetic;
 }
 
 sub do_checkin {
     my $self = shift;
     my ($inst_id, $trans_date, $return_date, $current_loc, $item_props) = @_; # most unused
+
+    unless($self->{item}) {
+        $self->ok(0);
+        return undef;
+    }
+
     $inst_id ||= '';
 
     my $resp = $U->simplereq(