Lines 570-576
unless ( $cgi->param('advsearch') ) {
Link Here
|
570 |
sub _input_cgi_parse { |
570 |
sub _input_cgi_parse { |
571 |
my @elements; |
571 |
my @elements; |
572 |
my $query_cgi = shift or return @elements; |
572 |
my $query_cgi = shift or return @elements; |
573 |
for my $this_cgi ( split('&',$query_cgi) ) { |
573 |
for my $this_cgi ( split('&',$query_cgi) ) { |
574 |
next unless $this_cgi; |
574 |
next unless $this_cgi; |
575 |
$this_cgi =~ /(.*?)=(.*)/; |
575 |
$this_cgi =~ /(.*?)=(.*)/; |
576 |
push @elements, { input_name => $1, input_value => Encode::decode_utf8( uri_unescape($2) ) }; |
576 |
push @elements, { input_name => $1, input_value => Encode::decode_utf8( uri_unescape($2) ) }; |
Lines 608-614
my $results_hashref;
Link Here
|
608 |
my @coins; |
608 |
my @coins; |
609 |
|
609 |
|
610 |
if ($tag) { |
610 |
if ($tag) { |
611 |
$query_cgi = "tag=" . uri_escape_utf8( $tag ) . "&" . $query_cgi; |
611 |
$query_cgi = "tag=" . uri_escape_utf8( $tag ) . "&" . $query_cgi; |
612 |
my $taglist = get_tags({term=>$tag, approved=>1}); |
612 |
my $taglist = get_tags({term=>$tag, approved=>1}); |
613 |
$results_hashref->{biblioserver}->{hits} = scalar (@$taglist); |
613 |
$results_hashref->{biblioserver}->{hits} = scalar (@$taglist); |
614 |
my @marclist = map { C4::Biblio::GetXmlBiblio( $_->{biblionumber} ) } @$taglist; |
614 |
my @marclist = map { C4::Biblio::GetXmlBiblio( $_->{biblionumber} ) } @$taglist; |
Lines 745-751
for (my $i=0;$i<@servers;$i++) {
Link Here
|
745 |
my $path_info = $cgi->url(-path_info=>1); |
745 |
my $path_info = $cgi->url(-path_info=>1); |
746 |
my $query_cgi_history = $cgi->url(-query=>1); |
746 |
my $query_cgi_history = $cgi->url(-query=>1); |
747 |
$query_cgi_history =~ s/^$path_info\?//; |
747 |
$query_cgi_history =~ s/^$path_info\?//; |
748 |
$query_cgi_history =~ s/;/&/g; |
748 |
$query_cgi_history =~ s/;/&/g; |
749 |
my $query_desc_history = join ", ", grep { defined $_ } $query_desc, $limit_desc; |
749 |
my $query_desc_history = join ", ", grep { defined $_ } $query_desc, $limit_desc; |
750 |
|
750 |
|
751 |
unless ( $borrowernumber ) { |
751 |
unless ( $borrowernumber ) { |
752 |
- |
|
|