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 |
- |
|
|