@@ -, +, @@ from reports files - Run a saved report with date input and with date range input, e.g. - Verify that you are asked for date range or date and that the results are the same as without patch --- reports/borrowers_stats.pl | 3 --- reports/guided_reports.pl | 16 +++++++++++----- 2 files changed, 11 insertions(+), 8 deletions(-) --- a/reports/borrowers_stats.pl +++ a/reports/borrowers_stats.pl @@ -31,7 +31,6 @@ use C4::Output; use C4::Reports; use C4::Circulation; use C4::Members::AttributeTypes; -use C4::Dates qw/format_date format_date_in_iso/; use Date::Calc qw( Today Add_Delta_YM @@ -43,8 +42,6 @@ plugin that shows a stats on borrowers =head1 DESCRIPTION -=over 2 - =cut my $input = new CGI; --- a/reports/guided_reports.pl +++ a/reports/guided_reports.pl @@ -357,9 +357,13 @@ elsif ( $phase eq 'Choose these criteria' ) { my $tovalue = $input->param( "to_" . $crit . "_value" ); # If the range values are dates - if ($fromvalue =~ C4::Dates->regexp('syspref') && $tovalue =~ C4::Dates->regexp('syspref')) { - $fromvalue = C4::Dates->new($fromvalue)->output("iso"); - $tovalue = C4::Dates->new($tovalue)->output("iso"); + my $fromvalue_dt; + $fromvalue_dt = eval { dt_from_string( $fromvalue ); } if ( $fromvalue ); + my $tovalue_dt; + $tovalue_dt = eval { dt_from_string( $tovalue ); } if ($tovalue); + if ( $fromvalue_dt && $tovalue_dt ) { + $fromvalue = output_pref( { dt => dt_from_string( $fromvalue_dt ), dateonly => 1, dateformat => 'iso' } ); + $tovalue = output_pref( { dt => dt_from_string( $tovalue_dt ), dateonly => 1, dateformat => 'iso' } ); } if ($fromvalue && $tovalue) { @@ -369,8 +373,10 @@ elsif ( $phase eq 'Choose these criteria' ) { } else { # If value is a date - if ($value =~ C4::Dates->regexp('syspref')) { - $value = C4::Dates->new($value)->output("iso"); + my $value_dt; + $value_dt = eval { dt_from_string( $value ); } if ( $value ); + if ( $value_dt ) { + $value = output_pref( { dt => dt_from_string( $value_dt ), dateonly => 1, dateformat => 'iso' } ); } # don't escape runtime parameters, they'll be at runtime if ($value =~ /<<.*>>/) { --