Revision 04c85293
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 3 | 3 |
require Exporter; |
| 4 | 4 |
@ISA = qw(Exporter); |
| 5 | 5 |
|
| 6 |
@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement dump_query); |
|
| 6 |
@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement dump_query quote_db_date);
|
|
| 7 | 7 |
|
| 8 | 8 |
sub conv_i {
|
| 9 | 9 |
my ($value, $default) = @_; |
| ... | ... | |
| 74 | 74 |
$main::lxdebug->message($level, $msg . $query); |
| 75 | 75 |
} |
| 76 | 76 |
|
| 77 |
sub quote_db_date {
|
|
| 78 |
my ($str) = @_; |
|
| 79 |
return "NULL" unless defined $str; |
|
| 80 |
return "current_date" if $str =~ /current_date/; |
|
| 81 |
$str =~ s/'/''/g; |
|
| 82 |
return "'$str'"; |
|
| 83 |
} |
|
| 84 |
|
|
| 77 | 85 |
1; |
Auch abrufbar als: Unified diff
quote_db_date verschoben nach DBUtils