- my $results = GetLogs($datefrom,$dateto,$user,$module,$action,$object,$info);
- my $total = scalar @$results;
- warn "Total records retrieved = $total";
- foreach my $result (@$results){
- if ($result->{'info'} eq 'item'){
+ my @data;
+ 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){
+ if ($result->{'info'} eq 'item'||$result->{module} eq "CIRCULATION"){