X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5067d7bd31514962af9730b33323b831d87164f8..815c3639a21ed53b288fd8bbb231e741c8e67ce5:/SL/DB/Manager/PartsClassification.pm

diff --git a/SL/DB/Manager/PartsClassification.pm b/SL/DB/Manager/PartsClassification.pm
index 23558dc07..de11aa878 100644
--- 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;