Revision 635dd08d
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 239 | 239 |
return $str; |
| 240 | 240 |
} |
| 241 | 241 |
|
| 242 |
sub quote_db_date {
|
|
| 243 |
$main::lxdebug->enter_sub(2) and my ($self, $str) = @_; |
|
| 244 |
$main::lxdebug->leave_sub(2) and return "NULL" unless defined $str; |
|
| 245 |
$main::lxdebug->leave_sub(2) and return "current_date" if $str =~ /current_date/; |
|
| 246 |
$str =~ s/'/''/g; |
|
| 247 |
$main::lxdebug->leave_sub(2) and return "'$str'"; |
|
| 248 |
} |
|
| 249 |
|
|
| 250 |
|
|
| 242 | 251 |
sub hide_form {
|
| 243 | 252 |
my $self = shift; |
| 244 | 253 |
|
Auch abrufbar als: Unified diff
Quoting Funktion für Datumsangaben in sql queries.
Beherrscht:
- NULL fuer nicht definierte Werte
- current_date als Schlüsselwort
- Standardquoting fuer tainted strings (übernommen aus DBI.pm)