#!/usr/bin/perl
# written 10/5/2002 by Paul
-# build Subject field using bibliothesaurus table
+# build result field using bibliothesaurus table
# Copyright 2000-2002 Katipo Communications
# 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::Circulation::Circ2;
use C4::Output;
-
+use C4::Authorities;
+use C4::Interface::CGI::Output;
# get all the data ....
my %env;
my $input = new CGI;
-my $subject = $input->param('subject');
+my $result = $input->param('result');
my $search_string= $input->param('search_string');
+$search_string = $result unless ($search_string);
my $op = $input->param('op');
-my $freelib_text = $input->param('freelib_text');
-
+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;
+#print $input->header;
if ($op eq "select") {
- $subject .= "|$freelib_text";
+ 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;
}
-print <<"EOF";
- <html>
- <head>
- <title>Subject builder</title>
- </head>
- <body>
- <form name="f_pop" action="thesaurus_popup.pl" method="post">
- <textarea name="subject" rows=10 cols=60>$subject </textarea></br>
- <p><input type="text" name="search_string" value="$search_string">
- <input type="hidden" name="op" value="search">
- <input type="submit" value="Search"></p>
- </form>
-EOF
+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
- if ($search_string) {
- print '<form name="f2_pop" action="thesaurus_popup.pl" method="post">';
- print '<select name="freelib_text">';
- my $sti=$dbh->prepare("select freelib,stdlib from bibliothesaurus where freelib like '".$search_string."%'");
- $sti->execute;
- while (my $line=$sti->fetchrow_hashref) {
- print "<option value='$line->{'stdlib'}'>$line->{freelib}</option>";
+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'}";
}
- print <<"EOF";
- </select>
- <input type="hidden" name="op" value="select">
- <input type="hidden" name="subject" value="$subject">
- <input type="submit" name="OK" value="OK">
- </form>
-EOF
+ push(@freelib,$line->{'id'});
}
- print <<"EOF";
- <form name="f3_pop" onSubmit="javascript:report()">
- <input type="submit" value="END">
- </form>
- <script>
- function report() {
- alert("REPORT");
- opener.document.f.subject.value= document.f_pop.subject.value;
- self.close();
- return false;
- }
- </script>
- </body>
- </html>
-EOF
+ $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;
+
+
projects / koha.git / blobdiff