version 1.176, 2007/08/17 18:14:37
|
version 1.179, 2007/08/17 22:54:36
|
Line 477 ENDHEADER
|
Line 477 ENDHEADER
|
</tr> |
</tr> |
</table> |
</table> |
<input type="hidden" name="attrs" value="1" /> |
<input type="hidden" name="attrs" value="1" /> |
<label> |
|
END |
END |
$r->print(&Apache::loncommon::filecategoryselect('only',$typeselect)); |
my @file_categories = &Apache::loncommon::filecategories(); |
$r->print(<<END); |
my %select_file_categories; |
File Type Displayed</label> |
my @select_form_order = (''); |
|
$select_file_categories{''} = &mt('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 /> |
<br /> |
<input type="submit" name="updatedisplay" value="$lt{'ud'}" /> |
<input type="submit" name="updatedisplay" value="$lt{'ud'}" /> |
<input type="hidden" name="acts" value="" /> |
<input type="hidden" name="acts" value="" /> |
$closebutton $groupimportbutton |
$closebutton $groupimportbutton |
END |
END |
$r->print(&Apache::loncommon::inhibit_menu_check('input')); |
$r->print(&Apache::loncommon::inhibit_menu_check('input')); |
|
|
# -------------- Filter out sequence containment in crumbs and "recent folders" |
# -------------- Filter out sequence containment in crumbs and "recent folders" |
my $storeuri=$uri; |
my $storeuri=$uri; |
$storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1]; |
$storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1]; |
Line 921 sub display_line {
|
Line 935 sub display_line {
|
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[-1]; |
my $curfext = $file_ext[-1]; |
if (@Omit) { |
if (@Omit) { |
foreach (@Omit) { return OK if ($curfext eq $_); } |
foreach (@Omit) { return OK if (lc($curfext) eq $_); } |
} |
} |
if (@Only) { |
if (@Only) { |
my $skip = 1; |
my $skip = 1; |
foreach (@Only) { $skip = 0 if ($curfext eq $_); } |
foreach (@Only) { $skip = 0 if (lc($curfext) eq $_); } |
return OK if ($skip > 0); |
return OK if ($skip > 0); |
} |
} |
# Set the icon for the file |
# Set the icon for the file |