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