C4/SIP/ILS/Transaction/RenewAll.pm

   1 #
   2 # RenewAll: class to manage status of "Renew All" transaction
   3
   4 package ILS::Transaction::RenewAll;
   5
   6 use strict;
   7 use warnings;
   8
   9 our @ISA = qw(ILS::Transaction);
  10
  11 my %fields = (
  12               renewed => [],
  13               unrenewed => [],
  14               );
  15 sub new {
  16     my $class = shift;;
  17     my $self = $class->SUPER::new();
  18     my $element;
  19
  20     foreach $element (keys %fields) {
  21         $self->{_permitted}->{$element} = $fields{$element};
  22     }
  23
  24     @{$self}{keys %fields} = values %fields;
  25
  26     return bless $self, $class;
  27 }
  28
  29 1;