Kosmetik

diff --git a/SL/Form.pm b/SL/Form.pm
index 0c291dabe09e4d39af37235677306d3d7b005ed4..58b1973aacfc53e5045b70a89052143ab886bd77 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1106,9 +1106,9 @@ sub parse_template {
   close $temp_fh;
 
   if ($template->uses_temp_file() || $self->{media} eq 'email') {
   close $temp_fh;
 
   if ($template->uses_temp_file() || $self->{media} eq 'email') {

-    $out = $self->{OUT};
-    $out_mode = $self->{OUT_MODE} || '>';
-    $self->{OUT} = "$self->{tmpfile}";
+    $out              = $self->{OUT};
+    $out_mode         = $self->{OUT_MODE} || '>';
+    $self->{OUT}      = "$self->{tmpfile}";

     $self->{OUT_MODE} = '>';
   }
 
     $self->{OUT_MODE} = '>';
   }
 


@@ -1154,19 +1154,15 @@ sub parse_template {
 
       # if we send html or plain text inline
       if (($self->{format} eq 'html') && ($self->{sendmode} eq 'inline')) {
 
       # if we send html or plain text inline
       if (($self->{format} eq 'html') && ($self->{sendmode} eq 'inline')) {

-        $mail->{contenttype} = "text/html";
-
-        $mail->{message}       =~ s/\r//g;
-        $mail->{message}       =~ s/\n/<br>\n/g;
-        $myconfig->{signature} =~ s/\n/<br>\n/g;
-        $mail->{message} .= "<br>\n-- <br>\n$myconfig->{signature}\n<br>";
+        $mail->{contenttype}    =  "text/html";
+        $mail->{message}        =~ s/\r//g;
+        $mail->{message}        =~ s/\n/<br>\n/g;
+        $myconfig->{signature}  =~ s/\n/<br>\n/g;
+        $mail->{message}       .=  "<br>\n-- <br>\n$myconfig->{signature}\n<br>";

 
         open(IN, "<", $self->{tmpfile})
           or $self->error($self->cleanup . "$self->{tmpfile} : $!");
 
         open(IN, "<", $self->{tmpfile})
           or $self->error($self->cleanup . "$self->{tmpfile} : $!");

-        while (<IN>) {
-          $mail->{message} .= $_;
-        }
-
+        $mail->{message} .= $_ while <IN>;

         close(IN);
 
       } else {
         close(IN);
 
       } else {


@@ -1203,10 +1199,10 @@ sub parse_template {
       #print(STDERR "OUT $self->{OUT}\n");
       for my $i (1 .. $self->{copies}) {
         if ($self->{OUT}) {
       #print(STDERR "OUT $self->{OUT}\n");
       for my $i (1 .. $self->{copies}) {
         if ($self->{OUT}) {

-          open OUT, $self->{OUT_MODE}, $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
+          open  OUT, $self->{OUT_MODE}, $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");

           print OUT $_ while <IN>;
           close OUT;
           print OUT $_ while <IN>;
           close OUT;

-          seek IN, 0, 0;
+          seek  IN, 0, 0;

 
         } else {
           $self->{attachment_filename} = ($self->{attachment_filename})
 
         } else {
           $self->{attachment_filename} = ($self->{attachment_filename})

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 18058437fe9d57ceaefbde04e167ce6e2af83d1b..7627da1cf39d31c458c855e7be06b673882181f5 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1517,7 +1517,6 @@ sub print_form {
   delete $form->{OUT};
 
   if ($form->{media} eq 'printer') {
   delete $form->{OUT};
 
   if ($form->{media} eq 'printer') {

-    #$form->{OUT} = "| $form->{printer_command} &>/dev/null";

     $form->{OUT}      = $form->{printer_command};
     $form->{OUT_MODE} = '|-';
     $form->{printed} .= " $form->{formname}";
     $form->{OUT}      = $form->{printer_command};
     $form->{OUT_MODE} = '|-';
     $form->{printed} .= " $form->{formname}";