[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm

[banghart]

banghart		Fri Aug 17 17:33:19 2007 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  	Bug 2633. I think it works now.
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.176 loncom/interface/lonindexer.pm:1.177
--- loncom/interface/lonindexer.pm:1.176	Fri Aug 17 14:14:37 2007
+++ loncom/interface/lonindexer.pm	Fri Aug 17 17:33:19 2007
@@ -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 @@
 <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 />