|
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 |
- |
|
|