version 1.51, 2002/08/20 13:01:53
|
version 1.53, 2002/12/02 17:53:24
|
Line 327 function gothere(val) {
|
Line 327 function gothere(val) {
|
</script> |
</script> |
|
|
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
|
ENDHEADER |
ENDHEADER |
|
$r->print(&Apache::loncommon::bodytag('Browse Resources')); |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
my $acts=$ENV{'form.acts'}; |
my $acts=$ENV{'form.acts'}; |
Line 372 ENDHEADER
|
Line 371 ENDHEADER
|
} |
} |
} |
} |
|
|
# ---------------------------------------------------------------- output title |
|
$r->print( |
|
'<h2><font color="#339933">The Learning<i>Online</i> Network with CAPA '. |
|
'Network Directory Browser</font></h2>'."\n"); |
|
# ---------------------------------- get state of file attributes to be showing |
# ---------------------------------- get state of file attributes to be showing |
if ($ENV{'form.attrs'} ne '') { |
if ($ENV{'form.attrs'} ne '') { |
for (my $i=0; $i<=7; $i++) { |
for (my $i=0; $i<=7; $i++) { |
Line 519 sub scanDir {
|
Line 514 sub scanDir {
|
my %dupdirs = %dirs; |
my %dupdirs = %dirs; |
my @list=&get_list($r,$startdir); |
my @list=&get_list($r,$startdir); |
foreach my $line (@list) { |
foreach my $line (@list) { |
my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5); |
my ($strip,$dom,undef,$testdir,undef)=split(/\&/,$line,5); |
next if $strip =~ /.*\.meta$/; |
next if $strip =~ /.*\.meta$/; |
my (@fileparts) = split(/\./,$strip); |
my (@fileparts) = split(/\./,$strip); |
if ($hash{'display_attrs_7'} != 1) { |
if ($hash{'display_attrs_7'} != 1) { |
Line 544 sub scanDir {
|
Line 539 sub scanDir {
|
while (my ($key,$val)= each %dupdirs) { |
while (my ($key,$val)= each %dupdirs) { |
if ($key eq $compuri and $val eq "open") { |
if ($key eq $compuri and $val eq "open") { |
$diropen = "opened"; |
$diropen = "opened"; |
delete $dupdirs{key},$dirs{$key}; |
delete($dupdirs{$key}); |
|
delete($dirs{$key}); |
} |
} |
} |
} |
} |
} |
Line 630 sub match_ext {
|
Line 626 sub match_ext {
|
# ------------------------------- displays one line in appropriate table format |
# ------------------------------- displays one line in appropriate table format |
sub display_line { |
sub display_line { |
my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
my (@pathfn, $fndir, $fnptr); |
my (@pathfn, $fndir); |
my $dirptr=16384; |
my $dirptr=16384; |
my $fileclr="#ffffe6"; |
my $fileclr="#ffffe6"; |
my $iconpath= $r->dir_config('lonIconsURL') . '/'; |
my $iconpath= $r->dir_config('lonIconsURL') . '/'; |