|
Lines 127-133
elsif ($op eq 'add') {
Link Here
|
| 127 |
$maxonsiteissueqty = undef if $maxonsiteissueqty !~ /^\d+/; |
127 |
$maxonsiteissueqty = undef if $maxonsiteissueqty !~ /^\d+/; |
| 128 |
my $issuelength = $input->param('issuelength'); |
128 |
my $issuelength = $input->param('issuelength'); |
| 129 |
my $lengthunit = $input->param('lengthunit'); |
129 |
my $lengthunit = $input->param('lengthunit'); |
| 130 |
my $hardduedate = $input->param('hardduedate'); |
130 |
my $hardduedate = $input->param('hardduedate') || undef; |
| 131 |
$hardduedate = eval { dt_from_string( $input->param('hardduedate') ) } if ( $hardduedate ); |
131 |
$hardduedate = eval { dt_from_string( $input->param('hardduedate') ) } if ( $hardduedate ); |
| 132 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
132 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
| 133 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
133 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
| 134 |
- |
|
|