return $self->{currencies} ? @{ $self->{currencies} } : ();
}
+sub get_accounting_method {
+ my ($self) = @_;
+ return $self->{data}->{accounting_method};
+}
+
+sub get_inventory_system {
+ my ($self) = @_;
+ return $self->{data}->{inventory_system};
+}
+
+sub get_profit_determination {
+ my ($self) = @_;
+ return $self->{data}->{profit_determination};
+}
+
1;
__END__
=head1 SYNOPSIS
Lx-Office has two configuration levels: installation specific
-(provided by the global variable C<%::lxoffice_conf>) and instance
+(provided by the global variable C<%::lx_office_conf>) and instance
specific. The latter is provided by a global instance of this class,
C<$::instance_conf>.
Returns the default currency or undef if no currency has been
configured.
+=item C<get_accounting_method>
+
+Returns the default accounting method, accrual or cash
+
+=item C<get_inventory_system>
+
+Returns the default inventory system, perpetual or periodic
+
+=item C<get_profit_determination>
+
+Returns the default profit determination method, balance or income
+
=back
=head1 BUGS