X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d7a9026aeace4b76b815a276c61b90feac1724f8..1c62d23ef8305ca67a7cf19f69d4fb2939f972a0:/SL/DB/Manager/TaxZone.pm

diff --git a/SL/DB/Manager/TaxZone.pm b/SL/DB/Manager/TaxZone.pm
index 6d61fad94..25ec44252 100644
--- a/SL/DB/Manager/TaxZone.pm
+++ b/SL/DB/Manager/TaxZone.pm
@@ -17,4 +17,36 @@ sub _sort_spec {
            columns => { SIMPLE => 'ALL' } );
 }
 
+sub get_default {
+    return $_[0]->get_first(where => [ obsolete => 0 ], sort_by => 'sortkey');
+}
+
 1;
+__END__
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+SL::DB::Manager::TaxZone - RDBO manager for the C<tax_zones> table
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item C<get_default>
+
+Returns an RDBO instance corresponding to the default taxzone. The default
+taxzone is defined as the taxzone with the highest sort order (usually 1) that
+is not set to obsolete.
+
+Example:
+
+  my $default_taxzone_id = SL::DB::Manager::TaxZone->get_default->id;
+
+
+=back
+
+=cut