|
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 |
|