2 # Transaction: Superclass of all the transactional status objects
5 package C4::SIP::ILS::Transaction;
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 = Koha::Checkouts->find( { itemnumber => $itemnum } );
49 if ($iss && $iss->date_due ) {
50 $due_dt = dt_from_string( $iss->date_due, 'sql' );
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};