Lines 105-111
sub plugin {
Link Here
|
105 |
ORDER BY cn_sort DESC, itemnumber |
105 |
ORDER BY cn_sort DESC, itemnumber |
106 |
LIMIT $real_limit;"; |
106 |
LIMIT $real_limit;"; |
107 |
$sth = $dbh->prepare($query); |
107 |
$sth = $dbh->prepare($query); |
108 |
# die $query; |
|
|
109 |
$sth->execute(); |
108 |
$sth->execute(); |
110 |
while ( my $data = $sth->fetchrow_hashref ) { |
109 |
while ( my $data = $sth->fetchrow_hashref ) { |
111 |
if ($data->{itemcallnumber} eq $q) { |
110 |
if ($data->{itemcallnumber} eq $q) { |
Lines 136-142
sub plugin {
Link Here
|
136 |
ORDER BY cn_sort, itemnumber |
135 |
ORDER BY cn_sort, itemnumber |
137 |
LIMIT $real_limit"; |
136 |
LIMIT $real_limit"; |
138 |
$sth = $dbh->prepare($query); |
137 |
$sth = $dbh->prepare($query); |
139 |
# die $query; |
|
|
140 |
$sth->execute(); |
138 |
$sth->execute(); |
141 |
while ( my $data = $sth->fetchrow_hashref ) { |
139 |
while ( my $data = $sth->fetchrow_hashref ) { |
142 |
if ($data->{itemcallnumber} eq $q) { |
140 |
if ($data->{itemcallnumber} eq $q) { |
Lines 144-157
sub plugin {
Link Here
|
144 |
$red = 1; |
142 |
$red = 1; |
145 |
} |
143 |
} |
146 |
elsif (($data->{cn_sort} gt $cn_sort_q) && !$green && !$red) { |
144 |
elsif (($data->{cn_sort} gt $cn_sort_q) && !$green && !$red) { |
147 |
if ($#cn != -1) { |
145 |
push @cn, {'background' => 'green'}; |
148 |
push @cn, {'background' => 'green'}; |
|
|
149 |
} |
150 |
$green = 1; |
146 |
$green = 1; |
151 |
} |
147 |
} |
152 |
push @cn, $data; |
148 |
push @cn, $data; |
153 |
} |
149 |
} |
154 |
$rows_gt = $sth->rows; |
150 |
$rows_gt = $sth->rows; |
|
|
151 |
if ($rows_gt == 0 && !$green && !$red){ |
152 |
push @cn, {'background' => 'green'}; |
153 |
} |
154 |
|
155 |
$sth->finish; |
155 |
$sth->finish; |
156 |
} |
156 |
} |
157 |
|
157 |
|
Lines 159-175
sub plugin {
Link Here
|
159 |
$template->param('cn_loop' => \@cn) if $#cn != -1; |
159 |
$template->param('cn_loop' => \@cn) if $#cn != -1; |
160 |
$template->param('popup' => defined($cgi->param('popup'))); |
160 |
$template->param('popup' => defined($cgi->param('popup'))); |
161 |
|
161 |
|
162 |
# die Dumper @cn; |
|
|
163 |
|
164 |
#die $rows_lt . '-' . $rows_gt . '-' . $real_limit; |
165 |
|
166 |
my $url = "cn_browser.pl?q=$q"; |
167 |
my $first_result = $cn[0]->{itemcallnumber}; |
168 |
my $last_result = $cn[-1]->{itemcallnumber}; |
169 |
$template->param('first_result' => $first_result) if $rows_lt >= $real_limit; |
170 |
$template->param('last_result' => $last_result) if $rows_gt >= $real_limit; |
171 |
$template->param('url' => $url); |
172 |
|
173 |
|
162 |
|
174 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
163 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
175 |
} |
164 |
} |
176 |
- |
|
|