From f00434c14d7a98eded1e3af3ab123a35821bfcde Mon Sep 17 00:00:00 2001 From: Mirko Tietgen <5p4m@gmx.de> Date: Wed, 11 Jul 2012 13:08:10 +0200 Subject: [PATCH] [PATCH] Bug 8413 Space in barcodes breaks GET request in benchmark_staff.pl Content-Type: text/plain; charset="utf-8" GET requests in benchmark_staff.pl test 6 do not work if a space character is part of the barcode. That seems highly unlikely to happen in barcodes, but is possible if no real barcodes are used but a substitute, like a copy of the call number. Space character needs to be changed to %20 for the request to work. Also fixes a typo. --- misc/load_testing/benchmark_staff.pl | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/misc/load_testing/benchmark_staff.pl b/misc/load_testing/benchmark_staff.pl index ba659c9..1d225d9 100644 --- a/misc/load_testing/benchmark_staff.pl +++ b/misc/load_testing/benchmark_staff.pl @@ -18,6 +18,7 @@ use Data::Dumper; use HTTP::Cookies; use C4::Context; use C4::Debug; +use URI::Escape; my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print); GetOptions( @@ -241,7 +242,7 @@ if ($steps=~ /4/) { my $b2 = HTTPD::Bench::ApacheBench->new; $b2->concurrency( $concurrency ); unless ($short_print) { - print "Step 5: patron detail page "; + print "Step 4: patron detail page "; } my $run2 = HTTPD::Bench::ApacheBench::Run->new ({ urls => \@borrowers, @@ -324,7 +325,7 @@ if ($steps=~ /6/) { until ($rand_barcode) { my $rand_itemnumber = int(rand($itemnumber_max)+1); $sth->execute($rand_itemnumber); - ($rand_barcode) = $sth->fetchrow(); + ($rand_barcode) = uri_escape_utf8($sth->fetchrow()); } push @issues,"$baseurl/circ/circulation.pl?borrowernumber=$rand_borrowernumber&barcode=$rand_barcode&issueconfirmed=1"; push @returns,"$baseurl/circ/returns.pl?barcode=$rand_barcode"; -- 1.7.2.5