--- loncom/interface/lonindexer.pm 2007/08/17 22:27:00 1.178 +++ loncom/interface/lonindexer.pm 2008/08/01 14:53:42 1.181 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.178 2007/08/17 22:27:00 albertel Exp $ +# $Id: lonindexer.pm,v 1.181 2008/08/01 14:53:42 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -481,7 +481,7 @@ END my @file_categories = &Apache::loncommon::filecategories(); my %select_file_categories; my @select_form_order = (''); - $select_file_categories{''} = 'All file types'; + $select_file_categories{''} = &mt('All file types'); foreach my $cat (@file_categories) { my $types = join(",",&Apache::loncommon::filecategorytypes($cat)); $select_file_categories{$types} = $cat; @@ -657,7 +657,7 @@ sub scanDir { next if($strip =~ /.*\.meta$/ | $obs eq '1'); my (@fileparts) = split(/\./,$strip); if ($hash{'display_attrs_9'} != 1) { -# if not all versions to be shown + # if not all versions to be shown if (scalar(@fileparts) >= 3) { my $fext = pop @fileparts; my $ov = pop @fileparts; @@ -935,11 +935,11 @@ sub display_line { my @file_ext = split (/\./,$listname); my $curfext = $file_ext[-1]; if (@Omit) { - foreach (@Omit) { return OK if ($curfext eq $_); } + foreach (@Omit) { return OK if (lc($curfext) eq $_); } } if (@Only) { my $skip = 1; - foreach (@Only) { $skip = 0 if ($curfext eq $_); } + foreach (@Only) { $skip = 0 if (lc($curfext) eq $_); } return OK if ($skip > 0); } # Set the icon for the file @@ -1014,7 +1014,7 @@ sub display_line { &Apache::loncommon::inhibit_menu_check(\$quotable_filelink); $r->print (" (metadata) "); + " target=\"_self\">".&mt('metadata').") "); # Close form to open/close sequence if ($filelink=~/\.(page|sequence)$/) { $r->print(''); @@ -1028,10 +1028,10 @@ sub display_line { $filecom[8]," \n") if $hash{'display_attrs_1'} == 1; $r->print(' '. - (localtime($filecom[9]))." \n") + (&Apache::lonlocal::locallocaltime($filecom[9]))." \n") if $hash{'display_attrs_2'} == 1; $r->print(' '. - (localtime($filecom[10]))." \n") + (&Apache::lonlocal::locallocaltime($filecom[10]))." \n") if $hash{'display_attrs_3'} == 1; if ($hash{'display_attrs_4'} == 1) { @@ -1080,7 +1080,7 @@ sub display_line { $r->print(''."Yes "."\n"); + " target=\"_self\">".&mt('Source Code')." "."\n"); } else { #A cuddled else. :P $r->print(" \n"); } @@ -1153,10 +1153,10 @@ sub display_line { $filecom[8]," \n") if $hash{'display_attrs_1'} == 1; $r->print(' '. - (localtime($filecom[9]))." \n") + (&Apache::lonlocal::locallocaltime($filecom[9]))." \n") if $hash{'display_attrs_2'} == 1; $r->print(' '. - (localtime($filecom[10]))." \n") + (&Apache::lonlocal::locallocaltime($filecom[10]))." \n") if $hash{'display_attrs_3'} == 1; if ($hash{'display_attrs_4'} == 1) {