X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Fopac-topissues.pl;h=95291d0e338d8487b0b179ca63a0b97a59e820e6;hb=488a3d6fed57b4e0d773157ee4a6ab7e4775e7a4;hp=c0c26c8e126c6e39fb36c8dd123341be3b1bdba0;hpb=f8e9fb6445dadbdef91e13a253c9c6bcb75e0eec;p=koha.git diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl index c0c26c8e12..95291d0e33 100755 --- a/opac/opac-topissues.pl +++ b/opac/opac-topissues.pl @@ -1,8 +1,8 @@ #!/usr/bin/perl -# $Id$ # Copyright 2000-2002 Katipo Communications +# Parts Copyright Catalyst IT 2011 # # This file is part of Koha. # @@ -15,19 +15,20 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; -use C4::Auth; +use warnings; + use CGI; +use C4::Auth; use C4::Context; use C4::Search; use C4::Output; use C4::Koha; use C4::Branch; -use C4::Interface::CGI::Output; use Date::Manip; =head1 NAME @@ -36,12 +37,16 @@ plugin that shows a stats on borrowers =head1 DESCRIPTION - -=over2 - =cut my $input = new CGI; + +# if OpacTopissue is disabled, leave immediately +if ( ! C4::Context->preference('OpacTopissue') ) { + print $input->redirect("/cgi-bin/koha/errors/404.pl"); + exit; +} + my $branches = GetBranches(); my $itemtypes = GetItemTypes(); @@ -49,72 +54,119 @@ my ($template, $borrowernumber, $cookie) = get_template_and_user({template_name => 'opac-topissues.tmpl', query => $input, type => "opac", - authnotrequired => 1, + authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), debug => 1, }); my $dbh = C4::Context->dbh; # Displaying results -my $limit = $input->param('limit') || 10; -my $branch = $input->param('branch'); -my $itemtype = $input->param('itemtype'); +my $limit = $input->param('limit'); +$limit = 10 unless ($limit && $limit =~ /^\d+$/); # control user input for SQL query +$limit = 100 if $limit > 100; +my $branch = $input->param('branch') || ''; +my $itemtype = $input->param('itemtype') || ''; my $timeLimit = $input->param('timeLimit') || 3; -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.timestamp) <= '.$timeLimit*30 if $timeLimit; -$whereclause =~ s/ AND $//; -$whereclause = " WHERE ".$whereclause if $whereclause; -my $query = "SELECT biblio.timestamp, biblio.biblionumber, title, - author, sum( items.issues ) AS tot, biblioitems.itemtype, - biblioitems.publishercode,biblioitems.publicationyear, - itemtypes.description - FROM biblio - LEFT JOIN items USING (biblionumber) - LEFT JOIN biblioitems USING (biblionumber) - LEFT JOIN itemtypes ON itemtypes.itemtype = biblioitems.itemtype - $whereclause - GROUP BY biblio.biblionumber - ORDER BY tot DESC - LIMIT $limit - "; +my $advanced_search_types = C4::Context->preference('AdvancedSearchTypes'); + +my $whereclause = ''; +$whereclause .= ' AND items.homebranch='.$dbh->quote($branch) if ($branch); +$whereclause .= ' AND TO_DAYS(NOW()) - TO_DAYS(biblio.datecreated) <= '.($timeLimit*30) if $timeLimit < 999; +$whereclause =~ s/ AND $// if $whereclause; +my $query; + +if($advanced_search_types eq 'ccode'){ + $whereclause .= ' AND authorised_values.authorised_value='.$dbh->quote($itemtype) if $itemtype; + $query = "SELECT datecreated, biblio.biblionumber, title, + author, sum( items.issues ) AS tot, biblioitems.itemtype, + biblioitems.publishercode,biblioitems.publicationyear, + authorised_values.lib as description + FROM biblio + LEFT JOIN items USING (biblionumber) + LEFT JOIN biblioitems USING (biblionumber) + LEFT JOIN authorised_values ON items.ccode = authorised_values.authorised_value + WHERE 1 + $whereclause + AND authorised_values.category = 'ccode' + GROUP BY biblio.biblionumber + HAVING tot >0 + ORDER BY tot DESC + LIMIT ? + "; + $template->param(ccodesearch => 1); +}else{ + if ($itemtype){ + if (C4::Context->preference('item-level_itypes')){ + $whereclause .= ' AND items.itype = ' . $dbh->quote($itemtype); + } + else { + $whereclause .= ' AND biblioitems.itemtype='.$dbh->quote($itemtype); + } + } + $query = "SELECT datecreated, biblio.biblionumber, title, + author, sum( items.issues ) AS tot, biblioitems.itemtype, + biblioitems.publishercode,biblioitems.publicationyear, + itemtypes.description + FROM biblio + LEFT JOIN items USING (biblionumber) + LEFT JOIN biblioitems USING (biblionumber) + LEFT JOIN itemtypes ON itemtypes.itemtype = biblioitems.itemtype + WHERE 1 + $whereclause + GROUP BY biblio.biblionumber + HAVING tot >0 + ORDER BY tot DESC + LIMIT ? + "; + $template->param(itemtypesearch => 1); +} my $sth = $dbh->prepare($query); -$sth->execute(); +$sth->execute($limit); my @results; while (my $line= $sth->fetchrow_hashref) { push @results, $line; } +my $timeLimitFinite = $timeLimit; +if($timeLimit eq 999){ $timeLimitFinite = 0 }; + $template->param(do_it => 1, limit => $limit, branch => $branches->{$branch}->{branchname}, itemtype => $itemtypes->{$itemtype}->{description}, timeLimit => $timeLimit, + timeLimitFinite => $timeLimitFinite, results_loop => \@results, ); -my $branches = GetBranches; -my @branchloop; -foreach my $thisbranch (keys %$branches) { - my %row =(value => $thisbranch, - branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; -} - -#doctype -my $itemtypes = GetItemTypes; -my @itemtypeloop; -foreach my $thisitemtype (keys %$itemtypes) { - my %row =(value => $thisitemtype, - description => $itemtypes->{$thisitemtype}->{'description'}, - ); - push @itemtypeloop, \%row; +$template->param( branchloop => GetBranchesLoop(C4::Context->userenv?C4::Context->userenv->{'branch'}:'')); + +# the index parameter is different for item-level itemtypes +my $itype_or_itemtype = (C4::Context->preference("item-level_itypes"))?'itype':'itemtype'; +$itemtypes = GetItemTypes; +my @itemtypesloop; +if (!$advanced_search_types or $advanced_search_types eq 'itemtypes') { + foreach my $thisitemtype ( sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'} } keys %$itemtypes ) { + my %row =( value => $thisitemtype, + description => $itemtypes->{$thisitemtype}->{'description'}, + selected => $thisitemtype eq $itemtype, + ); + push @itemtypesloop, \%row; + } +} else { + my $advsearchtypes = GetAuthorisedValues($advanced_search_types, '', 'opac'); + for my $thisitemtype (@$advsearchtypes) { + my $selected; + $selected = 1 if $thisitemtype->{authorised_value} eq $itemtype; + my %row =( value => $thisitemtype->{authorised_value}, + selected => $thisitemtype eq $itemtype, + description => $thisitemtype->{'lib'}, + ); + push @itemtypesloop, \%row; + } } $template->param( - branchloop =>\@branchloop, - itemtypeloop =>\@itemtypeloop, + itemtypeloop =>\@itemtypesloop, ); output_html_with_http_headers $input, $cookie, $template->output;