Erzeugnis fertigen -> Zustand in Hilfstabelle dokumentieren

[mfinanz.git] / bin / mozilla / rp.pl

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index c1b3c63de468e57fda654b24895b9dd03555838c..f6db5e2e4c65e99693bcbef0882ce2f36e02a4f9 100644 (file)
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -630,7 +630,7 @@ sub generate_trial_balance {
   my $attachment_basename = $locale->text('trial_balance');
   my $report              = SL::ReportGenerator->new(\%myconfig, $form);
 
   my $attachment_basename = $locale->text('trial_balance');
   my $report              = SL::ReportGenerator->new(\%myconfig, $form);
 

-  my @hidden_variables    = qw(fromdate todate year method);
+  my @hidden_variables    = qw(fromdate todate year method department_id);

 
   my $href                = build_std_url('action=generate_trial_balance', grep { $form->{$_} } @hidden_variables);
 
 
   my $href                = build_std_url('action=generate_trial_balance', grep { $form->{$_} } @hidden_variables);
 


@@ -1139,13 +1139,11 @@ sub send_email {
 
   RP->aging(\%myconfig, \%$form);
 
 
   RP->aging(\%myconfig, \%$form);
 

-  $form->{"statement_1"} = 1;

 
   my $email_form  = delete $form->{email_form};
   my %field_names = (to => 'email');
 
   $form->{ $field_names{$_} // $_ } = $email_form->{$_} for keys %{ $email_form };
 
   my $email_form  = delete $form->{email_form};
   my %field_names = (to => 'email');
 
   $form->{ $field_names{$_} // $_ } = $email_form->{$_} for keys %{ $email_form };

-

   $form->{media} = 'email';
   print_form();
 
   $form->{media} = 'email';
   print_form();