C4/SIP/ILS/Transaction/Renew.pm

   1 #
   2 # Status of a Renew Transaction
   3 #
   4
   5 package ILS::Transaction::Renew;
   6
   7 use warnings;
   8 use strict;
   9
  10 use ILS;
  11 use ILS::Transaction;
  12
  13 use C4::Circulation;
  14 use C4::Members;
  15
  16 our @ISA = qw(ILS::Transaction);
  17
  18 my %fields = (
  19               renewal_ok => 0,
  20               );
  21
  22 sub new {
  23     my $class = shift;;
  24     my $self = $class->SUPER::new();
  25     my $element;
  26
  27     foreach $element (keys %fields) {
  28         $self->{_permitted}->{$element} = $fields{$element};
  29     }
  30
  31     @{$self}{keys %fields} = values %fields;
  32
  33     return bless $self, $class;
  34 }
  35
  36 sub do_renew {
  37         my $self = shift;
  38         my $borrower = my $borrower = GetMember( $self->{patron}->id, 'cardnumber');
  39         my ($renewokay,$renewerror) = CanBookBeRenewed($borrower->{borrowernumber},$self->{item}->{itemnumber});
  40         if ($renewokay){
  41                 my $datedue = AddIssue( $borrower, $self->{item}->id, undef, 0 );
  42                 $self->{'due'} = $datedue;
  43                 $self->ok(1);
  44                 $self->renewal_ok(1);
  45         }
  46         else {
  47                 $self->ok(0);
  48         }
  49         return $self;
  50 }
  51 1;