|
Lines 87-107
elsif ( $op eq 'add_validate' ) {
Link Here
|
| 87 |
|
87 |
|
| 88 |
my $expirationdate; |
88 |
my $expirationdate; |
| 89 |
if ( $cgi->param('expirationdate') ) { |
89 |
if ( $cgi->param('expirationdate') ) { |
| 90 |
$expirationdate = output_pref( |
90 |
$expirationdate = dt_from_string( scalar $cgi->param('expirationdate') ); |
| 91 |
{ |
|
|
| 92 |
dt => dt_from_string( scalar $cgi->param('expirationdate') ), |
| 93 |
dateformat => 'iso', |
| 94 |
dateonly => 1 |
| 95 |
} |
| 96 |
); |
| 97 |
} |
91 |
} |
| 98 |
my $published_on = output_pref( |
92 |
my $published_on = dt_from_string( scalar $cgi->param('published_on') ); |
| 99 |
{ |
|
|
| 100 |
dt => dt_from_string( scalar $cgi->param('published_on') ), |
| 101 |
dateformat => 'iso', |
| 102 |
dateonly => 1 |
| 103 |
} |
| 104 |
); |
| 105 |
my $number = $cgi->param('number'); |
93 |
my $number = $cgi->param('number'); |
| 106 |
|
94 |
|
| 107 |
my $success = 1; |
95 |
my $success = 1; |
| 108 |
- |
|
|