projekt kivitendo

use File::Slurp qw(read_file);

  # Catch any error, either exception or a call to form->error

  # and return it to the calling function.

  my ($error, $rc);

  eval {

    local $form->{__ERROR_HANDLER} = sub { die @_ };

    $rc = SL::DB->client->with_transaction(\&_save_dunning, $self, $myconfig, $form, $rows);

    1;

  } or do {

    $error = $@;

  };

  $error       = 'unknown errror' if !$error && !$rc;

  $rc->{error} = $error           if $error;

  die "only credit notes are selected for this customer\n" unless $customer_id;

  return ({dunning_id => $dunning_id, print_original_invoice => $print_invoice, send_email => $send_email});

  my ($self, $myconfig, $form, $copies, %params) = @_;

  my $dunning_filename    = $form->get_formname_translation('dunning');

  my $attachment_filename = "${dunning_filename}_${dunning_id}.pdf";

  my $content;

  if ($params{return_content}) {

    $content = read_file($in);

  } else {

    if ($form->{media} eq 'printer') {

      $form->get_printer_code($myconfig);

      my $out;

      if ($form->{printer_command}) {

        $out = IO::File->new("| $form->{printer_command}");

      }

      $form->error($main::locale->text('Could not spawn the printer command.')) unless $out;

      $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });

    } else {

      print qq|Content-Type: Application/PDF\n| .

            qq|Content-Disposition: attachment; filename=$attachment_filename\n\n|;

      $::locale->with_raw_io(\*STDOUT, sub { print while <$in> });

    }

  return ($attachment_filename, $content) if $params{return_content};

  push @{ $form->{DUNNING_PDFS} }        , $filename;

  push @{ $form->{DUNNING_PDFS_EMAIL} }  , { 'path'       => "${spool}/$filename",

                                             'name'       => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };

  push @{ $form->{DUNNING_PDFS_STORAGE} }, { 'dunning_id' => $dunning_id,

                                             'path'       => "${spool}/$filename",

                                             'name'       => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };

use List::Util qw(notall);

  my @status;

        my $rc =  DN->save_dunning(\%myconfig, $form, $level);

        $rc->{error} =~ s{\n}{<br />}g if $rc->{error};

        push @status, { invnumbers => [map { $form->{'invnumber_' . $_->{row}} } @$level],

                        map { ( $_ => $rc->{$_} ) } qw(error dunning_id print_original_invoice send_email), };

      my $rc = DN->save_dunning(\%myconfig, $form, $level);

      $rc->{error} =~ s{\n}{<br />}g if $rc->{error};

      push @status, { invnumbers => [map { $form->{'invnumber_' . $_->{row}} } @$level],

                      map { ( $_ => $rc->{$_} ) } qw(error dunning_id print_original_invoice send_email), };

  my $pdf_filename;

  my $pdf_content;

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

    ($pdf_filename, $pdf_content) = DN->melt_pdfs(\%myconfig, $form, $form->{copies}, return_content => $form->{media} ne 'printer');

    flash('info', t8('Dunning Process started for selected invoices!'));

    if ($form->{media} eq 'printer') {

      flash('info', t8('The PDF has been printed'));

    } else {

      flash('info', t8('The PDF has been created'));

    }

  setup_dn_status_action_bar();

  $form->{"title"} = $locale->text("Dunning status");

  $form->header();

  print $form->parse_html_template('dunning/status', {

    pdf_filename => $pdf_filename,

    pdf_content  => $pdf_content,

    status       => \@status, });

sub setup_dn_status_action_bar {

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      action => [

        t8('Back'),

        link      => $::form->{callback},

        accesskey => 'enter',

      ],

    );

  }

}

[% USE HTML %]

[% USE LxERP -%]

[% USE P -%]

[% USE T8 -%]

[% USE Base64 -%]

<h1>[% title | html %]</h1>

[%- INCLUDE 'common/flash.html' -%]

<table>

  <thead class="listheading">

    <tr>

      <th>[% 'Dunning number' | $T8 %]</th>

      <th width="250px">[% 'Invoice Number' | $T8 %]</th>

      <th>[% 'Include original Invoices?' | $T8 %]</th>

      <th>[% 'eMail?' | $T8 %]</th>

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

    </tr>

  </thead>

  <tbody>

    [% FOREACH s = status -%]

    <tr class=[%- IF s.error %]"listrow_error"[% ELSE %]"listrow"[% END %]>

      <td>[% IF !s.error %][% P.link_tag('dn.pl?action=show_dunning&showold=1&dunning_id=' _ s.dunning_id, s.dunning_id) %][% END %]</td>

      <td>[% s.invnumbers.join(", ") %]</td>

      <td>[% s.print_original_invoice ? LxERP.t8('Yes') : LxERP.t8('No') %]</td>

      <td>[% s.send_email ? LxERP.t8('Yes') : LxERP.t8('No') %]</td>

      <td>[% s.error ? s.error : LxERP.t8('Ok') %]</td>

    </tr>

    [%- END %]

  </tbody>

</table>

[%- IF pdf_filename && pdf_content -%]

  <script type="text/javascript">

    <!--

      $(function() {kivi.save_file('[% pdf_content.encode_base64 %]', 'application/pdf', 0, '[% pdf_filename %]');});

    -->

  </script>

[%- END %]