Koha › Suggestions

From 9753368626e631ebb06929278d408453186c2528 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Sat, 13 Nov 2010 22:37:10 -0500 Subject: [PATCH] bug 5405: remove disused script catalogue/suggest.pl Signed-off-by: Galen Charlton Signed-off-by: Chris Cormack --- catalogue/suggest.pl | 59 ------------------- .../prog/en/modules/catalogue/suggest.tmpl | 51 ---------------- 2 files changed, 110 deletions(-) delete mode 100755 catalogue/suggest.pl delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/suggest.tmpl diff --git a/catalogue/suggest.pl b/catalogue/suggest.pl deleted file mode 100755 index c348c76fb0..0000000000 --- a/catalogue/suggest.pl +++ /dev/null @@ -1,59 +0,0 @@ -#!/usr/bin/perl -# WARNING: 4-character tab stops here - -# 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 -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# 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., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -use strict; -#use warnings; FIXME - Bug 2505 - -use CGI; -use C4::Auth; - -use C4::Context; -use C4::Auth; -use C4::Output; -use C4::Biblio; -use C4::Acquisition; -use C4::Koha; # XXX subfield_is_koha_internal_p - -# Creates the list of active tags using the active MARC configuration -my $query=new CGI; -my $Q=$query->param('Q'); -my @words = split / /,$Q; -my $dbh = C4::Context->dbh; - -my $suggestions = findsuggestion($dbh,\@words); -my @loop_suggests; -foreach my $line (@$suggestions) { - my ($word,$suggestion,$count) = split /\|/,$line; - push @loop_suggests, { word => $word, suggestion =>$suggestion, count => $count }; -} - -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "catalogue/suggest.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 'edit_catalogue'}, - debug => 1, - }); -$template->param("loop" => \@loop_suggests, - ); - -output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/suggest.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/suggest.tmpl deleted file mode 100644 index ac1ae2b389..0000000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/suggest.tmpl +++ /dev/null @@ -1,51 +0,0 @@ - -Koha › Suggestions - - - - - -

- -

- - - - - - - - - - - - - - - -

Catalog Search
Initial word	Suggested	Used X times
	','')"> - -

- - - -

- - - \ No newline at end of file -- 2.39.5