--- loncom/interface/lonindexer.pm	2007/08/17 18:14:37	1.176
+++ loncom/interface/lonindexer.pm	2007/08/17 21:33:19	1.177
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.176 2007/08/17 18:14:37 banghart Exp $
+# $Id: lonindexer.pm,v 1.177 2007/08/17 21:33:19 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -479,7 +479,19 @@ ENDHEADER
 <input type="hidden" name="attrs" value="1" />
 <label>
 END
-$r->print(&Apache::loncommon::filecategoryselect('only',$typeselect));
+my @file_categories = &Apache::loncommon::filecategories();
+my %select_file_categories;
+my @select_form_order = ('');
+$select_file_categories{''} = 'All file types';
+foreach my $cat(@file_categories) {
+    my $types = join ",",&Apache::loncommon::filecategorytypes($cat);
+    $select_file_categories{$types} = $cat;
+    push(@select_form_order,$types);
+}
+$select_file_categories{'select_form_order'} = [@select_form_order];
+$r->print(&Apache::loncommon::select_form($typeselect,'only',
+			%select_file_categories
+			));
 $r->print(<<END);
 File Type Displayed</label>
 <br />