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