View | Details | Raw Unified | Return to bug 13813
Collapse All | Expand All

(-)a/tools/scheduler.pl (-4 / +3 lines)
Lines 25-31 use C4::Reports::Guided; Link Here
25
use C4::Auth;
25
use C4::Auth;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Output;
27
use C4::Output;
28
use C4::Dates;
28
use Koha::DateUtils;;
29
29
30
use vars qw($debug);
30
use vars qw($debug);
31
31
Lines 62-71 my $id = $input->param('id'); Link Here
62
if ( $mode eq 'job_add' ) {
62
if ( $mode eq 'job_add' ) {
63
63
64
    # Retrieving the date according to the dateformat syspref
64
    # Retrieving the date according to the dateformat syspref
65
    my $c4date = C4::Dates->new($input->param('startdate'));
65
    my $c4date = output_pref({ dt => dt_from_string( $input->param('startdate') ), dateformat => 'iso', dateonly => 1 });
66
66
67
    # Formatting it for Schedule::At
67
    # Formatting it for Schedule::At
68
    my $startdate = join('', (split /-/, $c4date->output("iso")));
68
    my $startdate = join('', (split /-/, $c4date));
69
69
70
    my $starttime = $input->param('starttime');
70
    my $starttime = $input->param('starttime');
71
    $starttime =~ s/\://g;
71
    $starttime =~ s/\://g;
72
- 

Return to bug 13813