version 1.177, 2007/08/17 21:33:19
|
version 1.178, 2007/08/17 22:27:00
|
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 |
my @file_categories = &Apache::loncommon::filecategories(); |
my @file_categories = &Apache::loncommon::filecategories(); |
my %select_file_categories; |
my %select_file_categories; |
my @select_form_order = (''); |
my @select_form_order = (''); |
$select_file_categories{''} = 'All file types'; |
$select_file_categories{''} = '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} = $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; |
$r->print(&Apache::loncommon::select_form($typeselect,'only', |
my $type_element= |
%select_file_categories |
&Apache::loncommon::select_form($typeselect,'only', |
)); |
%select_file_categories); |
$r->print(<<END); |
$type_element = '<label>'.&mt('File Type Displayed: [_1]', |
File Type Displayed</label> |
$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]; |