Bug 2505 - enable Perl warnings in all modules and scripts

[koha_gimpoz] / tags / review.pl

diff --git a/tags/review.pl b/tags/review.pl
index 7b846b0..8ea282d 100755 (executable)
--- a/tags/review.pl
+++ b/tags/review.pl
@@ -197,6 +197,9 @@ if ($filter = $input->param('approved_by')) {       # borrowernumber from link
 }
 $debug and print STDERR "filters: " . Dumper(\%filters);
 my $tagloop = get_approval_rows(\%filters);
+for ( @{$tagloop} ) {
+    $_->{date_approved} = format_date( $_->{date_approved} );
+}
 my $qstring = $input->query_string;
 $qstring =~ s/([&;])*\blimit=\d+//;            # remove pagination var
 $qstring =~ s/^;+//;                                   # remove leading delims