X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/52352135ee322387c8eba0fcbbb09dd50abbdf09..6824628e8e4d949b8b1d72ebdfd0cdb459fde537:/bin/mozilla/io.pl

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 039509269..d85e618f7 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1368,7 +1368,7 @@ sub edit_e_mail {
   print $form->parse_html_template('generic/edit_email', 
                                   { title           => $title,
                                     a_filename      => $attachment_filename,
-                                    _print_options_ => print_options({ 'inline' => 1 }),
+                                    _print_options_ => print_options('inline' => 1),
                                     HIDDEN          => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ],
                                     SHOW_BCC        => $myconfig{role} eq 'admin' });
 
@@ -1869,7 +1869,7 @@ sub print_form {
     %queued = map { s|.*/|| } split / /, $form->{queued};
 
     if ($filename = $queued{ $form->{formname} }) {
-      $form->{queued} =~ s/$form->{formname} $filename//;
+      $form->{queued} =~ s/\Q$form->{formname} $filename\E//;
       unlink "$spool/$filename";
       $filename =~ s/\..*$//g;
     } else {