diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 03:15:15 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 03:15:15 +0000 |
| commit | 9328565f48fb505f789c371433088a46b0e6a693 (patch) | |
| tree | 3e0d385fa28e71ba5dd5954571831e1c557e032b | |
| parent | 129b3c2b70412e7fe99065f7edc9fafd39d2f2b5 (diff) | |
Moved error-function and info-function into environment variables
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@717 4979c152-3d1c-0410-bac9-87ea11338e46
| -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"; } |