loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2001/03/15 19:23:10	version 1.26, 2001/03/15 19:27:12
Line 430 END	Line 430 END
return OK;	return OK;
}	}

	# ---------------------------------------------------- see if a field is filled
	sub filled {
	return /\S/;
	}

# --------------------------------------------------- Performing a basic search	# --------------------------------------------------- Performing a basic search
sub basicsearch {	sub basicsearch {
my ($r,$envhash)=@_;	my ($r,$envhash)=@_;
my %ENV=%{$envhash};	my %ENV=%{$envhash};

unless (length($ENV{'form.basicexp'})) {	unless (&filled($ENV{'form.basicexp'})) {
&output_blank_field_error($r);	&output_blank_field_error($r);
return OK;	return OK;
}	}