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 63048646..90fb16c9 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -196,8 +196,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"; } @@ -223,8 +223,8 @@ sub info { } else { - if ($self->{info_function}) { - &{ $self->{info_function} }($msg); + if ($ENV{info_function}) { + &{ $ENV{info_function} }($msg); } else { print "$msg\n"; } |