projekt kivitendo

    #  column name,   prefix,  joins_needed

    [ 'description',  'ioi.',  'invoice_oi'  ],

    [ 'deliverydate', 'ioi.',  'invoice_oi'  ],

  );

  # careful with renames. these are HARD, and any filters done on the original column will break

  my $make_token_builder = sub {

    my $joins_needed = shift;

    sub {

      my @coalesce_tokens =

        map  { ($_->[1] || 'p.') . $_->[0] }

        grep { !$_->[2] || $joins_needed->{$_->[2]} }

        @column_override, [ $col, $table_prefix{$col} ];

      my $coalesce = scalar @coalesce_tokens > 1;

      return ($coalesce

        ? sprintf 'COALESCE(%s)', join ', ', @coalesce_tokens

        : shift                              @coalesce_tokens)

        ?  " AS " . ($renamed_columns{$col} || $col)

        : '');

    }