loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2001/12/11 02:18:13	version 1.110, 2001/12/11 03:18:39
Line 28	Line 28
# YEAR=2001	# YEAR=2001
# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison	# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison
# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison	# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison
# 10/12,10/14,10/15,10/16,11/28,11/29 Scott Harrison	# 10/12,10/14,10/15,10/16,11/28,11/29,12/10 Scott Harrison
#	#
###	###

Line 122 sub BEGIN {	Line 122 sub BEGIN {
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
'/filetypes.tab');	'/filetypes.tab');
while (<$fh>) {	while (<$fh>) {
$_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/; chomp;	if (/^\S/ and !/^\#/) {
$mimetag{$1}=".$1 $3";	$_=~/(\S+)\s+(\S+)\s+([\S\s\-]+)/; chomp;
	$mimetag{$1}=".$1 $3";
	}
}	}
}	}
{	{
Line 231 END	Line 233 END
$scrout.=&searchphrasefield('Limit by abstract','abstract',	$scrout.=&searchphrasefield('Limit by abstract','abstract',
$ENV{'form.abstract'});	$ENV{'form.abstract'});

$ENV{'form.mime'}='notxxx' unless length($ENV{'form.mime'});	$ENV{'form.mime'}='any' unless length($ENV{'form.mime'});
$scrout.=&selectbox('Limit by MIME type','mime',	$scrout.=&selectbox('Limit by MIME type','mime',
$ENV{'form.mime'},%mimetag);	$ENV{'form.mime'},%mimetag);