version 1.202, 2009/12/01 18:07:50
|
version 1.204, 2010/03/29 22:42:58
|
Line 518 END
|
Line 518 END
|
$select_file_categories{''} = &mt('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} = &mt($cat); |
push(@select_form_order,$types); |
push(@select_form_order,$types); |
} |
} |
$select_file_categories{'select_form_order'} = \@select_form_order; |
$select_file_categories{'select_form_order'} = \@select_form_order; |
my $type_element= |
my $type_element= |
&Apache::loncommon::select_form($typeselect,'only', |
&Apache::loncommon::select_form( |
%select_file_categories); |
$typeselect, |
|
'only', |
|
%select_file_categories); |
$type_element = '<label>'.&mt('File Type Displayed: [_1]', |
$type_element = '<label>'.&mt('File Type Displayed: [_1]', |
$type_element).'</label>'; |
$type_element).'</label>'; |
$r->print($type_element |
$r->print($type_element |
Line 1221 $r->print ('<input type="hidden" name="a
|
Line 1223 $r->print ('<input type="hidden" name="a
|
|
|
my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons"); |
my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons"); |
my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif'; |
my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif'; |
$r->print ('<a href="javascript:gothere(\'' |
$r->print ('<a href="javascript:gothere(' |
.$quotable_curdir.'\')"">' |
."'$quotable_curdir'".');">' |
.'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="'. |
.'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="' |
$location."/".$icon.'" />'. |
.$location.'/'.$icon.'" />' |
"\n"); |
."\n"); |
$r->print ("$listname</a></form></td>\n"); |
$r->print ("$listname</a></form></td>\n"); |
# Attributes |
# Attributes |
my $filelink = $startdir.$filecom[0].'/default'; |
my $filelink = $startdir.$filecom[0].'/default'; |