X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/57d4d221691f0b727cedf169b79691d100589051..b36f0864f0304deb66f4215c52b68351f90b2309:/SL/Presenter/Part.pm

diff --git a/SL/Presenter/Part.pm b/SL/Presenter/Part.pm
index 08c425ba6..c3bbea2bc 100644
--- a/SL/Presenter/Part.pm
+++ b/SL/Presenter/Part.pm
@@ -6,7 +6,7 @@ use SL::DB::Part;
 use SL::DB::Manager::PartsClassification;
 
 use Exporter qw(import);
-our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation separate_abbreviation);
+our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation type_and_classification);
 
 use Carp;
 
@@ -80,11 +80,6 @@ sub classification_abbreviation {
   return $::locale->text(SL::DB::Manager::PartsClassification->get_abbreviation($id));
 }
 
-sub separate_abbreviation {
-  my ($self, $id) = @_;
-  return $::locale->text(SL::DB::Manager::PartsClassification->get_separate_abbreviation($id));
-}
-
 sub select_classification {
   my ($self, $name, %attributes) = @_;
   $attributes{value_key} = 'id';