2 # Status of a Renew Transaction
5 package C4::SIP::ILS::Transaction::Renew;
13 use parent qw(C4::SIP::ILS::Transaction);
21 my $self = $class->SUPER::new();
23 foreach my $element (keys %fields) {
24 $self->{_permitted}->{$element} = $fields{$element};
27 @{$self}{keys %fields} = values %fields; # overkill?
28 return bless $self, $class;
34 my ($renewokay,$renewerror) = CanBookBeRenewed($borrower->{borrowernumber},$self->{item}->{itemnumber});
37 my $due_date = AddIssue( $borrower, $self->{item}->id, undef, 0 );
39 $self->{due} = $due_date;
43 $renewerror=~s/on_reserve/Item unavailable due to outstanding holds/;
44 $renewerror=~s/too_many/Item has reached maximum renewals/;
45 $self->screen_msg($renewerror);
54 my $borrower = GetMember( cardnumber => $self->{patron}->id );
55 return $self->do_renew_for($borrower);