loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.28, 2001/03/15 19:34:37	version 1.32, 2001/03/15 19:47:37
Line 424 sub advancedsearch {	Line 424 sub advancedsearch {
my ($r,$envhash)=@_;	my ($r,$envhash)=@_;
my %ENV=%{$envhash};	my %ENV=%{$envhash};

	my $fillflag=0;
	for my $field ('title','author','subject','keywords','url','version',
	'notes','abstract','mime','language','owner',
	'custommetadata') {
	if (&filled($ENV{'form.basicexp'})) {
	$fillflag++;
	}
	}

	unless ($fillflag) {
	&output_blank_field_error($r);
	return OK;
	}

$r->print(<<END);	$r->print(<<END);
Advanced searching is not yet implemented.	Advanced searching is not yet implemented.
END	END
Line 432 END	Line 446 END

# ---------------------------------------------------- see if a field is filled	# ---------------------------------------------------- see if a field is filled
sub filled {	sub filled {
if (/\S/) {	my ($field)=@_;
	if ($field=~/\S/) {
return 1;	return 1;
}	}
else {	else {