Add check to resensitize sub.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/SIP/ILS/Transaction/Checkin.pm b/C4/SIP/ILS/Transaction/Checkin.pm
index 01fb0d0..bcf5c78 100644 (file)
--- a/C4/SIP/ILS/Transaction/Checkin.pm
+++ b/C4/SIP/ILS/Transaction/Checkin.pm
@@ -17,38 +17,40 @@ use C4::Circulation;
 our @ISA = qw(ILS::Transaction);
 
 my %fields = (
-             magnetic => 0,
-             sort_bin => undef,
-             );
+       magnetic => 0,
+       sort_bin => undef,
+);
 
 sub new {
-    my $class = shift;;
-    my $self = $class->SUPER::new();
-    my $element;
+       my $class = shift;;
+       my $self = $class->SUPER::new();
+       my $element;
 
-    foreach $element (keys %fields) {
-       $self->{_permitted}->{$element} = $fields{$element};
-    }
+       foreach $element (keys %fields) {
+               $self->{_permitted}->{$element} = $fields{$element};
+       }
 
-    @{$self}{keys %fields} = values %fields;
-
-    return bless $self, $class;
+       @{$self}{keys %fields} = values %fields;
+       return bless $self, $class;
 }
 
 sub do_checkin {
        my $self = shift;
        my $barcode = $self->{item}->{id};
        my $branch='ALB'; # gotta set this
+                       # FIXME: hardcoded branch not good.
        my $return = AddReturn($barcode,$branch);
        $self->ok($return);
        return 1;
 }
 
-
 sub resensitize {
-    my $self = shift;
-
-    return !$self->{item}->magnetic;
+       my $self = shift;
+       unless ($self->{item}) {
+               warn "no item found in object to resensitize";
+               return undef;
+       }
+       return !$self->{item}->magnetic;
 }
 
 1;