From 8c38f1661d378e1eb5a59041becbbb9c529ef732 Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Tue, 3 Dec 2013 15:01:49 +0100 Subject: [PATCH] Bug 11331 : corrects csv export for viewlog.pl (add newlines, string separator and same column as screen output) --- tools/viewlog.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/tools/viewlog.pl b/tools/viewlog.pl index 67ce7dd..dd9df94 100755 --- a/tools/viewlog.pl +++ b/tools/viewlog.pl @@ -157,10 +157,12 @@ if ($do_it) { my $sep = C4::Context->preference("delimiter"); foreach my $line (@data) { #next unless $modules[0] eq "catalogue"; - foreach (qw(timestamp firstname surname action info title author)) { - print $line->{$_} . $sep; - } - } + #foreach (qw(timestamp firstname surname action info title author)) { + foreach (qw(timestamp user module action object info )) { + print "\"".$line->{$_}."\"". $sep; + } + print "\n"; + } } exit; } else { -- 1.7.10.4