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

[..hidden..]

Revision: 5893
          http://sourceforge.net/p/ledger-smb/code/5893
Author:   tshvr
Date:     2013-06-14 20:04:14 +0000 (Fri, 14 Jun 2013)
Log Message:
-----------
make sub error work;_error better than error?

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

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2013-06-06 05:39:52 UTC (rev 5892)
+++ trunk/LedgerSMB.pm	2013-06-14 20:04:14 UTC (rev 5893)
@@ -803,7 +803,7 @@
 
 # To be replaced with a generic interface to an Error class
 sub error {
-    my ($self, $msg);
+    my ($self, $msg) = @_;
     die $msg;
 }
 
@@ -904,7 +904,8 @@
 
     ($self->{_role_prefix}) = $sth->fetchrow_array;
     if ($dbversion ne $self->{dbversion}){
-        $self->error("Database is not the expected version.  Was $dbversion, expected $self->{dbversion}.  Please re-run setup.pl against this database to correct.<a href='setup.pl'>setup.pl</a>");
+        #$self->error("Database is not the expected version.  Was $dbversion, expected $self->{dbversion}.  Please re-run setup.pl against this database to correct.<a href='setup.pl'>setup.pl</a>");
+        $self->_error("Database is not the expected version.  Was $dbversion, expected $self->{dbversion}.  Please re-run setup.pl against this database to correct.<a href='setup.pl'>setup.pl</a>");
     }
 
     $sth = $self->{dbh}->prepare('SELECT check_expiration()');

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