diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index f2edb799..618a1e3d 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -188,8 +188,8 @@ sub error { } else { - if ($self->{error_function}) { - &{ $self->{error_function} }($msg); + if ($ENV{error_function}) { + &{$ENV{error_function}}($msg); } else { die "Error: $msg\n"; } @@ -215,8 +215,8 @@ sub info { } else { - if ($self->{info_function}) { - &{ $self->{info_function} }($msg); + if ($ENV{info_function}) { + &{ $ENV{info_function} }($msg); } else { print "$msg\n"; } |