"Invoice.pm.html#L41" data-txt="41">
SELECT * from employee_project_invoices WHERE project_id = ar.globalproject_id and employee_id = ?
) AND id IN ($id_placeholder)
SQL
my ($no_access_count) = SL::DB->client->dbh->selectrow_array($query, undef, $current_employee->id, @{$ids});
return !$no_access_count;
}

sub action_webdav_pdf_export {
my ($self) = @_;
my $ids = $::form->{id};

my $invoices = SL::DB::Manager::Invoice->get_all(where => [ id => $ids ]);

my @file_names_and_file_paths;
my @errors;
foreach my $invoice (@{$invoices}) {
my $record_type = $invoice->record_type;
$record_type = 'general_ledger' if $record_type eq 'ar_transaction';
$record_type = 'invoice' if $record_type eq 'invoice_storno';
my $webdav = SL::Webdav->new(
type => $record_type,
number => $invoice->record_number,
);
my @latest_object = $webdav->get_all_latest();
unless (scalar @latest_object) {
push @errors, t8(
"No Dokument found for record '#1'. Please deselect it or create a document it.",
$invoice->displayable_name()
);
next;
}
push @file_names_and_file_paths, {
file_name => $latest_object[0]->basename . "." . $latest_object[0]->extension,
file_path => $latest_object[0]->full_filedescriptor(),
}
}

if (scalar @errors) {
die join("\n", @errors);
}
$self->_create_and_send_zip(\@file_names_and_file_paths);
}

sub action_files_pdf_export {
my ($self) = @_;

my $ids = $::form->{id};

my $invoices = SL::DB::Manager::Invoice->get_all(where => [ id => $ids ]);

my @file_names_and_file_paths;
my @errors;
foreach my $invoice (@{$invoices}) {
my $record_type = $invoice->record_type;
$record_type = 'invoice' if $record_type eq 'ar_transaction';
$record_type = 'invoice' if $record_type eq 'invoice_storno';
my @file_objects = SL::File->get_all(
object_type => $record_type,
object_id => $invoice->id,
file_type => 'document',
source => 'created',
);

unless (scalar @file_objects) {
push @errors, t8(
"No Dokument found for record '#1'. Please deselect it or create a document it.",
$invoice->displayable_name()
);
next;
}
foreach my $file_object (@file_objects) {
eval {
push @file_names_and_file_paths, {
file_name => $file_object->file_name,
file_path => $file_object->get_file(),
};
} or do {
push @errors, $@,
};
}
}

if (scalar @errors) {
die join("\n", @errors);
}
$self->_create_and_send_zip(\@file_names_and_file_paths);
}

sub _create_and_send_zip {
my ($self, $file_names_and_file_paths) = validate_pos(@_,
{ isa => 'SL::Controller::Invoice' },
{
type => ARRAYREF,
callbacks => {
"has 'file_name' and 'file_path'" => sub {
foreach my $file_entry (@{$_[0]}) {
return 0 unless defined $file_entry->{file_name}
&& defined $file_entry->{file_path};
}
return 1;
}
}
});

my ($fh, $zipfile) = File::Temp::tempfile();
my $zip = Archive::Zip->new();
foreach my $file (@{$file_names_and_file_paths}) {
$zip->addFile($file->{file_path}, $file->{file_name});
}
$zip->writeToFileHandle($fh) == Archive::Zip::AZ_OK() or die 'error writing zip file';
close($fh);

$self->send_file(
$zipfile,
name => t8('pdf_records.zip'), unlink => 1,
type => 'application/zip',
);
}

1;
(36-36/85)