Lines 47-52
sub do_checkin {
Link Here
|
47 |
my $self = shift; |
47 |
my $self = shift; |
48 |
my $branch = shift; |
48 |
my $branch = shift; |
49 |
my $return_date = shift; |
49 |
my $return_date = shift; |
|
|
50 |
my $cv_triggers_alert = shift; |
50 |
if (!$branch) { |
51 |
if (!$branch) { |
51 |
$branch = 'SIP2'; |
52 |
$branch = 'SIP2'; |
52 |
} |
53 |
} |
Lines 66-71
sub do_checkin {
Link Here
|
66 |
|
67 |
|
67 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
68 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
68 |
my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, undef, $return_date); |
69 |
my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, undef, $return_date); |
|
|
70 |
$self->alert(!$return); |
71 |
# ignoring messages: NotIssued, WasLost, WasTransfered |
69 |
|
72 |
|
70 |
# biblionumber, biblioitemnumber, itemnumber |
73 |
# biblionumber, biblioitemnumber, itemnumber |
71 |
# borrowernumber, reservedate, branchcode |
74 |
# borrowernumber, reservedate, branchcode |
Lines 115-121
sub do_checkin {
Link Here
|
115 |
$self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} ); |
118 |
$self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} ); |
116 |
$self->{item}->destination_loc( $messages->{ResFound}->{branchcode} ); |
119 |
$self->{item}->destination_loc( $messages->{ResFound}->{branchcode} ); |
117 |
} |
120 |
} |
118 |
$self->alert(defined $self->alert_type); # alert_type could be "00", hypothetically |
121 |
|
|
|
122 |
if ( $cv_triggers_alert ) { |
123 |
$self->alert(defined $self->alert_type); # Overwrites existing alert value |
124 |
} else { |
125 |
$self->alert(1) if defined $self->alert_type; # Doesn't affect alert value unless an alert type is set |
126 |
} |
127 |
|
119 |
$self->ok($return); |
128 |
$self->ok($return); |
120 |
} |
129 |
} |
121 |
|
130 |
|