SF.net SVN: ledger-smb: [717] trunk/LedgerSMB/Form.pm

[..hidden..]

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

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

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-12-05 03:02:39 UTC (rev 716)
+++ trunk/LedgerSMB/Form.pm	2006-12-05 03:15:15 UTC (rev 717)
@@ -188,8 +188,8 @@
 
 	} 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 @@
 
 	} 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.