Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0064769c

Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt

  • ID 0064769c24edee6c5cb5d95e1ef1a08a82e9e82e
  • Vorgänger 2baa29eb
  • Nachfolger 09f405ce

Kundenspez. Preise um Beschreibung u. Langtext erweitern: in S:IC zum Drucken

Unterschiede anzeigen:

SL/IC.pm
908 908

  
909 909
  $query           = qq|SELECT
910 910
                        cp.parts_id,
911
                        cp.customer_partnumber AS customer_model,
912
                        c.name                 AS customer_make
911
                        cp.customer_partnumber  AS customer_model,
912
                        cp.part_description     AS cm_part_description,
913
                        cp.part_longdescription AS cm_part_longdescription,
914
                        c.name                  AS customer_make
913 915
                        FROM part_customer_prices cp
914 916
                        LEFT JOIN customer c ON (cp.customer_id = c.id)
915 917
                        WHERE cp.parts_id IN ($placeholders)|;
......
934 936
  my %data    = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids);
935 937

  
936 938
  my %template_arrays;
937
  map { $template_arrays{$_} = [] } (qw(make model mm_part_description customer_make customer_model), @columns);
939
  map { $template_arrays{$_} = [] } (qw(make model mm_part_description customer_make customer_model cm_part_description cm_part_longdescription), @columns);
938 940

  
939 941
  foreach my $i (1 .. $rowcount) {
940 942
    my $id = $form->{"${prefix}${i}"};
......
957 959

  
958 960
    push @{ $template_arrays{customer_make} },  [];
959 961
    push @{ $template_arrays{customer_model} }, [];
962
    push @{ $template_arrays{cm_part_description} },     [];
963
    push @{ $template_arrays{cm_part_longdescription} }, [];
960 964

  
961 965
    if ($customermodel{$id}) {
962 966
      foreach my $ref (@{ $customermodel{$id} }) {
963
        push @{ $template_arrays{$_}->[-1] }, $ref->{$_} for qw(customer_make customer_model);
967
        push @{ $template_arrays{$_}->[-1] }, $ref->{$_} for qw(customer_make customer_model cm_part_description cm_part_longdescription);
964 968
      }
965 969
    }
966 970

  

Auch abrufbar als: Unified diff