@@ -, +, @@ --- .../opac-tmpl/prog/en/modules/opac-topissues.tmpl | 22 +++++++++++-------- opac/opac-topissues.pl | 21 +++++++++++------- 2 files changed, 26 insertions(+), 17 deletions(-) --- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-topissues.tmpl +++ a/koha-tmpl/opac-tmpl/prog/en/modules/opac-topissues.tmpl @@ -45,8 +45,8 @@ function Dopop(link) { at - - in the past months + + in the past months of all time @@ -90,9 +90,11 @@ function Dopop(link) { @@ -100,9 +102,11 @@ function Dopop(link) {
  • @@ -129,4 +133,4 @@ function Dopop(link) { - + --- a/opac/opac-topissues.pl +++ a/opac/opac-topissues.pl @@ -19,6 +19,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; + use CGI; use C4::Auth; use C4::Context; @@ -52,14 +54,14 @@ my ($template, $borrowernumber, $cookie) my $dbh = C4::Context->dbh; # Displaying results my $limit = $input->param('limit') || 10; -my $branch = $input->param('branch'); -my $itemtype = $input->param('itemtype'); +my $branch = $input->param('branch') || ''; +my $itemtype = $input->param('itemtype') || ''; my $timeLimit = $input->param('timeLimit') || 3; -my $whereclause; +my $whereclause = ''; $whereclause .= 'items.homebranch='.$dbh->quote($branch)." AND " if ($branch); $whereclause .= 'biblioitems.itemtype='.$dbh->quote($itemtype)." AND " if $itemtype; $whereclause .= ' TO_DAYS(NOW()) - TO_DAYS(biblio.datecreated) <= '.($timeLimit*30).' AND ' if $timeLimit < 999; -$whereclause =~ s/ AND $//; +$whereclause =~ s/ AND $// if $whereclause; $whereclause = " WHERE ".$whereclause if $whereclause; my $query = "SELECT datecreated, biblio.biblionumber, title, @@ -84,12 +86,13 @@ while (my $line= $sth->fetchrow_hashref) { push @results, $line; } -if($timeLimit eq 999){ $timeLimit = 0 }; +my $timeLimitFinite = $timeLimit; +if($timeLimit eq 999){ $timeLimitFinite = 0 }; $template->param(do_it => 1, limit => $limit, - branch => $branches->{$branch}->{branchname}, - itemtype => $itemtypes->{$itemtype}->{description}, + branch => $branches->{$branch}->{branchname} || 'all locations', + itemtype => $itemtypes->{$itemtype}->{description} || 'item types', timeLimit => $timeLimit, results_loop => \@results, ); @@ -100,9 +103,11 @@ $template->param( branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'} $itemtypes = GetItemTypes; my @itemtypeloop; foreach my $thisitemtype (sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'}} keys %$itemtypes) { + my $selected = 1 if $thisitemtype eq $itemtype; my %row =(value => $thisitemtype, description => $itemtypes->{$thisitemtype}->{'description'}, - ); + selected => $selected, + ); push @itemtypeloop, \%row; } --