From 401d1994ee835a15e0c4cf0fe1030b9c16c7a610 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 28 Oct 2015 08:41:19 +0000 Subject: [PATCH] Bug 14931: (qa followu-up) small improvements - Avoid 1 call to dt_from_string in some cases - Do not use $_ Signed-off-by: Jonathan Druart --- admin/aqcontract.pl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl index 8f6bf30..a191cd8 100755 --- a/admin/aqcontract.pl +++ b/admin/aqcontract.pl @@ -94,10 +94,12 @@ elsif ( $op eq 'add_validate' ) { my $is_a_modif = $input->param("is_a_modif"); my $contractstart_dt = eval { dt_from_string( $input->param('contractstartdate') ); }; - $contractstart_dt = dt_from_string if ( ! $contractstart_dt ); - my $contractend_dt = eval { dt_from_string( $input->param('contractenddate') ); }; - $contractend_dt = dt_from_string if ( ! $contractend_dt ); + unless ( $contractstart_dt and $contractend_dt ) { + my $today = dt_from_string; + $contractstart_dt ||= $today; + $contractend_dt ||= $today; + } if ( $is_a_modif ) { ModContract({ @@ -161,9 +163,9 @@ if ( $op eq 'list' ) { my @contracts = @{GetContracts( { booksellerid => $booksellerid } )}; # format dates - for ( @contracts ) { - $$_{contractstartdate} = output_pref({ dt => dt_from_string( $$_{contractstartdate} ), dateonly => 1 }); - $$_{contractenddate} = output_pref({ dt => dt_from_string( $$_{contractenddate} ), dateonly => 1 }), + for my $contract ( @contracts ) { + $contract->{contractstartdate} = output_pref({ dt => dt_from_string( $contract->{contractstartdate} ), dateonly => 1 }); + $contract->{contractenddate} = output_pref({ dt => dt_from_string( $contract->{contractenddate} ), dateonly => 1 }), } $template->param(loop => \@contracts); -- 2.1.0