projekt kivitendo

use SL::Template;

use SL::DB::Printer;

use SL::DB::Language;

use SL::Helper::PrintOptions;

                        only => [ qw(update save save_and_delivery_order print create_pdf send_email) ]);

                        only => [ qw(save save_and_delivery_order print create_pdf send_email) ]);

sub action_print {

  my $format      = $::form->{print_options}->{format};

  my $media       = $::form->{print_options}->{media};

  my $formname    = $::form->{print_options}->{formname};

  my $copies      = $::form->{print_options}->{copies};

  my $groupitems  = $::form->{print_options}->{groupitems};

  # only pdf by now

  if (none { $format eq $_ } qw(pdf)) {

    return $self->js->flash('error', t8('Format \'#1\' is not supported yet/anymore.', $format))->render;

  # only screen or printer by now

  if (none { $media eq $_ } qw(screen printer)) {

    return $self->js->flash('error', t8('Media \'#1\' is not supported yet/anymore.', $media))->render;

  }

  my $language;

  $language = SL::DB::Language->new(id => $::form->{print_options}->{language_id})->load if $::form->{print_options}->{language_id};

  $form->{format}    = $format;

  $form->{formname}  = $formname;

  $form->{language}  = '_' . $language->template_code if $language;

  my $pdf_filename   = $form->generate_attachment_filename();

  my $pdf;

  my @errors = _create_pdf($self->order, \$pdf, { format     => $format,

                                                  formname   => $formname,

                                                  language   => $language,

                                                  groupitems => $groupitems });

  if (scalar @errors) {

    return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render;

  }

  if ($media eq 'screen') {

    # screen/download

    my $sfile = SL::SessionFile::Random->new(mode => "w");

    $sfile->fh->print($pdf);

    $sfile->fh->close;

    my $key = join('_', Time::HiRes::gettimeofday(), int rand 1000000000000);

    $::auth->set_session_value("Order::create_pdf-${key}" => $sfile->file_name);

    $self->js

    ->run('download_pdf', $pdf_filename, $key)

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

  } elsif ($media eq 'printer') {

    # printer

    my $printer_id = $::form->{print_options}->{printer_id};

    my $printer;

    $printer = SL::DB::Printer->new(id => $printer_id)->load if $printer_id;

    if (!$printer) {

      return $self->js->flash('error', t8('Printer not found.'))->render;

    }

    my $command = SL::Template::create(type => 'ShellCommand', form => Form->new(''))->parse($printer->printer_command);

    for my $i (1 .. $copies) {

      open my $out, '|-', $command or die $!;

      binmode $out;

      print $out $pdf;

      close $out;

    }

    $self->js->flash('info', t8('The PDF has been printed'));

  }

  $self->js->render;

  my $print_form = Form->new('');

  $print_form->{type}      = $self->type;

  $print_form->{printers}  = SL::DB::Manager::Printer->get_all_sorted;

  $print_form->{languages} = SL::DB::Manager::Language->get_all_sorted;

  $self->{print_options}   = SL::Helper::PrintOptions->get_print_options(

    form => $print_form,

    options => {dialog_name_prefix => 'print_options.',

                show_headers       => 1,

                no_queue           => 1,

                no_postscript      => 1,

                no_opendocument    => 1,

                no_html            => 1},

  );

  my @errors = ();

  $print_form->{type}        = $order->type;

  $print_form->{formname}    = $params->{formname} || $order->type;

  $print_form->{format}      = $params->{format}   || 'pdf';

  $print_form->{media}       = $params->{media}    || 'file';

  $print_form->{groupitems}  = $params->{groupitems};

  $print_form->{media}       = 'file'                             if $print_form->{media} eq 'screen';

  $print_form->{language}    = $params->{language}->template_code if $print_form->{language};

  $print_form->{language_id} = $params->{language}->id            if $print_form->{language};

  # search for the template

  my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template(

    name        => $print_form->{formname},

    email       => $print_form->{media} eq 'email',

    language    => $params->{language},

    printer_id  => $print_form->{printer_id},  # todo

  );

  if (!defined $template_file) {

    push @errors, $::locale->text('Cannot find matching template for this print request. Please contact your template maintainer. I tried these: #1.', join ', ', map { "'$_'"} @template_files);

  }

  return @errors if scalar @errors;

        template  => $template_file,

"Print options":"Druckoptionen",

  'Format \'#1\' is not supported yet/anymore.' => 'Das Format \'#1\' wird noch nicht oder nicht mehr unterstützt.',

  'Media \'#1\' is not supported yet/anymore.' => 'Das Medium \'#1\' wird noch nicht oder nicht mehr unterstützt.',

  'Printer not found.'          => 'Drucker nicht gefunden.',

  'The PDF has been printed'    => 'Das PDF-Dokument wurde gedruckt.',

<div id="print_options" style="display:none">

  <form method="post" action="controller.pl" id="print_options_form">

    [% SELF.print_options %]

    <br>

    [% L.button_tag('print()', LxERP.t8('Print')) %]

    <a href="#" onclick="$('#print_options').dialog('close');">[% LxERP.t8("Cancel") %]</a>

  </form>

</div>

  [% L.button_tag('show_print_options()', LxERP.t8('Print')) %]

function show_print_options() {

  kivi.popup_dialog({

    id: 'print_options',

    dialog: {

      title: kivi.t8('Print options'),

      width:  800,

      height: 300

    }

  });

}

function print() {

  $('#print_options').dialog('close');

  data = data.concat($('#print_options_form').serializeArray());

  data.push({ name: 'action', value: 'Order/print' });