Lines 157-166
if ($do_it) {
Link Here
|
157 |
my $sep = C4::Context->preference("delimiter"); |
157 |
my $sep = C4::Context->preference("delimiter"); |
158 |
foreach my $line (@data) { |
158 |
foreach my $line (@data) { |
159 |
#next unless $modules[0] eq "catalogue"; |
159 |
#next unless $modules[0] eq "catalogue"; |
160 |
foreach (qw(timestamp firstname surname action info title author)) { |
160 |
#foreach (qw(timestamp firstname surname action info title author)) { |
161 |
print $line->{$_} . $sep; |
161 |
foreach (qw(timestamp user module action object info )) { |
162 |
} |
162 |
print "\"".$line->{$_}."\"". $sep; |
163 |
} |
163 |
} |
|
|
164 |
print "\n"; |
165 |
} |
164 |
} |
166 |
} |
165 |
exit; |
167 |
exit; |
166 |
} else { |
168 |
} else { |
167 |
- |
|
|