X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=tools%2Fscheduler.pl;h=99210ac40949f9ba6debcec259974a5599cfbfac;hb=b4f5fee48cccec9f1fe6f403333f11ae0349d8e7;hp=ad2f5a3c2a756c67b49df7750b1eb0cb3093820a;hpb=e3e84a747f6aa415a390bf21a130f740fdbf5533;p=koha.git diff --git a/tools/scheduler.pl b/tools/scheduler.pl index ad2f5a3c2a..99210ac409 100755 --- a/tools/scheduler.pl +++ b/tools/scheduler.pl @@ -13,14 +13,15 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +#use warnings; FIXME - Bug 2505 use C4::Context; use C4::Scheduler; -use C4::Reports; +use C4::Reports::Guided; use C4::Auth; use CGI; use C4::Output; @@ -52,8 +53,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; @@ -103,8 +109,6 @@ $template->param( JOBS => \@jobloop ); my $time = localtime(time); $template->param( 'time' => $time ); $template->param( - DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), - dateformat => C4::Dates->new()->format(), debug => $debug, ); output_html_with_http_headers $input, $cookie, $template->output;