@@ -, +, @@ in the opac --- opac/opac-search.pl | 2 +- opac/opac-showmarc.pl | 2 +- opac/opac-showreviews.pl | 6 ++++-- opac/opac-tags.pl | 2 +- opac/opac-topissues.pl | 3 ++- opac/unapi | 2 +- 6 files changed, 10 insertions(+), 7 deletions(-) --- a/opac/opac-search.pl +++ a/opac/opac-search.pl @@ -406,7 +406,7 @@ my @results; my $lang = C4::Templates::getlanguage($cgi, 'opac'); ( $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); -sub _input_cgi_parse ($) { +sub _input_cgi_parse { my @elements; for my $this_cgi ( split('&',shift) ) { next unless $this_cgi; --- a/opac/opac-showmarc.pl +++ a/opac/opac-showmarc.pl @@ -27,7 +27,7 @@ use strict; use warnings; -use open OUT=>':utf8', ':std'; +use open OUT=> ":encoding(UTF-8)", ':std'; # standard or CPAN modules used use CGI; --- a/opac/opac-showreviews.pl +++ a/opac/opac-showreviews.pl @@ -146,7 +146,8 @@ for my $result (@$reviews){ # the page number for this page my $this_page_number = $i; # it should only be highlighted if it's the current page - my $highlight = 1 if ($this_page_number == $current_page_number); + my $highlight; + $highlight = 1 if ($this_page_number == $current_page_number); # put it in the array push @page_numbers, { offset => $this_offset, pg => $this_page_number, highlight => $highlight }; @@ -158,7 +159,8 @@ for my $result (@$reviews){ for ($i=$current_page_number; $i<=($current_page_number + 20 );$i++) { my $this_offset = ((($i-9)*$results_per_page)-$results_per_page); my $this_page_number = $i-9; - my $highlight = 1 if ($this_page_number == $current_page_number); + my $highlight; + $highlight = 1 if ($this_page_number == $current_page_number); if ($this_page_number <= $pages) { push @page_numbers, { offset => $this_offset, pg => $this_page_number, highlight => $highlight }; } --- a/opac/opac-tags.pl +++ a/opac/opac-tags.pl @@ -52,7 +52,7 @@ my $perBibResults = {}; # Indexes of @errors that do not apply to a particular biblionumber. my @globalErrorIndexes = (); -sub ajax_auth_cgi ($) { # returns CGI object +sub ajax_auth_cgi { # returns CGI object my $needed_flags = shift; my %cookies = fetch CGI::Cookie; my $input = CGI->new; --- a/opac/opac-topissues.pl +++ a/opac/opac-topissues.pl @@ -146,7 +146,8 @@ if (!$advanced_search_types or $advanced_search_types eq 'itemtypes') { } else { my $advsearchtypes = GetAuthorisedValues($advanced_search_types, '', 'opac'); for my $thisitemtype (@$advsearchtypes) { - my $selected = 1 if $thisitemtype->{authorised_value} eq $itemtype; + my $selected; + $selected = 1 if $thisitemtype->{authorised_value} eq $itemtype; my %row =( value => $thisitemtype->{authorised_value}, selected => $thisitemtype eq $itemtype, description => $thisitemtype->{'lib'}, --- a/opac/unapi +++ a/opac/unapi @@ -44,7 +44,7 @@ use XML::LibXML; use XML::LibXSLT; my $cgi = CGI->new(); -binmode(STDOUT, "utf8"); #output as utf8 +binmode(STDOUT, ":encoding(UTF-8)"); #output as utf8 =head1 VARIABLES --