version 1.279, 2007/01/19 14:23:23
|
version 1.280, 2007/03/03 01:54:00
|
Line 1532 sub parse_advanced_search {
|
Line 1532 sub parse_advanced_search {
|
if ($field ne '') { |
if ($field ne '') { |
my $value = $env{'form.addedvalues_'.$i}; |
my $value = $env{'form.addedvalues_'.$i}; |
if ($value ne '') { |
if ($value ne '') { |
$value =~ s/'/''/g; |
$value =~ s/'/''/g; #' stupid emacs |
my ($error,$query) = |
my ($error,$query) = |
&process_phrase_input($value,0,'pf.value'); |
&process_phrase_input($value,0,'pf.value'); |
if (!defined($error)) { |
if (!defined($error)) { |
Line 1673 sub parse_domain_restrictions {
|
Line 1673 sub parse_domain_restrictions {
|
foreach (sort @allowed_domains) { |
foreach (sort @allowed_domains) { |
$pretty_domains_string .= "<b>".$_."</b> "; |
$pretty_domains_string .= "<b>".$_."</b> "; |
} |
} |
foreach (keys(%Apache::lonnet::libserv)) { |
my %servers = &Apache::lonnet::get_servers(\@allowed_domains, |
if (exists($domain_hash{$Apache::lonnet::hostdom{$_}})) { |
'library'); |
push @$libraries_to_query,$_; |
$libraries_to_query = [keys(%servers)]; |
} |
|
} |
|
} |
} |
return ($libraries_to_query, |
return ($libraries_to_query, |
$pretty_domains_string); |
$pretty_domains_string); |