4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use C4::AuthoritiesMarc;
31 ###TODO To rewrite in order to use SearchAuthorities
33 sub plugin_javascript {
34 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
35 my $function_name= $field_number;
36 #---- build editors list.
37 #---- the editor list is built from the "EDITORS" thesaurus
38 #---- this thesaurus category must be filled as follow :
40 #---- 200$b for editor
41 #---- 200$c (repeated) for collections
45 <script type=\"text/javascript\">
46 function Clic$function_name(subfield_managed) {
47 defaultvalue=escape(document.getElementById(\"$field_number\").value);
48 newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&index=\"+subfield_managed,\"unimarc_225a\",'width=500,height=600,toolbar=false,scrollbars=yes');
52 return ($function_name,$res);
58 my $op = $query->param('op');
59 my $authtypecode = $query->param('authtypecode');
60 my $index = $query->param('index');
61 my $category = $query->param('category');
62 my $resultstring = $query->param('result');
63 my $dbh = C4::Context->dbh;
65 my $startfrom = $query->param('startfrom') // 1; # Page number starting at 1
66 my ($template, $loggedinuser, $cookie);
67 my $resultsperpage = $query->param('resultsperpage') // 20; # TODO hardcoded
68 my $offset = ( $startfrom - 1 ) * $resultsperpage;
70 if ($op eq "do_search") {
71 my @marclist = $query->multi_param('marclist');
72 my @and_or = $query->multi_param('and_or');
73 my @excluding = $query->multi_param('excluding');
74 my @operator = $query->multi_param('operator');
75 my @value = $query->multi_param('value');
76 my $orderby = $query->param('orderby');
78 # builds tag and subfield arrays
81 my ($results,$total) = SearchAuthorities( \@tags,\@and_or,
82 \@excluding, \@operator, \@value,
83 $offset, $resultsperpage,$authtypecode, $orderby);
85 # Getting the $b if it exists
87 my $authority = GetAuthority($_->{authid});
88 if ($authority->field('200') and $authority->subfield('200','b')) {
89 $_->{to_report} = $authority->subfield('200','b');
93 ($template, $loggedinuser, $cookie)
94 = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_210c.tt",
98 flagsrequired => {editcatalogue => '*'},
102 # Results displayed in current page
103 my $from = $offset + 1;
104 my $to = ( $offset + $resultsperpage > $total ) ? $total : $offset + $resultsperpage;
106 my $link="../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&authtypecode=EDITORS&".join("&",map {"value=".$_} @value)."&op=do_search&type=intranet&index=$index";
108 $template->param(result => $results) if $results;
109 $template->param('index' => scalar $query->param('index'));
114 authtypecode =>$authtypecode,
115 resultstring =>$value[0],
116 pagination_bar => pagination_bar(
118 getnbpages($total, $resultsperpage),
124 ($template, $loggedinuser, $cookie)
125 = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_210c.tt",
128 authnotrequired => 0,
129 flagsrequired => {editcatalogue => '*'},
133 $template->param(index => $index,
134 resultstring => $resultstring
138 $template->param(category => $category);
141 output_html_with_http_headers $query, $cookie, $template->output;