diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-07 01:54:59 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-07 01:54:59 +0000 |
| commit | 8bcb51f7f0891fd01a537d6029704fbe7cd908f4 (patch) | |
| tree | aeab0e56a88f8609c43e4f39090209e77cbd7252 /LedgerSMB/Form.pm | |
| parent | 0d779a471c0488b5900d9bf07aec0b7ba419f05d (diff) | |
Fixing bug 1789749
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1529 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rw-r--r-- | LedgerSMB/Form.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index ca2abc6f..920870ca 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -547,7 +547,7 @@ sub sort_columns { $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}; |