2 # Transaction: Superclass of all the transactional status objects
5 package C4
::SIP
::ILS
::Transaction
;
11 use C4
::Circulation
qw( GetItemIssue );
20 transaction_id
=> undef,
21 sip_fee_type
=> '01', # Other/Unknown
23 sip_currency
=> 'USD', # FIXME: why hardcoded?
34 _permitted
=> \
%fields,
37 return bless $self, $class;
40 sub duedatefromissue
{
41 my ($self, $iss, $itemnum) = @_;
44 $due_dt = dt_from_string
( $iss->date_due() );
45 } # renew from AddIssue ??
47 # need to reread the issue to get due date
48 $iss = GetItemIssue
($itemnum);
49 if ($iss && $iss->{date_due
} ) {
50 $due_dt = dt_from_string
( $iss->{date_due
} );
64 my $class = ref($self) or croak
"$self is not an object";
69 unless (exists $self->{_permitted
}->{$name}) {
70 croak
"Can't access '$name' field of class '$class'";
74 return $self->{$name} = shift;
76 return $self->{$name};