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

[..hidden..]

Revision: 1528
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1528&view=rev
Author:   tetragon
Date:     2007-09-06 18:54:37 -0700 (Thu, 06 Sep 2007)

Log Message:
-----------
Fixing bug 1789749

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

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-09-07 01:40:41 UTC (rev 1527)
+++ branches/1.2/LedgerSMB/Form.pm	2007-09-07 01:54:37 UTC (rev 1528)
@@ -364,7 +364,7 @@
         $self->{sort} =~ s/^"*(.*?)"*$/$1/;
         if (@columns) {
             @columns = grep !/^$self->{sort}$/, @columns;
-            if ($self->{sort} !~ /^\d*$/){
+            if ($self->{sort} !~ /^\w*$/){
                 $self->{sort} = $self->{dbh}->quote_identifier($self->{sort});
             }
             splice @columns, 0, 0, $self->{sort};


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