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