From ee0b0fca49f15e46d2b008feef0fa6dd021ca9cb Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Fri, 16 Oct 2009 11:03:27 +0200
Subject: [PATCH] MT 2068 : Fixed scheduling guided reports

---
 tools/scheduler.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tools/scheduler.pl b/tools/scheduler.pl
index e985bd3b4b..5fae73d613 100755
--- a/tools/scheduler.pl
+++ b/tools/scheduler.pl
@@ -52,8 +52,13 @@ my $mode = $input->param('mode');
 my $id   = $input->param('id');
 
 if ( $mode eq 'job_add' ) {
-    my $startdate =
-      join( '', ( split m|/|, $input->param('startdate') )[ 2, 0, 1 ] );
+
+    # Retrieving the date according to the dateformat syspref
+    my $c4date = C4::Dates->new($input->param('startdate'));
+
+    # Formatting it for Schedule::At
+    my $startdate = join('', (split /-/, $c4date->output("iso")));
+
     my $starttime = $input->param('starttime');
     my $recurring = $input->param('recurring');
     $starttime =~ s/\://g;
-- 
2.39.5