2 # Transaction: Superclass of all the transactional status objects
5 package ILS::Transaction;
18 transaction_id=> undef,
19 sip_fee_type => '01', # Other/Unknown
21 sip_currency => 'USD', # FIXME: why hardcoded?
31 _permitted => \%fields,
34 return bless $self, $class;
43 my $class = ref($self) or croak "$self is not an object";
48 unless (exists $self->{_permitted}->{$name}) {
49 croak "Can't access '$name' field of class '$class'";
53 return $self->{$name} = shift;
55 return $self->{$name};