my $template = gettemplate("intranet-main.tmpl");
-print "Content-Type: text/html\n\n", $template->output;
+print $query->header(-cookie => $cookie), $template->output;
#!/usr/bin/perl
-# written 10/5/2002 by Paul
+# $Id$
# Copyright 2000-2002 Katipo Communications
#
use C4::Output;
my $input = new CGI;
+my $plugin_name=$input->param("plugin_name");
my $plugin_name="value_builder/".$input->param("plugin_name");
require $plugin_name;
-&plugin($input);
+&plugin($input);
\ No newline at end of file
use C4::Context;
use HTML::Template;
use C4::Search;
-#use C4::Circulation::Circ2;
use C4::Output;
-#use C4::Biblio;
-
+use C4::Authorities;
# get all the data ....
my %env;
my $id = $input->param('id');
my $category = $input->param('category');
my $index= $input->param('index');
+my $insert = $input->param('insert');
my $dbh = C4::Context->dbh;
$result = $freelib_text;
}
}
+if ($op eq "add") {
+ newauthority($dbh,$category,$insert,$insert,'',1,'');
+ $search_string=$insert;
+}
my $template = gettemplate("thesaurus_popup.tmpl",0);
# /search thesaurus terms starting by search_string
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'");
- $sti->execute;
+# my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where freelib like '".$search_string."%' and category ='$category'");
+ my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where match (category,freelib) AGAINST ('$search_string') and category ='$category'");
+ $sti->execute;
while (my $line=$sti->fetchrow_hashref) {
$stdlib{$line->{'id'}} = "$line->{'freelib'}";
push(@freelib,$line->{'id'});