loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2001/03/15 19:47:37	version 1.39, 2001/03/15 21:42:05
Line 438 sub advancedsearch {	Line 438 sub advancedsearch {
return OK;	return OK;
}	}

$r->print(<<END);	my $query='';
Advanced searching is not yet implemented.	# my $concatarg=join('," ",',
END	# ('title', 'author', 'subject', 'notes', 'abstract'));

	$query="select * from metadata where concat(title) like '\%$ENV{'form.title'}\%'";
	my $reply=&Apache::lonnet::metadata_query($query);

	&output_results($r,$envhash,$reply);
return OK;	return OK;
}	}

Line 465 sub basicsearch {	Line 470 sub basicsearch {
return OK;	return OK;
}	}

my $query=$ENV{'form.basicexp'};	my $query='';
$query="select * from metadata where concat(title,\" \",author) like '\%$ENV{'form.basicexp'}\%'";	my $concatarg=join('," ",',
	('title', 'author', 'subject', 'notes', 'abstract'));

	$query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'";
my $reply=&Apache::lonnet::metadata_query($query);	my $reply=&Apache::lonnet::metadata_query($query);
&output_results($r,$envhash,$reply);	&output_results($r,$envhash,$reply);
return OK;	return OK;