Lines 71-84
sub do_checkout {
Link Here
|
71 |
foreach my $confirmation (keys %{$needsconfirmation}) { |
71 |
foreach my $confirmation (keys %{$needsconfirmation}) { |
72 |
if ($confirmation eq 'RENEW_ISSUE'){ |
72 |
if ($confirmation eq 'RENEW_ISSUE'){ |
73 |
$self->screen_msg("Item already checked out to you: renewing item."); |
73 |
$self->screen_msg("Item already checked out to you: renewing item."); |
74 |
} elsif ($confirmation eq 'RESERVED' or $confirmation eq 'RESERVE_WAITING') { |
74 |
} elsif ($confirmation eq 'RESERVED') { |
75 |
my $x = $self->{item}->available($patron_barcode); |
75 |
$self->screen_msg("Item is reserved for another patron upon return."); |
76 |
if ($x) { |
76 |
$noerror = 0; |
77 |
$self->screen_msg("Item was reserved for you."); |
77 |
last; |
78 |
} else { |
78 |
} elsif ($confirmation eq 'RESERVE_WAITING') { |
79 |
$self->screen_msg("Item is reserved for another patron upon return."); |
79 |
$self->screen_msg("Item is on hold shelf for another patron."); |
80 |
$noerror = 0; |
80 |
$noerror = 0; |
81 |
} |
81 |
last; |
82 |
} elsif ($confirmation eq 'ISSUED_TO_ANOTHER') { |
82 |
} elsif ($confirmation eq 'ISSUED_TO_ANOTHER') { |
83 |
$self->screen_msg("Item already checked out to another patron. Please return item for check-in."); |
83 |
$self->screen_msg("Item already checked out to another patron. Please return item for check-in."); |
84 |
$noerror = 0; |
84 |
$noerror = 0; |
Lines 105-119
sub do_checkout {
Link Here
|
105 |
} |
105 |
} |
106 |
} |
106 |
} |
107 |
my $itemnumber = $self->{item}->{itemnumber}; |
107 |
my $itemnumber = $self->{item}->{itemnumber}; |
108 |
foreach (@$shelf) { |
|
|
109 |
$debug and warn "shelf has ($_->{itemnumber} for $_->{borrowernumber}). this is ($itemnumber, $self->{patron}->{borrowernumber})"; |
110 |
($_->{itemnumber} eq $itemnumber) or next; # skip it if not this item |
111 |
($_->{borrowernumber} == $self->{patron}->{borrowernumber}) and last; |
112 |
# if item was waiting for this patron, we're done. AddIssue takes care of the "W" hold. |
113 |
$debug and warn "Item is on hold shelf for another patron."; |
114 |
$self->screen_msg("Item is on hold shelf for another patron."); |
115 |
$noerror = 0; |
116 |
} |
117 |
my ($fee, undef) = GetIssuingCharges($itemnumber, $self->{patron}->{borrowernumber}); |
108 |
my ($fee, undef) = GetIssuingCharges($itemnumber, $self->{patron}->{borrowernumber}); |
118 |
if ( $fee > 0 ) { |
109 |
if ( $fee > 0 ) { |
119 |
$self->{sip_fee_type} = '06'; |
110 |
$self->{sip_fee_type} = '06'; |
120 |
- |
|
|