X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/18942bd70d66bd2348c6550887bc2994dfcaf358..635dd08dccc18b6eb5645d55ab4adf3ab8216f6a:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 0e59786d9..6a73aa415 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -239,6 +239,15 @@ sub quote_html {
   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;