#
sub type_abbreviation {
my ($self, $part_type) = @_;
- $main::lxdebug->message(LXDebug->DEBUG2(),"parttype=".$part_type);
return $::locale->text('Assembly (typeabbreviation)') if $part_type eq 'assembly';
return $::locale->text('Part (typeabbreviation)') if $part_type eq 'part';
return $::locale->text('Assortment (typeabbreviation)') if $part_type eq 'assortment';
$obj && $obj->abbreviation ? t8($obj->abbreviation) : '';
}
+#
+# shortcut for article type
+#
+sub separate_abbreviation {
+ my ($self, $id) = @_;
+ SL::DB::Manager::PartClassification->cache_all();
+ my $obj = SL::DB::PartClassification->load_cached($id);
+ $obj && $obj->abbreviation && $obj->report_separate ? t8($obj->abbreviation) : '';
+}
+
#
# generate selection tag
#
=over 2
+=item C<separate_abbreviation $classification_id>
+
+Returns the shortcut of the classification if the classifiaction has the separate flag set.
+
+=back
+
+=over 2
+
=item C<select_classification $name,%params>
Returns a HTML Select Tag with all available Classifications