Attachment #8951 for bug #6679

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

Lines 406-412 my @results; Link Here

(-)a/opac/opac-search.pl (-1 / +1 lines)
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;

Lines 27-33 Link Here

(-)a/opac/opac-showmarc.pl (-1 / +1 lines)
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;




                    # the page number for this page
                    my $this_page_number = $i;
                    # it should only be highlighted if it's the current page
                    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 };


                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;
		    $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 };
                    }

Lines 52-58 my $perBibResults = {}; Link Here

(-)a/opac/opac-tags.pl (-1 / +1 lines)
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;

Lines 146-152 if (!$advanced_search_types or $advanced_search_types eq 'itemtypes') { Link Here

(-)a/opac/opac-topissues.pl (-1 / +2 lines)
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'},

Lines 44-50 use XML::LibXML; Link Here

(-)a/opac/unapi (-2 / +1 lines)
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

Lines 146-152 for my $result (@$reviews){ Link Here

(-)a/opac/opac-showreviews.pl (-2 / +4 lines)
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	}