projekt kivitendo

     "chargeid"             => "c.id",

     "warehousedescription" => "w.description",

     "partunit"             => "p.unit",

  );

  my $select_clause = join ', ', map { +/^l_/; "$select_tokens{$'} AS $'" }

        ( grep( { !/qty/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),

        ( grep( { !/qty/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),

          qw(l_parts_id l_partunit) );

  my $query =

    qq|SELECT $select_clause

      $columns

      LEFT JOIN parts     p ON i.parts_id     = p.id

      LEFT JOIN bin       b ON i.bin_id       = b.id

      LEFT JOIN warehouse w ON i.warehouse_id = w.id

      WHERE $where_clause

      GROUP BY $group_clause $group_by

      ORDER BY $form->{sort}|;

      @all_fields                    = keys %{ $ref } unless (@all_fields);

    }

    push @contents, $ref;

  }