|
Lines 623-629
for (my $i=0;$i<@servers;$i++) {
Link Here
|
| 623 |
my $query_cgi_history = $cgi->url(-query=>1); |
623 |
my $query_cgi_history = $cgi->url(-query=>1); |
| 624 |
$query_cgi_history =~ s/^$path_info\?//; |
624 |
$query_cgi_history =~ s/^$path_info\?//; |
| 625 |
$query_cgi_history =~ s/;/&/g; |
625 |
$query_cgi_history =~ s/;/&/g; |
| 626 |
my $query_desc_history = join ", ", grep { defined $_ } $query_desc, $limit_desc; |
626 |
|
|
|
627 |
$query_desc ||= q{}; |
| 628 |
$limit_desc ||= q{}; |
| 629 |
my $query_desc_history = "$query_desc, $limit_desc"; |
| 627 |
|
630 |
|
| 628 |
if (!$borrowernumber || $borrowernumber eq '') { |
631 |
if (!$borrowernumber || $borrowernumber eq '') { |
| 629 |
# To a cookie (the user is not logged in) |
632 |
# To a cookie (the user is not logged in) |
| 630 |
- |
|
|