[PATCH] Fix email form

[Erik Huelsmann <..hidden..>]

Hi Chris,

Thanks for pointing me to the templating system as the source of the
emails which don't get sent. I've identified the offending line and
replaced it with a better line: one that merges the old and new
argument sets, giving the arguments in the new set highest priority.

This is the patch:


Index: LedgerSMB/Template.pm
===================================================================
--- LedgerSMB/Template.pm       (revision 3143)
+++ LedgerSMB/Template.pm       (working copy)
@@ -281,7 +281,9 @@
 sub output {
        my $self = shift;
        my %args = @_;
-       $self->{output_args} = \%args;
+
+       for ( keys %args ) { $self->{output_args}->{$_} = $args{$_}; };
+
        my $method = $self->{method} || $args{method} || $args{media};
        if ('email' eq lc $method) {
                $self->_email_output;


Bye,


Erik.