Fixt #349 (Normalisierung Artikel) - normalize_text_blocks nach Part-Controller migriert

diff --git a/SL/Controller/Part.pm b/SL/Controller/Part.pm
index 804ad159032f0dd46e187b86443121d26a638bb2..357a3dd075f5382f7c815bb83daa63c73436477d 100644 (file)
--- a/SL/Controller/Part.pm
+++ b/SL/Controller/Part.pm
@@ -42,6 +42,8 @@ __PACKAGE__->run_before(sub { $::auth->assert('part_service_assembly_edit') },
 
 __PACKAGE__->run_before('check_part_id', only   => [ qw(edit delete) ]);
 
 
 __PACKAGE__->run_before('check_part_id', only   => [ qw(edit delete) ]);
 

+__PACKAGE__->run_before('normalize_text_blocks');
+

 # actions for editing parts
 #
 sub action_add_part {
 # actions for editing parts
 #
 sub action_add_part {


@@ -1193,6 +1195,25 @@ sub check_has_valid_part_type {
   die "invalid part_type" unless $_[0] =~ /^(part|service|assembly|assortment)$/;
 }
 
   die "invalid part_type" unless $_[0] =~ /^(part|service|assembly|assortment)$/;
 }
 

+
+sub normalize_text_blocks {
+  my ($self) = @_;
+
+  # check if feature is enabled (select normalize_part_descriptions from defaults)
+  return unless ($::instance_conf->get_normalize_part_descriptions);
+
+  # text block
+  foreach (qw(description)) {
+    $self->part->{$_} =~ s/\s+$//s;
+    $self->part->{$_} =~ s/^\s+//s;
+    $self->part->{$_} =~ s/ {2,}/ /g;
+  }
+  # html block (caveat: can be circumvented by using bold or italics)
+  $self->part->{notes} =~ s/^<p>(&nbsp;)+\s+/<p>/s;
+  $self->part->{notes} =~ s/(&nbsp;)+<\/p>$/<\/p>/s;
+
+}
+

 sub render_assortment_items_to_html {
   my ($self, $assortment_items, $number_of_items) = @_;
 
 sub render_assortment_items_to_html {
   my ($self, $assortment_items, $number_of_items) = @_;
 

diff --git a/SL/IC.pm b/SL/IC.pm
index 4254236db69e42e61e67ba6b8dd45642ead86e5c..f62c67695a0f902f89b43d278556f18f0c5166f2 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -954,24 +954,4 @@ sub prepare_parts_for_printing {
   return %template_arrays;
 }
 
   return %template_arrays;
 }
 

-sub normalize_text_blocks {
-  $main::lxdebug->enter_sub();
-
-  my $self     = shift;
-  my %params   = @_;
-
-  my $form     = $params{form}     || $main::form;
-
-  # check if feature is enabled (select normalize_part_descriptions from defaults)
-  return unless ($::instance_conf->get_normalize_part_descriptions);
-
-  foreach (qw(description notes)) {
-    $form->{$_} =~ s/\s+$//s;
-    $form->{$_} =~ s/^\s+//s;
-    $form->{$_} =~ s/ {2,}/ /g;
-  }
-   $main::lxdebug->leave_sub();
-}
-
-

 1;
 1;