X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1d089d50f0f504b227dabbae611d9f028cc47656..9e06d0e40cb328336d6e7604ec06387a0e3b1ea7:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 53324c6c5..fd07f5558 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1419,6 +1419,21 @@ sub get_standard_dbh {
   return $standard_dbh;
 }
 
+sub date_closed {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $date, $myconfig) = @_;
+  my $dbh = $self->dbconnect($myconfig);
+
+  my $query = "SELECT 1 FROM defaults WHERE ? < closedto";
+  my $sth = prepare_execute_query($self, $dbh, $query, $date);
+  my ($closed) = $sth->fetchrow_array;
+
+  $main::lxdebug->leave_sub();
+
+  return $closed;
+}
+
 sub update_balance {
   $main::lxdebug->enter_sub();