loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2001/03/15 19:53:24	version 1.34, 2001/03/15 20:11:18
Line 471 sub basicsearch {	Line 471 sub basicsearch {

$query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'";	$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,$concatarg,$reply);
return OK;	return OK;
}	}

Line 521 RESULTS	Line 521 RESULTS

# ----------------------------- format and output results based on a reply list	# ----------------------------- format and output results based on a reply list
sub output_results {	sub output_results {
my ($r,$envhash,@replylist)=@_;	my ($r,$envhash,$testval,@replylist)=@_;
my %ENV=%{$envhash};	my %ENV=%{$envhash};
foreach my $reply (@replylist) {	foreach my $reply (@replylist) {

Line 628 SCRIPT	Line 628 SCRIPT
<body bgcolor="#ffffff">	<body bgcolor="#ffffff">
<img align=right src=/adm/lonIcons/lonlogos.gif>	<img align=right src=/adm/lonIcons/lonlogos.gif>
<h1>Search Catalog</h1>	<h1>Search Catalog</h1>
	$testval
<form method="post" action="/adm/searchcat">	<form method="post" action="/adm/searchcat">
<input type='button' value='Revise search request'	<input type='button' value='Revise search request'
onClick='this.form.submit();'>	onClick='this.form.submit();'>