Lines 52-59
my $id = $input->param('id');
Link Here
|
52 |
|
52 |
|
53 |
if ( $mode eq 'job_add' ) { |
53 |
if ( $mode eq 'job_add' ) { |
54 |
|
54 |
|
55 |
my $startdate = dt_from_string( scalar $input->param('startdate') )->ymd; |
55 |
my $startdate = dt_from_string( scalar $input->param('startdate'), 'iso' )->ymd; |
56 |
|
56 |
|
|
|
57 |
# Formatting it for Schedule::At |
58 |
$startdate = join('', (split /-/, $startdate)); |
57 |
my $starttime = $input->param('starttime'); |
59 |
my $starttime = $input->param('starttime'); |
58 |
$starttime =~ s/\://g; |
60 |
$starttime =~ s/\://g; |
59 |
my $start = $startdate . $starttime; |
61 |
my $start = $startdate . $starttime; |
60 |
- |
|
|