loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.178, 2007/08/17 22:27:00	version 1.179, 2007/08/17 22:54:36
Line 481 END	Line 481 END
my @file_categories = &Apache::loncommon::filecategories();	my @file_categories = &Apache::loncommon::filecategories();
my %select_file_categories;	my %select_file_categories;
my @select_form_order = ('');	my @select_form_order = ('');
$select_file_categories{''} = 'All file types';	$select_file_categories{''} = &mt('All file types');
foreach my $cat (@file_categories) {	foreach my $cat (@file_categories) {
my $types = join(",",&Apache::loncommon::filecategorytypes($cat));	my $types = join(",",&Apache::loncommon::filecategorytypes($cat));
$select_file_categories{$types} = $cat;	$select_file_categories{$types} = $cat;
Line 935 sub display_line {	Line 935 sub display_line {
my @file_ext = split (/\./,$listname);	my @file_ext = split (/\./,$listname);
my $curfext = $file_ext[-1];	my $curfext = $file_ext[-1];
if (@Omit) {	if (@Omit) {
foreach (@Omit) { return OK if ($curfext eq $_); }	foreach (@Omit) { return OK if (lc($curfext) eq $_); }
}	}
if (@Only) {	if (@Only) {
my $skip = 1;	my $skip = 1;
foreach (@Only) { $skip = 0 if ($curfext eq $_); }	foreach (@Only) { $skip = 0 if (lc($curfext) eq $_); }
return OK if ($skip > 0);	return OK if ($skip > 0);
}	}
# Set the icon for the file	# Set the icon for the file