version 1.79, 2003/10/24 21:09:24
|
version 1.82, 2003/12/22 18:58:26
|
Line 83 my @Only = ();
|
Line 83 my @Only = ();
|
my @Omit = (); |
my @Omit = (); |
|
|
|
|
|
# ------------------------------------------------------- Puts directory header |
|
|
|
sub crumbs { |
|
my $uri=shift; |
|
my $output='<br /><tt><b><font size="+2">/'; |
|
my $path='/'; |
|
foreach (split('/',$uri)) { |
|
unless ($_) { next; } |
|
$path.=$_.'/'; |
|
$output.='<a href="'.$path.'">'.$_.'</a>/'; |
|
} |
|
return $output.'</font></b></tt><br />'; |
|
} |
|
|
# ----------------------------- Handling routine called via Apache and mod_perl |
# ----------------------------- Handling routine called via Apache and mod_perl |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 432 $r->print(&Apache::loncommon::bodytag('B
|
Line 446 $r->print(&Apache::loncommon::bodytag('B
|
'av' => 'All versions', |
'av' => 'All versions', |
'ud' => 'Update Display' |
'ud' => 'Update Display' |
); |
); |
|
my $Displayfileattributes=&mt('Display file attributes'); |
$r->print(<<END); |
$r->print(<<END); |
<form method="post" name="fileattr" action="$uri" |
<form method="post" name="fileattr" action="$uri" |
enctype="application/x-www-form-urlencoded"> |
enctype="application/x-www-form-urlencoded"> |
<b><font color="#666666">Display file attributes</font></b><br /> |
<b><font color="#666666">$Displayfileattributes</font></b><br /> |
<table border=0><tr> |
<table border=0><tr> |
<td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> $lt{'ti'}</td> |
<td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> $lt{'ti'}</td> |
<td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> $lt{'si'}</td> |
<td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> $lt{'si'}</td> |
Line 457 $closebutton
|
Line 472 $closebutton
|
$groupimportbutton |
$groupimportbutton |
</form> |
</form> |
END |
END |
|
# ---------------------------------------------------------------- Bread crumbs |
|
$r->print(&crumbs($uri)); |
# ----------------- output starting row to the indexed file/directory hierarchy |
# ----------------- output starting row to the indexed file/directory hierarchy |
my $titleclr="#ddffff"; |
my $titleclr="#ddffff"; |
# $r->print(&initdebug()); |
# $r->print(&initdebug()); |
Line 684 sub match_ext {
|
Line 700 sub match_ext {
|
push @trimlist,$line; |
push @trimlist,$line; |
} |
} |
} |
} |
@trimlist = sort (@trimlist); |
@trimlist = sort {uc($a) cmp uc($b)} (@trimlist); |
return @trimlist; |
return @trimlist; |
} |
} |
|
|