X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Fstopwords.pl;h=7a24af78f769894f138cdcc302a714a991b7b172;hb=d83a71d8e61fa8ef8a165f903d37efbc1bcb873d;hp=da465c8a92cd33b90b902323177f646ba7fae686;hpb=3096d756771d6f6c99cd75a16bf38bb1d7dc7cf0;p=koha.git diff --git a/admin/stopwords.pl b/admin/stopwords.pl index da465c8a92..7a24af78f7 100755 --- a/admin/stopwords.pl +++ b/admin/stopwords.pl @@ -1,5 +1,11 @@ #!/usr/bin/perl +#script to administer the stopwords table +#written 20/02/2002 by paul.poulain@free.fr +# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) + +# Copyright 2000-2002 Katipo Communications +# # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it under the @@ -11,161 +17,80 @@ # 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 -# -### -# -# script to administer the stopwords table -# -# - written on 2002/02/20 by paul.poulain@free.fr -# -# - experimentaly rewrittten on 2006/04/06 by Pierrick LE GALL (INEO media -# system) -# +# 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 warnings; use CGI; -use List::Util qw/min/; - -use C4::Koha; use C4::Context; use C4::Output; -use C4::Search; -use HTML::Template; use C4::Auth; -use C4::Interface::CGI::Output; sub StringSearch { - my ($searchstring) = @_; - - my $dbh = C4::Context->dbh; - $searchstring =~ s/\'/\\\'/g; - my @tokens = split(' ',$searchstring); - - my $query = ' -SELECT word - FROM stopwords - WHERE (word like ?) - ORDER BY word -'; - my $sth = $dbh->prepare($query); - $sth->execute($tokens[0].'%'); - my @results; - while (my $row = $sth->fetchrow_hashref) { - push(@results, $row->{word}); - } - $sth->finish; - - return @results; + my $sth = C4::Context->dbh->prepare(" + SELECT word FROM stopwords WHERE (word LIKE ?) ORDER BY word + "); + $sth->execute((shift || '') . "%"); + return $sth->fetchall_arrayref({}); } -my $dbh = C4::Context->dbh; -my $sth; -my $query; my $input = new CGI; my $searchfield = $input->param('searchfield'); -my $script_name="/cgi-bin/koha/admin/stopwords.pl"; +my $offset = $input->param('offset') || 0; +my $script_name = "/cgi-bin/koha/admin/stopwords.pl"; -my $pagesize = 40; -my $op = $input->param('op'); -$searchfield=~ s/\,//g; +my $pagesize = 20; +my $op = $input->param('op') || ''; my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "admin/stopwords.tmpl", - query => $input, - type => "intranet", - flagsrequired => {parameters => 1, management => 1}, - authnotrequired => 0, - debug => 1, - }); + query => $input, + type => "intranet", + flagsrequired => {parameters => 1}, + authnotrequired => 0, + debug => 1, + }); $template->param(script_name => $script_name, searchfield => $searchfield); -if ($input->param('add')) { - if ($input->param('word')) { - my @words = split / |,/, $input->param('word'); - - $query = ' -DELETE - FROM stopwords - WHERE word IN (?'.(',?' x scalar @words - 1).') -'; - $sth = $dbh->prepare($query); - $sth->execute(@words); - $sth->finish; - - $query = ' -INSERT - INTO stopwords - (word) - VALUES - (?)'.(',(?)' x scalar @words - 1).' -'; - $sth = $dbh->prepare($query); - $sth->execute(@words); - $sth->finish; - - $template->param(stopword_added => 1); - } -} -elsif ($input->param('deleteSelected')) { - if ($input->param('stopwords[]')) { - my @stopwords_loop = (); - - foreach my $word ($input->param('stopwords[]')) { - push @stopwords_loop, {word => $word}; - } - - $template->param( - delete_confirm => 1, - stopwords_to_delete => \@stopwords_loop, - ); - } -} -elsif ($input->param('confirmDeletion')) { - my @words = $input->param('confirmed_stopwords[]'); - - $query = ' -DELETE - FROM stopwords - WHERE word IN (?'.(',?' x scalar @words - 1).') -'; - $sth = $dbh->prepare($query); - $sth->execute(@words); - $sth->finish; - - $template->param(delete_confirmed => 1); -} - -my $page = $input->param('page') || 1; - -my @results = StringSearch($searchfield); -my @loop; - -my $first = ($page - 1) * $pagesize; - -# if we are on the last page, the number of the last word to display must -# not exceed the length of the results array -my $last = min( - $first + $pagesize - 1, - scalar(@results) - 1, -); - -foreach my $word (@results[$first .. $last]) { - push @loop, {word => $word}; +my $dbh = C4::Context->dbh; +if ($op eq 'add_form') { + $template->param(add_form => 1); +} elsif ($op eq 'add_validate') { + $template->param(add_validate => 1); + my @tab = split / |,/, $input->param('word'); + my $sth=$dbh->prepare("INSERT INTO stopwords (word) VALUES (?)"); + foreach my $insert_value (@tab) { + $sth->execute($insert_value); + } +} elsif ($op eq 'delete_confirm') { + $template->param(delete_confirm => 1); +} elsif ($op eq 'delete_confirmed') { + $template->param(delete_confirmed => 1); + my $sth=$dbh->prepare("delete from stopwords where word=?"); + $sth->execute($searchfield); +} else { # DEFAULT + $template->param(else => 1); + my $results = StringSearch($searchfield); + my $count = scalar(@$results); + my @loop; + # FIXME: limit and offset should get to the SQL query + for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ + push @loop, {word => $results->[$i]{'word'}}; + } + $template->param(loop => \@loop); + if ($offset > 0) { + $template->param(offsetgtzero => 1, + prevpage => $offset-$pagesize); + } + if ($offset+$pagesize < scalar(@$results)) { + $template->param(ltcount => 1, + nextpage => $offset+$pagesize); + } } -$template->param( - loop => \@loop, - pagination_bar => pagination_bar( - $script_name, - getnbpages(scalar @results, $pagesize), - $page, - 'page' - ) -); - output_html_with_http_headers $input, $cookie, $template->output; +