3 # Converted to new plugin style (Bug 13437)
5 # Copyright 2015 Koha Development Team
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>.
24 use C4::Auth qw( get_template_and_user );
25 use C4::ClassSource qw( GetClassSort );
26 use C4::Output qw( output_html_with_http_headers );
28 use Koha::ClassSources;
32 my $function_name = $params->{id};
36 function Click$function_name(i) {
37 q = document.getElementById('$params->{id}');
38 window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=cn_browser.pl&popup&q=\"+encodeURIComponent(q.value),\"cnbrowser\",\"width=500,height=400,toolbar=false,scrollbars=yes\");
48 my $cgi = $params->{cgi};
49 my $results_per_page = 30;
50 my $current_page = $cgi->param('page') || 1;
52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
53 { template_name => "cataloguing/value_builder/cn_browser.tt",
56 flagsrequired => { catalogue => 1 },
60 my $dbh = C4::Context->dbh;
64 my $real_limit = $results_per_page / 2;
73 if ( $q = $cgi->param('q') ) {
76 if ( $cgi->param('lt') ) {
77 $lt = $cgi->param('lt');
80 if ( $cgi->param('gt') ) {
81 $gt = $cgi->param('gt');
85 my $cn_source = $cgi->param('cn_source') || C4::Context->preference("DefaultClassificationSource");
86 my @class_sources = Koha::ClassSources->search({ used => 1})->as_list;
88 #Don't show half the results of show lt or gt
89 $real_limit = $results_per_page if $search ne $q;
90 my $cn_sort = GetClassSort( $cn_source, undef, $search );
93 if ( $search ne $gt ) {
96 #Results before the cn_sort
97 $query = "SELECT b.title, b.subtitle, itemcallnumber, biblionumber, barcode, cn_sort, branchname, author, ccode
99 JOIN biblio AS b USING (biblionumber)
100 LEFT OUTER JOIN branches ON (branches.branchcode = homebranch)
102 AND itemcallnumber != ''
103 ORDER BY cn_sort DESC, itemnumber
105 $sth = $dbh->prepare($query);
106 $sth->execute($cn_sort);
107 while ( my $data = $sth->fetchrow_hashref ) {
108 if ( $data->{itemcallnumber} eq $q ) {
109 $data->{background} = 'red';
111 } elsif ( $data->{cn_sort} lt $cn_sort && !$green && !$red ) {
113 unshift @cn, { 'background' => 'green' };
120 $rows_lt = $sth->rows;
123 if ( $search ne $lt ) {
126 #Results after the cn_sort
127 $query = "SELECT b.title, b.subtitle, itemcallnumber, biblionumber, barcode, cn_sort, branchname, author, ccode
129 JOIN biblio AS b USING (biblionumber)
130 LEFT OUTER JOIN branches ON (branches.branchcode = homebranch)
131 WHERE i.cn_sort >= '$cn_sort'
132 AND itemcallnumber != ''
133 ORDER BY cn_sort, itemnumber
135 $sth = $dbh->prepare($query);
138 while ( my $data = $sth->fetchrow_hashref ) {
139 if ( $data->{itemcallnumber} eq $q ) {
140 $data->{background} = 'red';
142 } elsif ( $data->{cn_sort} gt $cn_sort && !$green && !$red && !$globalGreen ) {
143 push @cn, { 'background' => 'green' };
148 $rows_gt = $sth->rows;
150 if ( !$green && !$red && !$globalGreen ) {
151 push @cn, { 'background' => 'green' };
157 $template->param( 'q' => $q );
158 $template->param( 'cn_loop' => \@cn ) if $#cn != -1;
159 $template->param( 'popup' => defined( $cgi->param('popup') ) );
160 $template->param( 'cn_source' => $cn_source ) if $cn_source;
161 $template->param( 'class_sources' => \@class_sources );
164 output_html_with_http_headers $cgi, $cookie, $template->output;
167 return { builder => $builder, launcher => $launcher };