Artikel-Klassifizierung: Neue Option "Preis separat ausweisen"

[mfinanz.git] / SL / Presenter / Part.pm

diff --git a/SL/Presenter/Part.pm b/SL/Presenter/Part.pm
index a10340727ece69282561d6b73f604fe3fb2750c6..08c425ba68c50239f336ea0733d05d0bd98ecda1 100644 (file)
--- a/SL/Presenter/Part.pm
+++ b/SL/Presenter/Part.pm
@@ -3,9 +3,10 @@ package SL::Presenter::Part;
 use strict;
 
 use SL::DB::Part;
 use strict;
 
 use SL::DB::Part;

+use SL::DB::Manager::PartsClassification;

 
 use Exporter qw(import);
 
 use Exporter qw(import);

-our @EXPORT = qw(part_picker part);
+our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation separate_abbreviation);

 
 use Carp;
 
 
 use Carp;
 


@@ -17,7 +18,7 @@ sub part {
   croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
 
   my $text = join '', (
   croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
 
   my $text = join '', (

-    $params{no_link} ? '' : '<a href="ic.pl?action=edit&id=' . $self->escape($part->id) . '">',
+    $params{no_link} ? '' : '<a href="controller.pl?action=Part/edit&part.id=' . $self->escape($part->id) . '">',

     $self->escape($part->partnumber),
     $params{no_link} ? '' : '</a>',
   );
     $self->escape($part->partnumber),
     $params{no_link} ? '' : '</a>',
   );


@@ -37,8 +38,8 @@ sub part_picker {
 
   my $ret =
     $self->input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => "@classes", type => 'hidden', id => $id) .
 
   my $ret =
     $self->input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => "@classes", type => 'hidden', id => $id) .

-    join('', map { $params{$_} ? $self->input_tag("", delete $params{$_}, id => "${id}_${_}", type => 'hidden') : '' } qw(column type unit convertible_unit)) .
-    $self->input_tag("", (ref $value && $value->can('description')) ? $value->description : '', id => "${id}_name", %params);
+    join('', map { $params{$_} ? $self->input_tag("", delete $params{$_}, id => "${id}_${_}", type => 'hidden') : '' } qw(part_type unit convertible_unit)) .
+    $self->input_tag("", ref $value ? $value->displayable_name : '', id => "${id}_name", %params);

 
   $::request->layout->add_javascripts('autocomplete_part.js');
   $::request->presenter->need_reinit_widgets($id);
 
   $::request->layout->add_javascripts('autocomplete_part.js');
   $::request->presenter->need_reinit_widgets($id);


@@ -46,6 +47,53 @@ sub part_picker {
   $self->html_tag('span', $ret, class => 'part_picker');
 }
 
   $self->html_tag('span', $ret, class => 'part_picker');
 }
 

+#
+# Must be addapted to new type table
+#
+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';
+  return $::locale->text('Service (typeabbreviation)');
+}
+
+#
+# Translations for Abbreviations:
+#
+# $::locale->text('None (typeabbreviation)')
+# $::locale->text('Purchase (typeabbreviation)')
+# $::locale->text('Sales (typeabbreviation)')
+# $::locale->text('Merchandise (typeabbreviation)')
+# $::locale->text('Production (typeabbreviation)')
+#
+# and for descriptions
+# $::locale->text('Purchase')
+# $::locale->text('Sales')
+# $::locale->text('Merchandise')
+# $::locale->text('Production')
+
+sub classification_abbreviation {
+  my ($self, $id) = @_;
+  $main::lxdebug->message(LXDebug->DEBUG2(),"classif=".$id);
+  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';
+  $attributes{title_key} = 'description';
+  my $collection = SL::DB::Manager::PartsClassification->get_all_sorted();
+  $_->description($::locale->text($_->description)) for @{ $collection };
+  return $self->select_tag( $name, $collection, %attributes );
+}
+

 1;
 
 __END__
 1;
 
 __END__


@@ -100,12 +148,12 @@ of the resulting hidden C<id> input field (but the ID can be
 overwritten with C<$params{id}>).
 
 An additional dummy input will be generated which is used to find
 overwritten with C<$params{id}>).
 
 An additional dummy input will be generated which is used to find

-parts. For a detailed description of it's behaviour, see section
+parts. For a detailed description of its behaviour, see section

 C<PART PICKER SPECIFICATION>.
 
 C<$value> can be a parts id or a C<Rose::DB:Object> instance.
 
 C<PART PICKER SPECIFICATION>.
 
 C<$value> can be a parts id or a C<Rose::DB:Object> instance.
 

-If C<%params> contains C<type> only parts of this type will be used
+If C<%params> contains C<part_type> only parts of this type will be used

 for autocompletion. You may comma separate multiple types as in
 C<part,assembly>.
 
 for autocompletion. You may comma separate multiple types as in
 C<part,assembly>.
 


@@ -116,14 +164,14 @@ C<h,min>.
 If C<%params> contains C<convertible_unit> only parts with a unit
 that's convertible to unit will be used for autocompletion.
 
 If C<%params> contains C<convertible_unit> only parts with a unit
 that's convertible to unit will be used for autocompletion.
 

-Obsolete parts will by default not displayed for selection. However they are
+Obsolete parts will by default not be displayed for selection. However they are

 accepted as default values and can persist during updates. As with other
 selectors though, they are not selectable once overridden.
 
 C<part_picker> will register it's javascript for inclusion in the next header
 rendering. If you write a standard controller that only call C<render> once, it
 will just work.  In case the header is generated in a different render call
 accepted as default values and can persist during updates. As with other
 selectors though, they are not selectable once overridden.
 
 C<part_picker> will register it's javascript for inclusion in the next header
 rendering. If you write a standard controller that only call C<render> once, it
 will just work.  In case the header is generated in a different render call

-(multiple blocks, ajax, old C<bin/moilla> style controllers) you need to
+(multiple blocks, ajax, old C<bin/mozilla> style controllers) you need to

 include C<js/autocomplete_part.js> yourself.
 
 =back
 include C<js/autocomplete_part.js> yourself.
 
 =back


@@ -167,7 +215,7 @@ Should not require a feedback/check loop in the common case
 
 =item *
 
 
 =item *
 

-Should not be constraint to exact matches
+Should not be constrained to exact matches

 
 =back
 
 
 =back
 


@@ -196,7 +244,7 @@ ambiguity.
 
 =item 5
 
 
 =item 5
 

-An internal status of the part picker, indicating wether id input and dummy
+An internal status of the part picker, indicating whether id input and dummy

 input are consistent. After leaving the dummy input the part picker must
 place itself in a consistent status.
 
 input are consistent. After leaving the dummy input the part picker must
 place itself in a consistent status.