From f6cfcd933dac121867523846fa23eca5c0965ee1 Mon Sep 17 00:00:00 2001 From: Nahuel Angelinetti Date: Thu, 27 Nov 2008 17:39:12 +0100 Subject: [PATCH] No more used since a while. Signed-off-by: Galen Charlton --- cataloguing/thesaurus_popup.pl | 121 --------------------------------- 1 file changed, 121 deletions(-) delete mode 100755 cataloguing/thesaurus_popup.pl diff --git a/cataloguing/thesaurus_popup.pl b/cataloguing/thesaurus_popup.pl deleted file mode 100755 index 1dd3fca3ec..0000000000 --- a/cataloguing/thesaurus_popup.pl +++ /dev/null @@ -1,121 +0,0 @@ -#!/usr/bin/perl - -# written 10/5/2002 by Paul -# build result field using bibliothesaurus table - - -# 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., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use strict; -use CGI; -use C4::Auth; -use C4::Context; -use C4::Output; -use C4::Authorities; -# get all the data .... -my $input = new CGI; -my $result = $input->param('result'); -my $search_string= $input->param('search_string'); -$search_string = $result unless ($search_string); -my $op = $input->param('op'); -my $id = $input->param('id'); -my $category = $input->param('category'); -my $index= $input->param('index'); -my $insert = $input->param('insert'); -my $nohierarchy = $input->param('nohierarchy'); # if 1, just show the last part of entry (Marseille). If 0, show everything (Europe -- France --Marseille) -my $dbh = C4::Context->dbh; - -# make the page ... -#print $input->header; -if ($op eq "select") { - my $sti = $dbh->prepare("select father,stdlib from bibliothesaurus where id=?"); - $sti->execute($id); - my ($father,$freelib_text) = $sti->fetchrow_array; - if (length($result)>0) { - if ($nohierarchy) { - $result .= "|$freelib_text"; - } else { - $result .= "|$father $freelib_text"; - } - } else { - if ($nohierarchy) { - $result = "$freelib_text"; - } else { - $result = "$father $freelib_text"; - } - } -} -if ($op eq "add") { - newauthority($dbh,$category,$insert,$insert,'',1,''); - $search_string=$insert; -} -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/thesaurus_popup.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); -# /search thesaurus terms starting by search_string -my @freelib; -my %stdlib; -my $select_list; -if ($search_string) { -# my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where freelib like '".$search_string."%' and category ='$category'"); - my $sti=$dbh->prepare("select id,freelib,father from bibliothesaurus where match (category,freelib) AGAINST (?) and category =?"); - $sti->execute($search_string,$category); - while (my $line=$sti->fetchrow_hashref) { - if ($nohierarchy) { - $stdlib{$line->{'id'}} = "$line->{'freelib'}"; - } else { - $stdlib{$line->{'id'}} = "$line->{'father'} $line->{'freelib'}"; - } - push(@freelib,$line->{'id'}); - } - $select_list= CGI::scrolling_list( -name=>'id', - -values=> \@freelib, - -default=> "", - -size=>1, - -multiple=>0, - -labels=> \%stdlib - ); -} -my @x = SearchDeeper('',$category,$search_string); -#my @son; -#foreach (my $value @$x) { -# warn \@$x[$value]->{'stdlib'}; -#} -my $dig_list= CGI::scrolling_list( -name=>'search_string', - -values=> \@x, - -default=> "", - -size=>1, - -multiple=>0, - ); - -$template->param(select_list => $select_list, - search_string => $search_string, - dig_list => $dig_list, - result => $result, - category => $category, - index => $index, - nohierarchy => $nohierarchy, - ); -output_html_with_http_headers $input, $cookie, $template->output; - - -- 2.39.5