#!/usr/bin/perl
# Copyright 2010 BibLibre
+# Copyright 2011 MJ Ray and software.coop
#
# This file is part of Koha.
#
address => $data->{'address'},
address2 => $data->{'address2'},
city => $data->{'city'},
- zipcode => $data->{'zipcode'},
+ state => $data->{'state'},
+ zipcode => $data->{'zipcode'},
phone => $data->{'phone'},
phonepro => $data->{'phonepro'},
email => $data->{'email'},
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){