3 # Copyright Biblibre 2007 - CILEA 2011
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
36 sub plugin_javascript {
37 my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
38 my $function_name = $field_number;
40 <script type='text/javascript'>
41 function Clic$function_name(i) {
42 defaultvalue=document.getElementById(\"$field_number\").value;
43 window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=marc21_linking_section.pl&index=\" + i + \"&result=\"+defaultvalue,\"marc21_field_7\"+i+\"\",'width=900,height=700,toolbar=false,scrollbars=yes');
49 return ( $function_name, $res );
55 # -- op could be equals to
62 my $dbh = C4::Context->dbh;
64 my $op = $query->param('op');
65 my $type = $query->param('type');
66 my $startfrom = $query->param('startfrom');
67 $startfrom = 0 if ( !defined $startfrom );
68 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/marc21_linking_section.tt",
85 flagsrequired => { editcatalogue => '*' },
91 $marcrecord = GetMarcBiblio($biblionumber);
93 my $subfield_value_9 = $biblionumber;
94 my $subfield_value_0 = $biblionumber;
96 #my $subfield_value_0;
97 #$subfield_value_0 = $marcrecord->field('001')->data
98 # if $marcrecord->field('001');
100 if ( $marcrecord->field('001') ) {
101 $subfield_value_w = $marcrecord->field('001')->data;
104 $subfield_value_w = $biblionumber;
107 my $subfield_value_a;
108 my $subfield_value_c;
109 my $subfield_value_d;
110 my $subfield_value_e;
112 my $subfield_value_h;
114 my $subfield_value_i;
116 my $subfield_value_p;
118 my $subfield_value_t;
119 if ( $marcrecord->field('245') ) {
120 $subfield_value_t = $marcrecord->title();
123 my $subfield_value_u;
124 my $subfield_value_v;
125 my $subfield_value_x;
126 my $subfield_value_y;
127 my $subfield_value_z;
129 $subfield_value_x = $marcrecord->field('022')->subfield("a")
130 if ( $marcrecord->field('022') );
131 $subfield_value_z = $marcrecord->field('020')->subfield("a")
132 if ( $marcrecord->field('020') );
135 $subfield_value_9 =~ s/'/\\'/g;
136 $subfield_value_0 =~ s/'/\\'/g;
137 $subfield_value_a =~ s/'/\\'/g;
138 $subfield_value_c =~ s/'/\\'/g;
139 $subfield_value_d =~ s/'/\\'/g;
140 $subfield_value_e =~ s/'/\\'/g;
141 $subfield_value_h =~ s/'/\\'/g;
142 $subfield_value_i =~ s/'/\\'/g;
143 $subfield_value_p =~ s/'/\\'/g;
144 $subfield_value_t =~ s/'/\\'/g;
145 $subfield_value_u =~ s/'/\\'/g;
146 $subfield_value_v =~ s/'/\\'/g;
147 $subfield_value_w =~ s/'/\\'/g;
148 $subfield_value_x =~ s/'/\\'/g;
149 $subfield_value_y =~ s/'/\\'/g;
150 $subfield_value_z =~ s/'/\\'/g;
153 index => $query->param('index') . "",
154 biblionumber => $biblionumber ? $biblionumber : "",
155 subfield_value_9 => "$subfield_value_9",
156 subfield_value_0 => "$subfield_value_0",
157 subfield_value_a => "$subfield_value_a",
158 subfield_value_c => "$subfield_value_c",
159 subfield_value_d => "$subfield_value_d",
160 subfield_value_e => "$subfield_value_e",
161 subfield_value_h => "$subfield_value_h",
162 subfield_value_i => "$subfield_value_i",
163 subfield_value_p => "$subfield_value_p",
164 subfield_value_t => "$subfield_value_t",
165 subfield_value_u => "$subfield_value_u",
166 subfield_value_v => "$subfield_value_v",
167 subfield_value_w => "$subfield_value_w",
168 subfield_value_x => "$subfield_value_x",
169 subfield_value_y => "$subfield_value_y",
170 subfield_value_z => "$subfield_value_z",
172 ###############################################################
174 elsif ( $op eq "do_search" ) {
175 my $search = $query->param('search');
176 my $itype = $query->param('itype');
177 my $startfrom = $query->param('startfrom');
178 my $resultsperpage = $query->param('resultsperpage') || 20;
181 $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));
188 $search = 'kw:' . $search . " $op mc-itemtype:" . $itype if $itype;
189 my ( $errors, $results, $total_hits ) =
190 SimpleSearch( $search, $startfrom * $resultsperpage,
192 if ( defined $errors ) {
195 my $total = @{$results};
197 # warn " biblio count : ".$total;
199 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
202 "cataloguing/value_builder/marc21_linking_section.tt",
205 authnotrequired => 0,
210 # multi page display gestion
212 my $displayprev = $startfrom;
214 if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 )
219 my @field_data = ($search);
220 for ( my $i = 0 ; $i < $resultsperpage ; $i++ ) {
221 my $record = C4::Search::new_record_from_zebra( 'biblioserver', $results->[$i] );
222 my $rechash = TransformMarcToKoha( $dbh, $record );
224 my $countitems = $rechash->{itembumber} ? 1 : 0;
225 while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) {
227 $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1;
229 $rechash->{totitem} = $countitems;
230 my @holdingbranches = split /\|/, $rechash->{holdingbranch};
231 my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber};
233 for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) {
235 $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |";
238 $rechash->{CN} = $CN;
239 push @arrayresults, $rechash;
242 # for(my $i = 0 ; $i <= $#marclist ; $i++)
244 # push @field_data, { term => "marclist", val=>$marclist[$i] };
245 # push @field_data, { term => "and_or", val=>$and_or[$i] };
246 # push @field_data, { term => "excluding", val=>$excluding[$i] };
247 # push @field_data, { term => "operator", val=>$operator[$i] };
248 # push @field_data, { term => "value", val=>$value[$i] };
253 if ( $total > $resultsperpage ) {
254 for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
257 ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
261 highlight => $highlight,
262 searchdata => \@field_data,
263 startfrom => ( $i - 1 )
269 my $from = $startfrom * $resultsperpage + 1;
272 if ( $total_hits < $from + $resultsperpage ) {
276 $to = $from + $resultsperpage;
279 'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView');
281 # my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search";
282 # foreach my $sort (@sort_by){
283 # $link.="&sort_by=".$sort."&";
286 # pagination_bar => pagination_bar(
288 # getnbpages($hits, $results_per_page),
294 result => \@arrayresults,
295 index => $query->param('index') . "",
296 startfrom => $startfrom,
297 displaynext => $displaynext,
298 displayprev => $displayprev,
299 resultsperpage => $resultsperpage,
301 startfromnext => $startfrom + 1,
302 startfromprev => $startfrom - 1,
303 searchdata => \@field_data,
304 total => $total_hits,
307 numbers => \@numbers,
315 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
318 "cataloguing/value_builder/marc21_linking_section.tt",
321 authnotrequired => 0,
325 my @itemtypes = C4::ItemType->all;
328 itypeloop => \@itemtypes,
329 index => $query->param('index'),
333 output_html_with_http_headers $query, $cookie, $template->output;