Merge remote branch 'origin/new/bug6554_reverts'
authorGalen Charlton <gmc@esilibrary.com>
Wed, 1 May 2013 18:22:30 +0000 (11:22 -0700)
committerGalen Charlton <gmc@esilibrary.com>
Wed, 1 May 2013 18:22:30 +0000 (11:22 -0700)
1  2 
reports/guided_reports.pl
tags/review.pl

@@@ -736,7 -736,7 +736,7 @@@ elsif ($phase eq 'Run this report')
              my $totpages = int($total/$limit) + (($total % $limit) > 0 ? 1 : 0);
              my $url = "/cgi-bin/koha/reports/guided_reports.pl?reports=$report_id&amp;phase=Run%20this%20report&amp;limit=$limit";
              if (@sql_params) {
-                 $url = join('&amp;sql_params=', $url, map { URI::Escape::uri_escape_utf8($_) } @sql_params);
+                 $url = join('&amp;sql_params=', $url, map { URI::Escape::uri_escape($_) } @sql_params);
              }
              $template->param(
                  'results' => \@rows,
                  'errors'  => $errors,
                  'pagination_bar'  => pagination_bar($url, $totpages, $input->param('page')),
                  'unlimited_total' => $total,
 +                'sql_params'      => \@sql_params,
              );
          }
      }
diff --combined tags/review.pl
@@@ -23,7 -23,7 +23,7 @@@ use warnings
  use strict;
  use Data::Dumper;
  use POSIX;
- use CGI qw/-utf8/;
+ use CGI;
  use CGI::Cookie; # need to check cookies before having CGI parse the POST request
  
  use C4::Auth qw(:DEFAULT check_cookie_auth);
@@@ -89,12 -89,7 +89,12 @@@ my ($template, $borrowernumber, $cookie
  });
  
  my ($op, @errors, @tags);
 -$op   = lc($input->param('op')) || 'none';
 +
 +foreach (qw( approve reject test )) {
 +    $op = $_ if ( $input->param("op-$_") );
 +}
 +$op ||= 'none';
 +
  @tags = $input->param('tags');
  
  $borrowernumber == 0 and push @errors, {op_zero=>1};