Bugfix: Update im Warendialog hatte die Warengruppe verschluckt.

diff --git a/SL/Form.pm b/SL/Form.pm
index bded794355c188fc8c695a08e2a85419a9aeee76..067a002cfb0bd88d48e5d99c4c72660717e43591 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2328,6 +2328,9 @@ sub get_lists {
   if ($params{groups}) {
     $self->_get_groups($dbh, $params{groups});
   }
   if ($params{groups}) {
     $self->_get_groups($dbh, $params{groups});
   }

+  if ($params{partsgroup}) {
+    $self->get_partsgroup(\%main::myconfig, { all => 1, target => $params{partsgroup} });
+  }

 
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }


@@ -3117,6 +3120,7 @@ sub get_partsgroup {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $p) = @_;
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $p) = @_;

+  my $target = $p->{target} || 'all_partsgroup';

 
   my $dbh = $self->get_standard_dbh($myconfig);
 
 
   my $dbh = $self->get_standard_dbh($myconfig);
 


@@ -3155,7 +3159,7 @@ sub get_partsgroup {
     @values = ($p->{language_code});
   }
 
     @values = ($p->{language_code});
   }
 

-  $self->{all_partsgroup} = selectall_hashref_query($self, $dbh, $query, @values);
+  $self->{$target} = selectall_hashref_query($self, $dbh, $query, @values);

 
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index f2ca8a9294402060220869190525e0a0fd059285..ec0c5803538af8243933929e9ec37d0a50ff6322 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -1467,7 +1467,8 @@ sub form_header {
   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
   map { $form->{$_}       =~ s/"/"/g;        } qw(unit);
  
   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
   map { $form->{$_}       =~ s/"/"/g;        } qw(unit);
  

-  $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
+  $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS', 
+                   'partsgroup'    => 'all_partsgroup');

 
   $rows = 4 if $rows = $form->numtextrows($form->{notes}, 40) < 2;
   $form->{notes_rows} = $rows;
 
   $rows = 4 if $rows = $form->numtextrows($form->{notes}, 40) < 2;
   $form->{notes_rows} = $rows;