projekt kivitendo

use SL::Helper::CreatePDF qw();

use SL::Helper::Flash;

use SL::Locale::String;

use SL::Template::LaTeX;

use Rose::Object::MakeMethods::Generic

sub action_create_pdf {

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

  my $base_name       = $self->requirement_spec->type->template_file_name || 'requirement_spec';

  unlink @pictures unless ($::lx_office_conf{debug} || {})->{keep_temp_files};

}

sub prepare_pictures_for_printing {

  my @files;

  foreach my $picture (map { @{ $_->pictures } } @{ $self->requirement_spec->text_blocks }) {

    my $output_file_name        = $target . $picture->id . '.' . $picture->get_default_file_name_extension;

use Cwd;

use Encode;

use File::Copy;

use IO::File;

use Math::BigInt;

use POSIX qw(strftime);

  local (*IN, *OUT);

  my $ext_for_format;

  # OUT is used for the media, screen, printer, email

  # for postscript we store a copy in a temporary file

  my ($temp_fh, $suffix);

  $suffix =  $self->{IN};

use SL::DB::Language;

use SL::DB::Printer;

use SL::MoreCommon;

use SL::Template;

use SL::Template::LaTeX;

sub create_parsed_file {

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

  my $vars           = $params{variables} || {};

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

  $form->{$_}        = $vars->{$_} for keys %{$vars};

  $form->{format}    = lc($params{format} || 'pdf');

  $form->{templates} = $::instance_conf->get_templates;

  $form->{IN}        = $params{template};

  my $tmpdir         = $form->{tmpdir};

  my ($suffix)       = $params{template} =~ m{\.(.+)};

    'kivitendo-printXXXXXX',

    SUFFIX => ".${suffix}",

    DIR    => $form->{tmpdir},

  );

  $form->{tmpfile} = $tmpfile;

  my ($volume, $directory, $file_name) = File::Spec->splitpath($form->{tmpfile});

  my $full_file_name                   = File::Spec->catfile($tmpdir, $file_name);

  if (($params{return} || 'content') eq 'file_name') {

    rename $full_file_name, $new_name;

    $form->cleanup;

  my $exe_dir     = SL::System::Process::exe_dir();

  $templates_path = $exe_dir . '/' . $templates_path unless $templates_path =~ m{^/};

}

sub convert_to_postscript {

sub parse_and_create_pdf {

  my ($class, $template_file_name, %params) = @_;

  my $keep_temp                = $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files};

  my ($tex_fh, $tex_file_name) = File::Temp::tempfile(

    'kivitendo-printXXXXXX',

    SUFFIX => '.tex',

    UNLINK => $keep_temp ? 0 : 1,,

  );

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

  $local_form->{cwd}       = $old_wd;

  $local_form->{IN}        = $template_file_name;

  $local_form->{tmpfile}   = $tex_file_name;

  $local_form->{templates} = SL::DB::Default->get->templates;

  my $error;

  eval {

    my $result   = $template->parse($tex_fh) && $template->convert_to_pdf;

    die $template->{error} unless $result;