d24d147831
Implement the optional fields: CR CS CT CV CY and DA. Also silenced some outstanding debugging print statements. Consolidated similar accesseor subs in Patron.pm to use x_items. Adjust SIP tests to specify correct AP (location). Add a 3rd item to SIPtext.pm for later use. Note CT (destination) is currently populated with destination branch code. We can adjust that to be destination branch name, or some combination in a subsequent patch if necessary. This work was sponsored by the Northeast Kansas Library system. Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
103 lines
2.8 KiB
Perl
103 lines
2.8 KiB
Perl
#
|
|
# An object to handle checkin status
|
|
#
|
|
|
|
package ILS::Transaction::Checkin;
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
# use POSIX qw(strftime);
|
|
|
|
use ILS;
|
|
use ILS::Transaction;
|
|
|
|
use C4::Circulation;
|
|
use C4::Debug;
|
|
|
|
our @ISA = qw(ILS::Transaction);
|
|
|
|
my %fields = (
|
|
magnetic => 0,
|
|
sort_bin => undef,
|
|
collection_code => undef,
|
|
# 3M extensions:
|
|
call_number => undef,
|
|
destination_loc => undef,
|
|
alert_type => undef, # 00,01,02,03,04 or 99
|
|
hold_patron_id => undef,
|
|
hold_patron_name => "",
|
|
hold => undef,
|
|
);
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = $class->SUPER::new(); # start with an ILS::Transaction object
|
|
|
|
foreach (keys %fields) {
|
|
$self->{_permitted}->{$_} = $fields{$_}; # overlaying _permitted
|
|
}
|
|
|
|
@{$self}{keys %fields} = values %fields; # copying defaults into object
|
|
return bless $self, $class;
|
|
}
|
|
|
|
sub do_checkin {
|
|
my $self = shift;
|
|
my $branch = @_ ? shift : 'SIP2' ;
|
|
my $barcode = $self->{item}->id;
|
|
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
|
|
my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch);
|
|
$self->alert(!$return);
|
|
# ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered
|
|
|
|
# biblionumber, biblioitemnumber, itemnumber
|
|
# borrowernumber, reservedate, branchcode
|
|
# cancellationdate, found, reservenotes, priority, timestamp
|
|
|
|
if ($messages->{BadBarcode}) {
|
|
$self->alert_type('99');
|
|
}
|
|
if ($messages->{wthdrawn}) {
|
|
$self->alert_type('99');
|
|
}
|
|
if ($messages->{Wrongbranch}) {
|
|
$self->destination_loc($messages->{Wrongbranch}->{Rightbranch});
|
|
$self->alert_type('04'); # send to other branch
|
|
}
|
|
if ($messages->{WrongTransfer}) {
|
|
$self->destination_loc($messages->{WrongTransfer});
|
|
$self->alert_type('04'); # send to other branch
|
|
}
|
|
if ($messages->{NeedsTransfer}) {
|
|
$self->destination_loc($iteminformation->{homebranch});
|
|
$self->alert_type('04'); # send to other branch
|
|
}
|
|
if ($messages->{ResFound}) {
|
|
$self->hold($messages->{ResFound});
|
|
$debug and warn "Item returned at $branch reserved at $messages->{ResFound}->{branchcode}";
|
|
$self->alert_type(($branch eq $messages->{ResFound}->{branchcode}) ? '01' : '02');
|
|
}
|
|
$self->alert(1) if defined $self->alert_type; # alert_type could be "00", hypothetically
|
|
$self->ok($return);
|
|
}
|
|
|
|
sub resensitize {
|
|
my $self = shift;
|
|
unless ($self->{item}) {
|
|
warn "resensitize(): no item found in object to resensitize";
|
|
return;
|
|
}
|
|
return !$self->{item}->magnetic_media;
|
|
}
|
|
|
|
sub patron_id {
|
|
my $self = shift;
|
|
unless ($self->{patron}) {
|
|
warn "patron_id(): no patron found in object";
|
|
return;
|
|
}
|
|
return $self->{patron}->id;
|
|
}
|
|
|
|
1;
|