diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 12 | ||||
| -rw-r--r-- | common.pl | 1 |
2 files changed, 1 insertions, 12 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 1dee7692..c834e468 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -2301,17 +2301,7 @@ sub like { my ($self, $str) = @_; - if ($str !~ /(%|_)/) { - - if ($str =~ /(^").*("$)/) { - $str =~ s/(^"|"$)//g; - } else { - $str = "%$str%"; - } - } - - $str =~ s/'/''/g; - $str; + "%$str%"; } @@ -1,4 +1,3 @@ -#!c:\vanilla-perl\perl\bin\perl # ###################################################################### # LedgerSMB Accounting and ERP |