3 # Copyright Biblibre 2007
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 #use warnings; FIXME - Bug 2505
34 use C4::Branch; # GetBranches
37 sub plugin_javascript {
38 my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
39 my $function_name = $field_number;
41 <script type='text/javascript'>
42 function Clic$function_name(i) {
43 defaultvalue=document.getElementById(\"$field_number\").value;
44 window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_4XX.pl&index=\" + i + \"&result=\"+defaultvalue,\"unimarc_field_4\"+i+\"\",'width=900,height=700,toolbar=false,scrollbars=yes');
50 return ( $function_name, $res );
56 # -- op could be equals to
63 my $dbh = C4::Context->dbh;
65 my $op = $query->param('op');
66 my $type = $query->param('type');
67 my $startfrom = $query->param('startfrom');
68 $startfrom = 0 if ( !defined $startfrom );
69 my ( $template, $loggedinuser, $cookie );
72 if ( $op eq "fillinput" ) {
73 my $biblionumber = $query->param('biblionumber');
74 my $index = $query->param('index');
78 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
81 "cataloguing/value_builder/unimarc_field_4XX.tt",
85 flagsrequired => { editcatalogue => '*' },
91 $marcrecord = GetMarcBiblio($biblionumber);
93 my $subfield_value_9 = $biblionumber;
95 $subfield_value_0 = $marcrecord->field('001')->data
96 if $marcrecord->field('001');
98 if ( $marcrecord->field('700') ) {
99 $subfield_value_a = $marcrecord->field('700')->subfield("a");
100 $subfield_value_a .= ", " . $marcrecord->subfield( '700', "b" )
101 if $marcrecord->subfield( '700', 'b' );
102 $subfield_value_a .= " " . $marcrecord->subfield( '700', "d" )
103 if $marcrecord->subfield( '700', 'd' );
105 " (" . $marcrecord->subfield( '700', 'c' )
106 if $marcrecord->subfield( '700', 'c' );
107 $subfield_value_a .= " ; "
108 if $marcrecord->subfield( '700', 'c' )
109 and $marcrecord->subfield( '700', 'f' );
110 $subfield_value_a .= " ("
111 if ( $marcrecord->subfield( '700', 'f' )
112 and not( $marcrecord->subfield( '700', 'c' ) ) );
113 $subfield_value_a .= $marcrecord->subfield( '700', 'f' )
114 if ( $marcrecord->subfield( '700', 'f' ) );
115 $subfield_value_a .= ")"
116 if ( $marcrecord->subfield( '700', 'f' )
117 or $marcrecord->subfield( '700', 'c' ) );
119 elsif ( $marcrecord->field('702') ) {
120 $subfield_value_a = $marcrecord->subfield( '702', 'a' );
121 $subfield_value_a .= ", " . $marcrecord->subfield( '702', 'b' )
122 if $marcrecord->subfield( '702', 'b' );
123 $subfield_value_a .= " " . $marcrecord->subfield( '702', 'd' )
124 if $marcrecord->subfield( '702', 'd' );
126 " (" . $marcrecord->subfield( '702', 'c' )
127 if $marcrecord->subfield( '702', 'c' );
128 $subfield_value_a .= " ; "
129 if $marcrecord->subfield( '702', 'c' )
130 and $marcrecord->subfield( '702', 'f' );
131 $subfield_value_a .= " ("
132 if $marcrecord->subfield( '702', 'f' )
133 and not $marcrecord->subfield( '702', 'c' );
134 $subfield_value_a .= $marcrecord->subfield( '702', 'f' )
135 if $marcrecord->subfield( '702', 'f' );
136 $subfield_value_a .= ")"
137 if $marcrecord->subfield( '702', 'f' )
138 or $marcrecord->subfield( '702', 'c' );
140 elsif ( $marcrecord->field('710') ) {
141 $subfield_value_a = $marcrecord->subfield( '710', 'd' ) . " "
142 if $marcrecord->subfield( '710', 'd' );
143 $subfield_value_a .= $marcrecord->subfield( '710', 'a' )
144 if $marcrecord->subfield( '710', 'a' );
145 $subfield_value_a .= ", " . $marcrecord->subfield( '710', 'b' )
146 if $marcrecord->subfield('710');
148 " (" . $marcrecord->subfield( '710', 'f' ) . " - "
149 if $marcrecord->subfield( '710', 'f' );
150 $subfield_value_a .= " ("
151 if $marcrecord->subfield( '710', 'e' )
152 and not $marcrecord->subfield( '710', 'f' );
153 $subfield_value_a .= $marcrecord->subfield( '710', 'e' )
154 if $marcrecord->subfield( '710', 'e' );
155 $subfield_value_a .= ")"
156 if $marcrecord->subfield( '710', 'e' )
157 or $marcrecord->subfield( '710', 'f' );
159 elsif ( $marcrecord->field('701') ) {
160 $subfield_value_a = $marcrecord->subfield( '701', 'a' );
161 $subfield_value_a .= ", " . $marcrecord->subfield( '701', 'b' )
162 if $marcrecord->subfield( '701', 'b' );
163 $subfield_value_a .= " " . $marcrecord->subfield( '701', 'd', )
164 if $marcrecord->subfield( '701', 'd' );
166 " (" . $marcrecord->subfield( '701', 'c' ) . " - "
167 if $marcrecord->subfield( '701', 'c' );
168 $subfield_value_a .= " ("
169 if $marcrecord->subfield( '701', 'f' )
170 and not( $marcrecord->subfield( '701', 'c' ) );
171 $subfield_value_a .= $marcrecord->subfield( '701', 'f' )
172 if $marcrecord->subfield( '701', 'f' );
173 $subfield_value_a .= ")"
174 if $marcrecord->subfield( '701', 'f' )
175 or $marcrecord->subfield( '701', 'c' );
177 elsif ( $marcrecord->field('712') ) {
178 $subfield_value_a = $marcrecord->subfield( '712', 'd' ) . " "
179 if $marcrecord->subfield( '712', 'd' );
180 $subfield_value_a .= $marcrecord->subfield( '712', 'a' )
181 if $marcrecord->subfield( '712', 'a' );
182 $subfield_value_a .= ", " . $marcrecord->subfield( '712', 'b' )
183 if $marcrecord->subfield( '712', 'b' );
185 " (" . $marcrecord->subfield( '712', 'f' ) . " - "
186 if $marcrecord->subfield( '712', 'f' );
187 $subfield_value_a .= " ("
188 if $marcrecord->subfield( '712', "e" )
189 and not $marcrecord->subfield( '712', 'f' );
190 $subfield_value_a .= $marcrecord->subfield( '712', 'e' )
191 if $marcrecord->subfield( '712', 'e' );
192 $subfield_value_a .= ")"
193 if $marcrecord->subfield( '712', 'e' )
194 or $marcrecord->subfield( '712', 'f' );
196 elsif ( $marcrecord->field('200') ) {
197 $subfield_value_a = $marcrecord->subfield( '200', 'f' );
199 my $subfield_value_c;
200 my $subfield_value_d;
201 my $subfield_value_e;
202 $subfield_value_c = $marcrecord->field('210')->subfield("a")
203 if ( $marcrecord->field('210') );
204 $subfield_value_d = $marcrecord->field('210')->subfield("d")
205 if ( $marcrecord->field('210') );
206 $subfield_value_e = $marcrecord->field('205')->subfield("a")
207 if ( $marcrecord->field('205') );
209 my $subfield_value_h;
210 if ( ( $marcrecord->field('200') )
211 && ( $marcrecord->field('200')->subfield("h") ) )
213 $subfield_value_h = $marcrecord->field('200')->subfield("h");
215 elsif (( $marcrecord->field('225') )
216 && ( $marcrecord->field('225')->subfield("h") ) )
218 $subfield_value_h = $marcrecord->field('225')->subfield("h");
220 elsif (( $marcrecord->field('500') )
221 && ( $marcrecord->field('500')->subfield("h") ) )
223 $subfield_value_h = $marcrecord->field('500')->subfield("h");
226 my $subfield_value_i;
227 if ( ( $marcrecord->field('200') )
228 && ( $marcrecord->field('200')->subfield("i") ) )
230 $subfield_value_i = $marcrecord->field('200')->subfield("i");
232 elsif (( $marcrecord->field('225') )
233 && ( $marcrecord->field('225')->subfield("i") ) )
235 $subfield_value_i = $marcrecord->field('225')->subfield("i");
237 elsif (( $marcrecord->field('500') )
238 && ( $marcrecord->field('500')->subfield("i") ) )
240 $subfield_value_i = $marcrecord->field('500')->subfield("i");
243 my $subfield_value_l;
244 $subfield_value_l = $marcrecord->field('200')->subfield("d")
245 if ( $marcrecord->field('200') );
247 my $subfield_value_n;
248 $subfield_value_n = $marcrecord->field('210')->subfield("c")
249 if ( $marcrecord->field('210') );
251 my $subfield_value_o;
252 $subfield_value_o = $marcrecord->field('200')->subfield("e")
253 if ( $marcrecord->field('200') );
255 my $subfield_value_p;
256 $subfield_value_p = $marcrecord->field('215')->subfield("a")
257 if ( $marcrecord->field('215') );
259 my $subfield_value_t;
260 if ( ( $marcrecord->field('200') )
261 && ( $marcrecord->field('200')->subfield("a") ) )
263 $subfield_value_t = $marcrecord->field('200')->subfield("a");
265 elsif (( $marcrecord->field('225') )
266 && ( $marcrecord->field('225')->subfield("a") ) )
268 $subfield_value_t = $marcrecord->field('225')->subfield("a");
270 elsif (( $marcrecord->field('500') )
271 && ( $marcrecord->field('500')->subfield("a") ) )
273 $subfield_value_t = $marcrecord->field('500')->subfield("a");
276 my $subfield_value_u;
277 if ( $marcrecord->field('856') ) {
278 $subfield_value_u = $marcrecord->field('856')->subfield("u");
281 my $subfield_value_v;
282 if ( ( $marcrecord->field('225') )
283 && ( $marcrecord->field('225')->subfield("v") ) )
285 $subfield_value_v = $marcrecord->field('225')->subfield("v");
287 elsif (( $marcrecord->field('200') )
288 && ( $marcrecord->field('200')->subfield("h") ) )
290 $subfield_value_v = $marcrecord->field('200')->subfield("h");
292 my $subfield_value_x;
294 $marcrecord->field('011')
295 and not( ( $marcrecord->field('011')->subfield("y") )
296 or ( $marcrecord->field('011')->subfield("z") ) ) ) {
297 $subfield_value_x = $marcrecord->field('011')->subfield("a");
299 my $subfield_value_y;
300 if ( $marcrecord->field('013') ) {
301 $subfield_value_y = $marcrecord->field('013')->subfield("a");
303 if ( $marcrecord->field('010') ) {
304 $subfield_value_y = $marcrecord->field('010')->subfield("a");
307 $subfield_value_9 =~ s/'/\\'/g;
308 $subfield_value_0 =~ s/'/\\'/g;
309 $subfield_value_a =~ s/'/\\'/g;
310 $subfield_value_c =~ s/'/\\'/g;
311 $subfield_value_d =~ s/'/\\'/g;
312 $subfield_value_e =~ s/'/\\'/g;
313 $subfield_value_h =~ s/'/\\'/g;
314 $subfield_value_i =~ s/'/\\'/g;
315 $subfield_value_l =~ s/'/\\'/g;
316 $subfield_value_n =~ s/'/\\'/g;
317 $subfield_value_o =~ s/'/\\'/g;
318 $subfield_value_p =~ s/'/\\'/g;
319 $subfield_value_t =~ s/'/\\'/g;
320 $subfield_value_u =~ s/'/\\'/g;
321 $subfield_value_v =~ s/'/\\'/g;
322 $subfield_value_x =~ s/'/\\'/g;
323 $subfield_value_y =~ s/'/\\'/g;
326 index => $query->param('index') . "",
327 biblionumber => $biblionumber ? $biblionumber : "",
328 subfield_value_9 => "$subfield_value_9",
329 subfield_value_0 => "$subfield_value_0",
330 subfield_value_a => "$subfield_value_a",
331 subfield_value_c => "$subfield_value_c",
332 subfield_value_d => "$subfield_value_d",
333 subfield_value_e => "$subfield_value_e",
334 subfield_value_h => "$subfield_value_h",
335 subfield_value_i => "$subfield_value_i",
336 subfield_value_l => "$subfield_value_l",
337 subfield_value_n => "$subfield_value_n",
338 subfield_value_o => "$subfield_value_o",
339 subfield_value_p => "$subfield_value_p",
340 subfield_value_t => "$subfield_value_t",
341 subfield_value_u => "$subfield_value_u",
342 subfield_value_v => "$subfield_value_v",
343 subfield_value_x => "$subfield_value_x",
344 subfield_value_y => "$subfield_value_y",
346 ###############################################################
348 elsif ( $op eq "do_search" ) {
349 my $search = $query->param('search');
350 my $itype = $query->param('itype');
351 my $startfrom = $query->param('startfrom');
352 my $resultsperpage = $query->param('resultsperpage') || 20;
355 $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));
362 $search = 'kw:'.$search." $op mc-itemtype:".$itype if $itype;
363 my ( $errors, $results, $total_hits ) = SimpleSearch($search, $startfrom * $resultsperpage, $resultsperpage );
364 if (defined $errors ) {
367 my $total = @{$results};
369 # warn " biblio count : ".$total;
371 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
374 "cataloguing/value_builder/unimarc_field_4XX.tt",
377 authnotrequired => 0,
382 # multi page display gestion
384 my $displayprev = $startfrom;
386 if( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
390 my @field_data = ($search);
393 $i < $resultsperpage ;
397 my $record = C4::Search::new_record_from_zebra( 'biblioserver', $results->[$i] );
399 my $rechash = TransformMarcToKoha( $dbh, $record );
400 if ( my $f = $record->field('200') ) {
401 $rechash->{fulltitle} =
402 join(', ', map { $_->[1] } grep { $_->[0] =~ /[aehi]/ } $f->subfields() );
405 $rechash->{fulltitle} = $rechash->{title};
409 if ( $rechash->{itemnumber} ) {
412 while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) {
414 $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1;
416 $rechash->{totitem} = $countitems;
417 my @holdingbranches = split /\|/, $rechash->{holdingbranch};
418 my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber};
420 for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) {
422 $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |";
425 $rechash->{CN} = $CN;
426 push @arrayresults, $rechash;
429 # for(my $i = 0 ; $i <= $#marclist ; $i++)
431 # push @field_data, { term => "marclist", val=>$marclist[$i] };
432 # push @field_data, { term => "and_or", val=>$and_or[$i] };
433 # push @field_data, { term => "excluding", val=>$excluding[$i] };
434 # push @field_data, { term => "operator", val=>$operator[$i] };
435 # push @field_data, { term => "value", val=>$value[$i] };
440 if ( $total > $resultsperpage ) {
441 for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
444 ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
448 highlight => $highlight,
449 searchdata => \@field_data,
450 startfrom => ( $i - 1 )
456 my $from = $startfrom * $resultsperpage + 1;
459 if ( $total_hits < $from + $resultsperpage ) {
462 $to = $from + $resultsperpage ;
465 'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView');
466 # my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search";
467 # foreach my $sort (@sort_by){
468 # $link.="&sort_by=".$sort."&";
471 # pagination_bar => pagination_bar(
473 # getnbpages($hits, $results_per_page),
479 result => \@arrayresults,
480 index => $query->param('index') . "",
481 startfrom => $startfrom,
482 displaynext => $displaynext,
483 displayprev => $displayprev,
484 resultsperpage => $resultsperpage,
486 startfromnext => $startfrom + 1,
487 startfromprev => $startfrom - 1,
488 searchdata => \@field_data,
489 total => $total_hits,
492 numbers => \@numbers,
500 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
503 "cataloguing/value_builder/unimarc_field_4XX.tt",
506 authnotrequired => 0,
510 my @itemtypes = C4::ItemType->all;
512 $template->param( #classlist => $classlist,
513 itypeloop => \@itemtypes,
514 index => $query->param('index'),
518 output_html_with_http_headers $query, $cookie, $template->output;