Bessere Fehlermeldung ausgeben, wenn eine Anwendung wie pdflatex nicht gefunden wird

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 14e3ed20f0c24688b96c02f20805191508edc6dc..e841771b6288e23ac598c864febdb9af024617a7 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1537,12 +1537,17 @@ sub generate_email_subject {
 sub cleanup {
   $main::lxdebug->enter_sub();
 
 sub cleanup {
   $main::lxdebug->enter_sub();
 

-  my $self = shift;
+  my ($self, $application) = @_;
+
+  my $error_code = $?;

 
   chdir("$self->{tmpdir}");
 
   my @err = ();
 
   chdir("$self->{tmpdir}");
 
   my @err = ();

-  if (-f "$self->{tmpfile}.err") {
+  if ((-1 == $error_code) || (127 == (($error_code) >> 8))) {
+    push @err, $::locale->text('The application "#1" was not found on the system.', $application || 'pdflatex') . ' ' . $::locale->text('Please contact your administrator.');
+
+  } elsif (-f "$self->{tmpfile}.err") {

     open(FH, "$self->{tmpfile}.err");
     @err = <FH>;
     close(FH);
     open(FH, "$self->{tmpfile}.err");
     @err = <FH>;
     close(FH);