projekt kivitendo

  if ($form->{l_items} && scalar @{ $form->{OE} }) {

    my ($items_query, $items_sth);

    if ($form->{l_items}) {

      $items_query =

        qq|SELECT id

          FROM orderitems

          WHERE trans_id  = ?

          ORDER BY position|;

      $items_sth = prepare_query($form, $dbh, $items_query);

    }

    foreach my $oe (@{ $form->{OE} }) {

      do_statement($form, $items_sth, $items_query, $oe->{id});

      $oe->{item_ids} = $dbh->selectcol_arrayref($items_sth);

      $oe->{item_ids} = undef if !@{$oe->{item_ids}};

    }

    $items_sth->finish();

  }

package SL::Presenter::ItemsList;

use strict;

use File::Spec;

use Template;

use SL::Presenter;

use SL::Presenter::EscapedText qw(escape is_escaped);

use Exporter qw(import);

our @EXPORT_OK = qw(items_list);

sub items_list {

  my ($items, %params) = @_;

  my $output;

  if (delete $params{as_text}) {

    my $template = Template->new({ INTERPOLATE => 1,

                                   EVAL_PERL   => 0,

                                   ABSOLUTE    => 1,

                                   CACHE_SIZE  => 0,

                                   ENCODING    => 'utf8',

                                 });

    die "Could not create Template instance" if !$template;

    my $filename = File::Spec->catfile($::request->layout->webpages_path, qw(presenter items_list items_list.txt));

    $template->process($filename, {%params, items => $items}, \$output) || die $template->error;

    # Remove last newline because it can cause problems when rendering pdf.

    $output =~ s{\n$}{}x;

  } else {

    $output = SL::Presenter->get->render('presenter/items_list/items_list', %params, items => $items);

  }

  return $output;

}

use SL::DB::OrderItem;

use SL::Presenter::ItemsList;

    "items",

    'items'                   => { 'text' => $locale->text('Positions'), },

      next if ($column eq 'items');

    if ($form->{l_items}) {

      my $items = SL::DB::Manager::OrderItem->get_all_sorted(where => [id => $oe->{item_ids}]);

      $row->{items}->{raw_data}  = SL::Presenter::ItemsList::items_list($items)               if lc($report->{options}->{output_format}) eq 'html';

      $row->{items}->{data}      = SL::Presenter::ItemsList::items_list($items, as_text => 1) if lc($report->{options}->{output_format}) ne 'html';

    }

                     failed_background_jobs_report/email.txt presenter/items_list/items_list.txt)

       <tr>

        <td>

         <input name="l_items" id="l_items" class="checkbox" type="checkbox" value="Y">

         <label for="l_items">[% 'Positions' | $T8 %]</label>

        </td>

       </tr>

[% USE L %][% USE LxERP %][%- USE P -%][%- USE T8 -%]

<font size="-2">

[%- IF items.size > 0 %]

 <table>

  <tr class="listheading">

   <th>[% 'Position'    | $T8 %]</th>

   <th>[% 'Partnumber'  | $T8 %]</th>

   <th>[% 'Description' | $T8 %]</th>

   <th>[% 'Qty'         | $T8 %]</th>

   <th>[% 'Unit'        | $T8 %]</th>

  </tr>

  [%- FOREACH item = items %]

  <tr class="listrow[% IF !loop.first %] item_row_toggle_[% items.0.id %][% END %]"[% IF !loop.first %] style="display:none"[% END %]>

   <td align="right">[% P.escape(item.position) %]</td>

   <td>[% P.escape(item.part.partnumber) %]</td>

   <td>[% P.escape(item.description) %]</td>

   <td align="right">[% P.escape(item.qty_as_number) %]</td>

   <td>[% P.escape(item.unit) %]</td>

  </tr>

  [%- END %]

 </table>

 [%- IF items.size > 1 %]

  <a href="javascript:void(0);" onClick="javascript:$('.item_row_toggle_[% items.0.id %]').toggle();$('.item_row_toggle_[% items.0.id %]').is(':hidden') ? $('#toggle_text_[% items.0.id %]').html('… ⏷') : $('#toggle_text_[% items.0.id %]').html('⏶');"><span id='toggle_text_[% items.0.id %]'>… ⏷</span></a>

 [%- END %]

[%- END %]

</font>

[% FOREACH item = items -%]

[% item.position %]: [% item.part.partnumber %] [% item.description %] [% item.qty_as_number %] [% item.unit %]

[% END -%]