version 1.175, 2007/08/02 00:10:59
|
version 1.180, 2008/02/15 11:06:22
|
Line 106 sub handler {
|
Line 106 sub handler {
|
|
|
my $fileclr='#ffffe6'; |
my $fileclr='#ffffe6'; |
my $line; |
my $line; |
my (@attrchk,@openpath,%typechk); |
my (@attrchk,@openpath,$typeselect); |
my $uri=$r->uri; |
my $uri=$r->uri; |
|
|
# -------------------------------------- see if called from an interactive mode |
# -------------------------------------- see if called from an interactive mode |
Line 411 ENDHEADER
|
Line 411 ENDHEADER
|
{'domain' => $headerdom,})); |
{'domain' => $headerdom,})); |
# ---------------------------------- get state of file types to be showing |
# ---------------------------------- get state of file types to be showing |
if ($env{'form.only'}) { |
if ($env{'form.only'}) { |
if ($env{'form.only'} eq 'problem' ) { |
$typeselect = $env{'form.only'}; |
$typechk{'problem'} = 'selected'; |
|
} elsif ($env{'form.only'} eq 'gif,jpg,jpeg' ) { |
|
$typechk{'graphic'} = 'selected'; |
|
} |
|
} else { |
} else { |
$typechk{'all'} = 'selected'; |
$typeselect = ''; |
} |
} |
|
|
|
|
# ---------------------------------- get state of file attributes to be showing |
# ---------------------------------- get state of file attributes to be showing |
if ($env{'form.attrs'}) { |
if ($env{'form.attrs'}) { |
for (my $i=0; $i<=11; $i++) { |
for (my $i=0; $i<=11; $i++) { |
Line 482 ENDHEADER
|
Line 477 ENDHEADER
|
</tr> |
</tr> |
</table> |
</table> |
<input type="hidden" name="attrs" value="1" /> |
<input type="hidden" name="attrs" value="1" /> |
<label><select name="only" onClick="this.form.submit()"> |
END |
<option value='problem' $typechk{'problem'}>Problems</option> |
my @file_categories = &Apache::loncommon::filecategories(); |
<option value='gif,jpg,jpeg' $typechk{'graphic'}>Graphics</option> |
my %select_file_categories; |
<option value='' $typechk{'all'}>All</option> |
my @select_form_order = (''); |
</select>File Types Displayed</label> |
$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 926 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 |
Line 1005 sub display_line {
|
Line 1014 sub display_line {
|
&Apache::loncommon::inhibit_menu_check(\$quotable_filelink); |
&Apache::loncommon::inhibit_menu_check(\$quotable_filelink); |
$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink. |
$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink. |
"?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ". |
"?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ". |
" target=\"_self\">metadata</a>) "); |
" target=\"_self\">".&mt('metadata')."</a>) "); |
# Close form to open/close sequence |
# Close form to open/close sequence |
if ($filelink=~/\.(page|sequence)$/) { |
if ($filelink=~/\.(page|sequence)$/) { |
$r->print('</form>'); |
$r->print('</form>'); |