Lines 42-51
my $short_psec="|-\n|ON\n";
Link Here
|
42 |
|
42 |
|
43 |
if ($help || !$baseurl || !$user || !$password) { |
43 |
if ($help || !$baseurl || !$user || !$password) { |
44 |
print <<EOF |
44 |
print <<EOF |
45 |
This script runs a benchmark of the staff interface. It benchmark 6 different pages: |
45 |
This script runs a benchmark of the staff interface. It benchmarks 6 different pages: |
46 |
\t1- the staff main page |
46 |
\t1- the staff main page |
47 |
\t2- the catalog detail page, with a random biblionumber |
47 |
\t2- the catalog detail page, with a random biblionumber |
48 |
\t3- the catalog search page, using a term retrieved from one of the 10 first title/author in the database |
48 |
\t3- the catalog search page, using a term retrieved from one of the 10 first titles/authors in the database |
49 |
\t4- the patron detail page, with a random borrowernumber |
49 |
\t4- the patron detail page, with a random borrowernumber |
50 |
\t5- the patron search page, searching for "Jean" |
50 |
\t5- the patron search page, searching for "Jean" |
51 |
\t6- the circulation itself, doing check-out and check-in of random items to random patrons |
51 |
\t6- the circulation itself, doing check-out and check-in of random items to random patrons |
Lines 125-132
$sth->execute;
Link Here
|
125 |
my ($title,$author); |
125 |
my ($title,$author); |
126 |
my @searchwords; |
126 |
my @searchwords; |
127 |
while (($title,$author)=$sth->fetchrow) { |
127 |
while (($title,$author)=$sth->fetchrow) { |
128 |
push @searchwords,split / /, $author; |
128 |
push @searchwords,split / /, $author//''; |
129 |
push @searchwords,split / /, $title; |
129 |
push @searchwords,split / /, $title//''; |
130 |
} |
130 |
} |
131 |
|
131 |
|
132 |
$sth = $dbh->prepare("select max(itemnumber) from items"); |
132 |
$sth = $dbh->prepare("select max(itemnumber) from items"); |
Lines 139-145
unless ($short_print) {
Link Here
|
139 |
print "--------------\n"; |
139 |
print "--------------\n"; |
140 |
print "Koha STAFF benchmarking utility\n"; |
140 |
print "Koha STAFF benchmarking utility\n"; |
141 |
print "--------------\n"; |
141 |
print "--------------\n"; |
142 |
print "Benchmarking with $max_tries occurences of each operation and $concurrency concurrent sessions \n"; |
142 |
print "Benchmarking with $max_tries occurrences of each operation and $concurrency concurrent sessions \n"; |
143 |
} |
143 |
} |
144 |
# |
144 |
# |
145 |
# the global benchmark we do at the end... |
145 |
# the global benchmark we do at the end... |
146 |
- |
|
|