Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 715b80ec

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

  • ID 715b80ec82af82cd268726f7f1db2c9d88924ec0
  • Vorgänger 8e144b04
  • Nachfolger aa8106e2

Lieferantenartikelnummern um Langtext erweitern: zum Drucken

Unterschiede anzeigen:

SL/IC.pm
890 890
  }
891 891

  
892 892
  my $placeholders = join ', ', ('?') x scalar(@part_ids);
893
  my $query        = qq|SELECT mm.parts_id, mm.model, mm.part_description AS mm_part_description, mm.lastcost, v.name AS make
893
  my $query        = qq|SELECT mm.parts_id, mm.model,
894
                        mm.part_description AS mm_part_description,
895
                        mm.part_longdescription AS mm_part_longdescription,
896
                        mm.lastcost, v.name AS make
894 897
                        FROM makemodel mm
895 898
                        LEFT JOIN vendor v ON (mm.make = v.id)
896 899
                        WHERE mm.parts_id IN ($placeholders)|;
......
936 939
  my %data    = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids);
937 940

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

  
941 944
  foreach my $i (1 .. $rowcount) {
942 945
    my $id = $form->{"${prefix}${i}"};
......
949 952

  
950 953
    push @{ $template_arrays{make} },  [];
951 954
    push @{ $template_arrays{model} }, [];
952
    push @{ $template_arrays{mm_part_description} }, [];
955
    push @{ $template_arrays{mm_part_description} },     [];
956
    push @{ $template_arrays{mm_part_longdescription} }, [];
953 957

  
954 958
    if ($makemodel{$id}) {
955 959
      foreach my $ref (@{ $makemodel{$id} }) {
956
        map { push @{ $template_arrays{$_}->[-1] }, $ref->{$_} } qw(make model mm_part_description);
960
        map { push @{ $template_arrays{$_}->[-1] }, $ref->{$_} } qw(make model mm_part_description mm_part_longdescription);
957 961
      }
958 962
    }
959 963

  

Auch abrufbar als: Unified diff