Revision 88dea78e
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 1 | 1 |
package SL::DBUtils; |
| 2 | 2 |
|
| 3 |
use SL::Util qw(trim); |
|
| 4 |
|
|
| 3 | 5 |
require Exporter; |
| 4 | 6 |
our @ISA = qw(Exporter); |
| 5 | 7 |
|
| ... | ... | |
| 30 | 32 |
|
| 31 | 33 |
sub conv_date {
|
| 32 | 34 |
my ($value) = @_; |
| 33 |
return (defined($value) && "$value" ne "") ? $value : undef; |
|
| 35 |
return undef if !defined $value; |
|
| 36 |
$value = trim($value); |
|
| 37 |
return $value eq "" ? undef : $value; |
|
| 34 | 38 |
} |
| 35 | 39 |
|
| 36 | 40 |
sub conv_dateq {
|
Auch abrufbar als: Unified diff
Einkaufs-/Verkaufssuchen: bei Textfeldern führende/anhängende Whitespaces entfernen