Lines 36-56
sub do_renew_for {
Link Here
|
36 |
my $borrower = shift; |
36 |
my $borrower = shift; |
37 |
my ($renewokay,$renewerror) = CanBookBeRenewed($borrower->{borrowernumber},$self->{item}->{itemnumber}); |
37 |
my ($renewokay,$renewerror) = CanBookBeRenewed($borrower->{borrowernumber},$self->{item}->{itemnumber}); |
38 |
if ($renewokay){ |
38 |
if ($renewokay){ |
39 |
$self->{due} = AddIssue( $borrower, $self->{item}->id, undef, 0 ); |
39 |
$self->{due} = undef; |
40 |
$self->renewal_ok(1); |
40 |
my $due_date = AddIssue( $borrower, $self->{item}->id, undef, 0 ); |
|
|
41 |
if ($due_date) { |
42 |
$self->{due} = $due_date; |
43 |
} |
44 |
$self->renewal_ok(1); |
41 |
} else { |
45 |
} else { |
42 |
$self->screen_msg(($self->screen_msg || '') . " " . $renewerror); |
46 |
$renewerror=~s/on_reserve/Item unavailable due to outstanding holds/; |
|
|
47 |
$renewerror=~s/too_many/Item has reached maximum renewals/; |
48 |
#$self->screen_msg(($self->screen_msg || '') . " " . $renewerror); |
49 |
$self->screen_msg($renewerror); |
43 |
$self->renewal_ok(0); |
50 |
$self->renewal_ok(0); |
44 |
} |
51 |
} |
45 |
$! and warn "do_renew_for error: $!"; |
52 |
$self->ok(1); |
46 |
$self->ok(1) unless $!; |
53 |
return; |
47 |
return $self; |
|
|
48 |
} |
54 |
} |
49 |
|
55 |
|
50 |
sub do_renew { |
56 |
sub do_renew { |
51 |
my $self = shift; |
57 |
my $self = shift; |
52 |
my $borrower = GetMember( 'cardnumber'=>$self->{patron}->id); |
58 |
my $borrower = GetMember( 'cardnumber'=>$self->{patron}->id); |
53 |
return $self->do_renew_for($borrower); |
59 |
$self->do_renew_for($borrower); |
54 |
} |
60 |
return $self; |
|
|
61 |
} |
55 |
|
62 |
|
56 |
1; |
63 |
1; |