#!/usr/bin/perl
# Copyright 2010 BibLibre
+# Copyright 2011 MJ Ray and software.coop
#
# This file is part of Koha.
#
if ($do_it) {
my @data;
- my $results = GetLogs($datefrom,$dateto,$user,\@modules,\@action,$object,$info);
+ my ($results,$modules,$action);
+ if ($action[0] ne '') { $action = \@action; } # match All means no limit
+ if ($modules[0] ne '') { $modules = \@modules; } # match All means no limit
+ $results = GetLogs($datefrom,$dateto,$user,$modules,$action,$object,$info);
@data=@$results;
my $total = scalar @data;
foreach my $result (@data){