Revision 88dea78e
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 75 | 75 |
use SL::Request; |
| 76 | 76 |
use SL::Template; |
| 77 | 77 |
use SL::User; |
| 78 |
use SL::Util; |
|
| 78 | 79 |
use SL::X; |
| 79 | 80 |
use Template; |
| 80 | 81 |
use URI; |
| ... | ... | |
| 3001 | 3002 |
} |
| 3002 | 3003 |
|
| 3003 | 3004 |
sub like {
|
| 3004 |
$main::lxdebug->enter_sub(); |
|
| 3005 |
|
|
| 3006 | 3005 |
my ($self, $string) = @_; |
| 3007 | 3006 |
|
| 3008 |
if ($string !~ /%/) {
|
|
| 3009 |
$string = "%$string%"; |
|
| 3010 |
} |
|
| 3011 |
|
|
| 3012 |
$string =~ s/\'/\'\'/g; |
|
| 3013 |
|
|
| 3014 |
$main::lxdebug->leave_sub(); |
|
| 3015 |
|
|
| 3016 |
return $string; |
|
| 3007 |
return "%" . SL::Util::trim($string // '') . "%"; |
|
| 3017 | 3008 |
} |
| 3018 | 3009 |
|
| 3019 | 3010 |
sub redo_rows {
|
Auch abrufbar als: Unified diff
Einkaufs-/Verkaufssuchen: bei Textfeldern führende/anhängende Whitespaces entfernen