3 # Converted to new plugin style (Bug 13437)
5 # Copyright Biblibre 2007 - CILEA 2011
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
39 my $function_name = $params->{id
};
41 <script type='text/javascript'>
42 function Click$function_name(event) {
43 defaultvalue=document.getElementById(event.data.id).value;
44 window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=\" + event.data.id + \"&result=\"+defaultvalue, 'tag_editor', 'width=900,height=700,toolbar=false,scrollbars=yes');
55 my $query = $params->{cgi
};
56 my $dbh = C4
::Context
->dbh;
57 my $op = $query->param('op');
58 # -- op could be equal to
62 my $type = $query->param('type');
63 my $startfrom = $query->param('startfrom');
64 $startfrom = 0 if ( !defined $startfrom );
65 my ( $template, $loggedinuser, $cookie );
68 if ( $op eq "fillinput" ) {
69 my $biblionumber = $query->param('biblionumber');
70 my $index = $query->param('index');
74 ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
75 { template_name
=> "cataloguing/value_builder/marc21_linking_section.tt",
79 flagsrequired
=> { editcatalogue
=> '*' },
85 $marcrecord = GetMarcBiblio
($biblionumber);
87 my $subfield_value_9 = $biblionumber;
88 my $subfield_value_0 = $biblionumber;
90 #my $subfield_value_0;
91 #$subfield_value_0 = $marcrecord->field('001')->data
92 # if $marcrecord->field('001');
94 if ( $marcrecord->field('001') ) {
95 $subfield_value_w = $marcrecord->field('001')->data;
97 $subfield_value_w = $biblionumber;
100 my $subfield_value_a;
101 my $subfield_value_c;
102 my $subfield_value_d;
103 my $subfield_value_e;
105 my $subfield_value_h;
107 my $subfield_value_i;
109 my $subfield_value_p;
111 my $subfield_value_t;
112 if ( $marcrecord->field('245') ) {
113 $subfield_value_t = $marcrecord->title();
116 my $subfield_value_u;
117 my $subfield_value_v;
118 my $subfield_value_x;
119 my $subfield_value_y;
120 my $subfield_value_z;
122 $subfield_value_x = $marcrecord->field('022')->subfield("a")
123 if ( $marcrecord->field('022') );
124 $subfield_value_z = $marcrecord->field('020')->subfield("a")
125 if ( $marcrecord->field('020') );
128 $subfield_value_9 =~ s/'/\\'/g;
129 $subfield_value_0 =~ s/'/\\'/g;
130 $subfield_value_a =~ s/'/\\'/g;
131 $subfield_value_c =~ s/'/\\'/g;
132 $subfield_value_d =~ s/'/\\'/g;
133 $subfield_value_e =~ s/'/\\'/g;
134 $subfield_value_h =~ s/'/\\'/g;
135 $subfield_value_i =~ s/'/\\'/g;
136 $subfield_value_p =~ s/'/\\'/g;
137 $subfield_value_t =~ s/'/\\'/g;
138 $subfield_value_u =~ s/'/\\'/g;
139 $subfield_value_v =~ s/'/\\'/g;
140 $subfield_value_w =~ s/'/\\'/g;
141 $subfield_value_x =~ s/'/\\'/g;
142 $subfield_value_y =~ s/'/\\'/g;
143 $subfield_value_z =~ s/'/\\'/g;
146 index => $query->param('index') . "",
147 biblionumber
=> $biblionumber ?
$biblionumber : "",
148 subfield_value_9
=> "$subfield_value_9",
149 subfield_value_0
=> "$subfield_value_0",
150 subfield_value_a
=> "$subfield_value_a",
151 subfield_value_c
=> "$subfield_value_c",
152 subfield_value_d
=> "$subfield_value_d",
153 subfield_value_e
=> "$subfield_value_e",
154 subfield_value_h
=> "$subfield_value_h",
155 subfield_value_i
=> "$subfield_value_i",
156 subfield_value_p
=> "$subfield_value_p",
157 subfield_value_t
=> "$subfield_value_t",
158 subfield_value_u
=> "$subfield_value_u",
159 subfield_value_v
=> "$subfield_value_v",
160 subfield_value_w
=> "$subfield_value_w",
161 subfield_value_x
=> "$subfield_value_x",
162 subfield_value_y
=> "$subfield_value_y",
163 subfield_value_z
=> "$subfield_value_z",
165 ###############################################################
166 } elsif ( $op eq "do_search" ) {
167 my $search = $query->param('search');
168 my $itype = $query->param('itype');
169 my $startfrom = $query->param('startfrom');
170 my $resultsperpage = $query->param('resultsperpage') || 20;
173 $QParser = C4
::Context
->queryparser if ( C4
::Context
->preference('UseQueryParser') );
181 $search = 'kw:' . $search . " $op mc-itemtype:" . $itype if $itype;
182 my ( $errors, $results, $total_hits ) = SimpleSearch
( $search, $startfrom * $resultsperpage, $resultsperpage );
183 if ( defined $errors ) {
186 my $total = @
{$results};
188 # warn " biblio count : ".$total;
190 ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
191 { template_name
=> "cataloguing/value_builder/marc21_linking_section.tt",
194 authnotrequired
=> 0,
199 # multi page display gestion
201 my $displayprev = $startfrom;
203 if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
207 my @field_data = ($search);
208 for ( my $i = 0 ; $i < $resultsperpage ; $i++ ) {
209 my $record = C4
::Search
::new_record_from_zebra
( 'biblioserver', $results->[$i] );
210 my $rechash = TransformMarcToKoha
( $dbh, $record );
212 my $countitems = $rechash->{itembumber
} ?
1 : 0;
213 while ( index( $rechash->{itemnumber
}, '|', $pos ) > 0 ) {
215 $pos = index( $rechash->{itemnumber
}, '|', $pos ) + 1;
217 $rechash->{totitem
} = $countitems;
218 my @holdingbranches = split /\|/, $rechash->{holdingbranch
};
219 my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber
};
221 for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) {
222 $CN .= $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |";
225 $rechash->{CN
} = $CN;
226 push @arrayresults, $rechash;
229 # for(my $i = 0 ; $i <= $#marclist ; $i++)
231 # push @field_data, { term => "marclist", val=>$marclist[$i] };
232 # push @field_data, { term => "and_or", val=>$and_or[$i] };
233 # push @field_data, { term => "excluding", val=>$excluding[$i] };
234 # push @field_data, { term => "operator", val=>$operator[$i] };
235 # push @field_data, { term => "value", val=>$value[$i] };
240 if ( $total > $resultsperpage ) {
241 for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
244 ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
247 highlight
=> $highlight,
248 searchdata
=> \
@field_data,
249 startfrom
=> ( $i - 1 )
255 my $from = $startfrom * $resultsperpage + 1;
258 if ( $total_hits < $from + $resultsperpage ) {
261 $to = $from + $resultsperpage;
263 my $defaultview = 'BiblioDefaultView' . C4
::Context
->preference('BiblioDefaultView');
265 # my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search";
266 # foreach my $sort (@sort_by){
267 # $link.="&sort_by=".$sort."&";
270 # pagination_bar => pagination_bar(
272 # getnbpages($hits, $results_per_page),
278 result
=> \
@arrayresults,
279 index => $query->param('index') . "",
280 startfrom
=> $startfrom,
281 displaynext
=> $displaynext,
282 displayprev
=> $displayprev,
283 resultsperpage
=> $resultsperpage,
285 startfromnext
=> $startfrom + 1,
286 startfromprev
=> $startfrom - 1,
287 searchdata
=> \
@field_data,
288 total
=> $total_hits,
291 numbers
=> \
@numbers,
298 ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
299 { template_name
=> "cataloguing/value_builder/marc21_linking_section.tt",
302 authnotrequired
=> 0,
306 my @itemtypes = C4
::ItemType
->all;
309 itypeloop
=> \
@itemtypes,
310 index => $query->param('index'),
314 output_html_with_http_headers
$query, $cookie, $template->output;
317 return { builder
=> $builder, launcher
=> $launcher };