|
Lines 140-145
elsif ($op eq 'add') {
Link Here
|
| 140 |
$maxonsiteissueqty =~ s/\s//g; |
140 |
$maxonsiteissueqty =~ s/\s//g; |
| 141 |
$maxonsiteissueqty = undef if $maxonsiteissueqty !~ /^\d+/; |
141 |
$maxonsiteissueqty = undef if $maxonsiteissueqty !~ /^\d+/; |
| 142 |
my $issuelength = $input->param('issuelength'); |
142 |
my $issuelength = $input->param('issuelength'); |
|
|
143 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
| 143 |
my $lengthunit = $input->param('lengthunit'); |
144 |
my $lengthunit = $input->param('lengthunit'); |
| 144 |
my $hardduedate = $input->param('hardduedate') || undef; |
145 |
my $hardduedate = $input->param('hardduedate') || undef; |
| 145 |
$hardduedate = eval { dt_from_string( $input->param('hardduedate') ) } if ( $hardduedate ); |
146 |
$hardduedate = eval { dt_from_string( $input->param('hardduedate') ) } if ( $hardduedate ); |
| 146 |
- |
|
|