");
- while ($count < $indent) {
- $r->print("\n");
+
+ if ($indent < 11) {
+ $r->print("\n");
+ } else {
+ my $ten = int($indent/10.);
+ my $rem = $indent%10.0;
+ my $count = 0;
+ while ($count < $ten) {
+ $r->print("\n");
$count++;
+ }
+ $r->print("\n") if $rem > 0;
}
- $r->print("\n");
+
$r->print("\n");
- $r->print(" ",$listname,"");
- my $metafile = '/home/httpd/html'.$filelink.'.meta';
+ $r->print(" ",$listname,"\n");
+ my $metafile = grep /^$filecom[0]\.meta\&/, @list;
- $r->print (" (metadata) ") if (-e $metafile);
+ $r->print (" (metadata) ") if ($metafile == 1);
-# $r->print(" (metadata)") if (-e $metafile);
$r=>print(" | \n");
$r->print(" ",$filecom[8]," | \n") if $ENV{'form.attr0'} == 1;
$r->print(" ".(localtime($filecom[9]))." | \n") if $ENV{'form.attr1'} == 1;
$r->print(" ".(localtime($filecom[10]))." | \n") if $ENV{'form.attr2'} == 1;
if ($ENV{'form.attr3'} == 1) {
- my $author = &Apache::lonnet::metadata($filelink,'author');
+ my $author = &Apache::lonnet::metadata($filelink,'author') if ($metafile == 1);
$author = ' ' if (!$author);
$r->print(" ".$author." | \n");
}
if ($ENV{'form.attr4'} == 1) {
- my $keywords = &Apache::lonnet::metadata($filelink,'keywords');
+ my $keywords = &Apache::lonnet::metadata($filelink,'keywords') if ($metafile == 1);
$keywords = ' ' if (!$keywords);
$r->print(" ".$keywords." | \n");
}
if ($ENV{'form.attr5'} == 1) {
- my $lang = &Apache::lonnet::metadata($filelink,'language');
+ my $lang = &Apache::lonnet::metadata($filelink,'language') if ($metafile == 1);
$lang = $language{$lang};
$lang = ' ' if (!$lang);
$r->print(" ".$lang." | \n");
@@ -320,19 +340,27 @@ sub display_line{
my @file_ext = split (/\./,$listname);
my $curfext = $file_ext[scalar(@file_ext)-1];
my $curdir = $startdir.$filecom[0].'/';
+ my $anchor = $curdir;
+ $anchor =~ s/\///g;
$r->print("