loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.279, 2007/01/19 14:23:23	version 1.281, 2007/03/12 17:06:15
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);
Line 2512 END	Line 2510 END
@Servers_to_contact = ($serverlist);	@Servers_to_contact = ($serverlist);
}	}
} else {	} else {
@Servers_to_contact = sort(keys(%Apache::lonnet::libserv));	my %all_library_servers = &Apache::lonnet::all_library();
	@Servers_to_contact = sort(keys(%all_library_servers));
}	}
my %Server_status;	my %Server_status;
#	#