[Koha-cvs] koha thesaurus_popup.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/09/01 07:58:04

Removed files:
        .              : thesaurus_popup.pl 

Log message:
        thesaurus_popup.pl has moved from "." to "./cataloguing/"

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/thesaurus_popup.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.15&r2=0

Patches:
Index: thesaurus_popup.pl
===================================================================
RCS file: thesaurus_popup.pl
diff -N thesaurus_popup.pl
--- thesaurus_popup.pl  11 Feb 2004 08:35:31 -0000      1.15
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,126 +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 C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-use C4::Authorities;
-use C4::Interface::CGI::Output;
-# get all the data ....
-my %env;
-
-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 => "thesaurus_popup.tmpl",
-                            query => $input,
-                            type => "intranet",
-                            authnotrequired => 0,
-                            flagsrequired => {parameters => 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=> address@hidden,
-                       -default=> "",
-                       -size=>1,
-                       -multiple=>0,
-                       -labels=> \%stdlib
-                       );
-}
-my @x = SearchDeeper('',$category,$search_string);
-#my @son;
-#foreach (my $value @$x) {
-#      warn address@hidden>{'stdlib'};
-#}
-my $dig_list= CGI::scrolling_list( -name=>'search_string',
-               -values=> address@hidden,
-               -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;
-
-