View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/opac/opac-search.pl (-1 / +1 lines)
Lines 406-412 my @results; Link Here
406
my $lang = C4::Templates::getlanguage($cgi, 'opac');
406
my $lang = C4::Templates::getlanguage($cgi, 'opac');
407
( $error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$stopwords_removed,$query_type) = buildQuery(\@operators,\@operands,\@indexes,\@limits,\@sort_by, 0, $lang);
407
( $error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$stopwords_removed,$query_type) = buildQuery(\@operators,\@operands,\@indexes,\@limits,\@sort_by, 0, $lang);
408
408
409
sub _input_cgi_parse ($) { 
409
sub _input_cgi_parse { 
410
    my @elements;
410
    my @elements;
411
    for my $this_cgi ( split('&',shift) ) {
411
    for my $this_cgi ( split('&',shift) ) {
412
        next unless $this_cgi;
412
        next unless $this_cgi;
(-)a/opac/opac-showmarc.pl (-1 / +1 lines)
Lines 27-33 Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
29
30
use open OUT=>':utf8', ':std';
30
use open OUT=> ":encoding(UTF-8)", ':std';
31
31
32
# standard or CPAN modules used
32
# standard or CPAN modules used
33
use CGI;
33
use CGI;
(-)a/opac/opac-showreviews.pl (-2 / +4 lines)
Lines 146-152 for my $result (@$reviews){ Link Here
146
                    # the page number for this page
146
                    # the page number for this page
147
                    my $this_page_number = $i;
147
                    my $this_page_number = $i;
148
                    # it should only be highlighted if it's the current page
148
                    # it should only be highlighted if it's the current page
149
                    my $highlight = 1 if ($this_page_number == $current_page_number);
149
                    my $highlight;
150
		    $highlight = 1 if ($this_page_number == $current_page_number);
150
                    # put it in the array
151
                    # put it in the array
151
                    push @page_numbers, { offset => $this_offset, pg => $this_page_number, highlight => $highlight };
152
                    push @page_numbers, { offset => $this_offset, pg => $this_page_number, highlight => $highlight };
152
153
Lines 158-164 for my $result (@$reviews){ Link Here
158
                for ($i=$current_page_number; $i<=($current_page_number + 20 );$i++) {
159
                for ($i=$current_page_number; $i<=($current_page_number + 20 );$i++) {
159
                    my $this_offset = ((($i-9)*$results_per_page)-$results_per_page);
160
                    my $this_offset = ((($i-9)*$results_per_page)-$results_per_page);
160
                    my $this_page_number = $i-9;
161
                    my $this_page_number = $i-9;
161
                    my $highlight = 1 if ($this_page_number == $current_page_number);
162
                    my $highlight;
163
		    $highlight = 1 if ($this_page_number == $current_page_number);
162
                    if ($this_page_number <= $pages) {
164
                    if ($this_page_number <= $pages) {
163
                        push @page_numbers, { offset => $this_offset, pg => $this_page_number, highlight => $highlight };
165
                        push @page_numbers, { offset => $this_offset, pg => $this_page_number, highlight => $highlight };
164
                    }
166
                    }
(-)a/opac/opac-tags.pl (-1 / +1 lines)
Lines 52-58 my $perBibResults = {}; Link Here
52
# Indexes of @errors that do not apply to a particular biblionumber.
52
# Indexes of @errors that do not apply to a particular biblionumber.
53
my @globalErrorIndexes = ();
53
my @globalErrorIndexes = ();
54
54
55
sub ajax_auth_cgi ($) {     # returns CGI object
55
sub ajax_auth_cgi {     # returns CGI object
56
	my $needed_flags = shift;
56
	my $needed_flags = shift;
57
	my %cookies = fetch CGI::Cookie;
57
	my %cookies = fetch CGI::Cookie;
58
	my $input = CGI->new;
58
	my $input = CGI->new;
(-)a/opac/opac-topissues.pl (-1 / +2 lines)
Lines 146-152 if (!$advanced_search_types or $advanced_search_types eq 'itemtypes') { Link Here
146
} else {
146
} else {
147
    my $advsearchtypes = GetAuthorisedValues($advanced_search_types, '', 'opac');
147
    my $advsearchtypes = GetAuthorisedValues($advanced_search_types, '', 'opac');
148
        for my $thisitemtype (@$advsearchtypes) {
148
        for my $thisitemtype (@$advsearchtypes) {
149
                my $selected = 1 if $thisitemtype->{authorised_value} eq $itemtype;
149
                my $selected;
150
	        $selected = 1 if $thisitemtype->{authorised_value} eq $itemtype;
150
                my %row =( value => $thisitemtype->{authorised_value},
151
                my %row =( value => $thisitemtype->{authorised_value},
151
                selected    => $thisitemtype eq $itemtype,
152
                selected    => $thisitemtype eq $itemtype,
152
                description => $thisitemtype->{'lib'},
153
                description => $thisitemtype->{'lib'},
(-)a/opac/unapi (-2 / +1 lines)
Lines 44-50 use XML::LibXML; Link Here
44
use XML::LibXSLT;
44
use XML::LibXSLT;
45
45
46
my $cgi = CGI->new();
46
my $cgi = CGI->new();
47
binmode(STDOUT, "utf8"); #output as utf8
47
binmode(STDOUT, ":encoding(UTF-8)"); #output as utf8
48
48
49
=head1 VARIABLES
49
=head1 VARIABLES
50
50
51
- 

Return to bug 6679