Revision 04c85293
Von Sven Schöling vor mehr als 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
return $str;
|
||
|
}
|
||
|
|
||
|
sub quote_db_date {
|
||
|
$main::lxdebug->enter_sub(2) and my ($self, $str) = @_;
|
||
|
$main::lxdebug->leave_sub(2) and return "NULL" unless defined $str;
|
||
|
$main::lxdebug->leave_sub(2) and return "current_date" if $str =~ /current_date/;
|
||
|
$str =~ s/'/''/g;
|
||
|
$main::lxdebug->leave_sub(2) and return "'$str'";
|
||
|
}
|
||
|
|
||
|
|
||
|
sub hide_form {
|
||
|
my $self = shift;
|
||
|
|
||
Auch abrufbar als: Unified diff
quote_db_date verschoben nach DBUtils