loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2001/03/15 21:38:52	version 1.40, 2001/03/15 21:51:21
Line 428 sub advancedsearch {	Line 428 sub advancedsearch {
for my $field ('title','author','subject','keywords','url','version',	for my $field ('title','author','subject','keywords','url','version',
'notes','abstract','mime','language','owner',	'notes','abstract','mime','language','owner',
'custommetadata') {	'custommetadata') {
if (&filled($ENV{'form.basicexp'})) {	if (&filled($ENV{"form.$field"})) {
$fillflag++;	$fillflag++;
}	}
}	}
Line 437 sub advancedsearch {	Line 437 sub advancedsearch {
&output_blank_field_error($r);	&output_blank_field_error($r);
return OK;	return OK;
}	}

	my $query='';
	# my $concatarg=join('," ",',
	# ('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);	&output_results($r,$envhash,$reply);
return OK;	return OK;
}	}
Line 462 sub basicsearch {	Line 470 sub basicsearch {
return OK;	return OK;
}	}

my $query=$ENV{'form.basicexp'};	my $query='';
my $concatarg=join('," ",',	my $concatarg=join('," ",',
('title', 'author', 'subject', 'notes', 'abstract'));	('title', 'author', 'subject', 'notes', 'abstract'));