SF.net SVN: ledger-smb: [718] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

Revision: 718
          http://svn.sourceforge.net/ledger-smb/?rev=718&view=rev
Author:   einhverfr
Date:     2006-12-04 19:18:44 -0800 (Mon, 04 Dec 2006)

Log Message:
-----------
Moved error-function and info-function into environment variables

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2006-12-05 03:15:15 UTC (rev 717)
+++ branches/1.2/LedgerSMB/Form.pm	2006-12-05 03:18:44 UTC (rev 718)
@@ -196,8 +196,8 @@
 
 	} 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 @@
 
 	} else {
 
-		if ($self->{info_function}) {
-			&{ $self->{info_function} }($msg);
+		if ($ENV{info_function}) {
+			&{ $ENV{info_function} }($msg);
 		} else {
 			print "$msg\n";
 		}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.