Artikel-Klassifizierung: Neue Option "Preis separat ausweisen"

[mfinanz.git] / SL / DB / Manager / PartsClassification.pm

diff --git a/SL/DB/Manager/PartsClassification.pm b/SL/DB/Manager/PartsClassification.pm
index 23558dc079c6a742b0f2f2c9d3bfe7caa425f4fd..de11aa878d9f775f61ece73f18202fefb4a6c439 100644 (file)
--- a/SL/DB/Manager/PartsClassification.pm
+++ b/SL/DB/Manager/PartsClassification.pm
@@ -19,4 +19,10 @@ sub get_abbreviation {
   return $obj->abbreviation?$obj->abbreviation:undef;
 }
 
+sub get_separate_abbreviation {
+  my ($class,$id) = @_;
+  my $obj = $class->get_first(query => [ id => $id ]);
+  return $obj->report_separate?$obj->abbreviation:'';
+}
+
 1;