SF.net SVN: ledger-smb:[3221] branches/1.2/LedgerSMB/AM.pm

[..hidden..]

Revision: 3221
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3221&view=rev
Author:   einhverfr
Date:     2011-06-11 14:40:17 +0000 (Sat, 11 Jun 2011)

Log Message:
-----------
Correcting bug 2892327

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

Modified: branches/1.2/LedgerSMB/AM.pm
===================================================================
--- branches/1.2/LedgerSMB/AM.pm	2011-06-11 14:35:10 UTC (rev 3220)
+++ branches/1.2/LedgerSMB/AM.pm	2011-06-11 14:40:17 UTC (rev 3221)
@@ -37,6 +37,7 @@
 package AM;
 use LedgerSMB::Tax;
 use LedgerSMB::Sysconfig;
+use open ':utf8';
 
 sub get_account {
 
@@ -1321,6 +1322,7 @@
     my $sth = $dbh->prepare($query);
     $sth->execute(@queryargs) || $form->dberror($query);
     my ($dbusername) = $sth->fetchrow_array;
+    $form->error($query . $form->{login} . $dbusername);
     $sth->finish;
 
     return 0 if ( $dbusername ne $form->{login} );


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