[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Fri, 17 Aug 2007 22:27:01 -0000
albertel Fri Aug 17 18:27:01 2007 EDT
Modified files:
/loncom/interface lonindexer.pm
Log:
- tabination
- style
- &mt
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.177 loncom/interface/lonindexer.pm:1.178
--- loncom/interface/lonindexer.pm:1.177 Fri Aug 17 17:33:19 2007
+++ loncom/interface/lonindexer.pm Fri Aug 17 18:27:00 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.177 2007/08/17 21:33:19 banghart Exp $
+# $Id: lonindexer.pm,v 1.178 2007/08/17 22:27:00 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -477,29 +477,31 @@
</tr>
</table>
<input type="hidden" name="attrs" value="1" />
-<label>
END
-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>
+ 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;
+ my $type_element=
+ &Apache::loncommon::select_form($typeselect,'only',
+ %select_file_categories);
+ $type_element = '<label>'.&mt('File Type Displayed: [_1]',
+ $type_element).'</label>';
+ $r->print(<<END);
+$type_element
<br />
<input type="submit" name="updatedisplay" value="$lt{'ud'}" />
<input type="hidden" name="acts" value="" />
$closebutton $groupimportbutton
END
$r->print(&Apache::loncommon::inhibit_menu_check('input'));
+
# -------------- Filter out sequence containment in crumbs and "recent folders"
my $storeuri=$uri;
$storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1];