SF.net SVN: ledger-smb:[3550] trunk/LedgerSMB/DBObject/Admin.pm

[..hidden..]

Revision: 3550
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3550&view=rev
Author:   einhverfr
Date:     2011-07-20 23:39:49 +0000 (Wed, 20 Jul 2011)

Log Message:
-----------
Correcting bug 3371765

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

Modified: trunk/LedgerSMB/DBObject/Admin.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Admin.pm	2011-07-20 23:12:09 UTC (rev 3549)
+++ trunk/LedgerSMB/DBObject/Admin.pm	2011-07-20 23:39:49 UTC (rev 3550)
@@ -68,6 +68,11 @@
     
     my $self = shift @_;
 
+    if ($self->{username} =~ /[A-Z]/){ 
+        # Caps interfere with Pg permissions --CT
+        $self->error($self->{_locale}->text('Caps not allowed in usernames.'));
+    }
+
     # I deleted some assignments which didn't play well with strict mode
     # and by my reading probably broke things. --CT
 


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