From f26bf903de754ec4904b9215749813630b5ce9c7 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Thu, 13 Aug 2009 20:31:39 -0400 Subject: [PATCH] Bug 2505: Enabled warnings in opac-topissues.pl Fixed resulting warnings and fixed a small bug with the timeLimit drop-down box. It would not retain its value on subsequent pages if 'no Limit' was selected as an option. Signed-off-by: Galen Charlton Signed-off-by: Chris Cormack --- .../prog/en/modules/opac-topissues.tmpl | 22 +++++++++++-------- opac/opac-topissues.pl | 19 ++++++++++------ 2 files changed, 25 insertions(+), 16 deletions(-) diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/opac-topissues.tmpl b/koha-tmpl/opac-tmpl/prog/en/modules/opac-topissues.tmpl index 3208fecb16..36ba710ba1 100644 --- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-topissues.tmpl +++ b/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) { - \ No newline at end of file + diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl index ee79a21953..48d1c6cadc 100755 --- a/opac/opac-topissues.pl +++ b/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,8 +54,8 @@ 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; $whereclause .= ' AND items.homebranch='.$dbh->quote($branch) if ($branch); @@ -103,12 +105,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, timeLimitFinite => $timeLimit, results_loop => \@results, @@ -131,10 +134,12 @@ $template->param( branchloop => \@branch_loop, "mylibraryfirst"=>C4::Context->pr #doctype $itemtypes = GetItemTypes; my @itemtypeloop; -foreach my $thisitemtype (keys %$itemtypes) { +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; } -- 2.39.5