--- loncom/interface/lonindexer.pm 2008/08/01 14:53:42 1.181
+++ loncom/interface/lonindexer.pm 2008/12/05 10:23:56 1.184
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.181 2008/08/01 14:53:42 bisitz Exp $
+# $Id: lonindexer.pm,v 1.184 2008/12/05 10:23:56 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -104,7 +104,7 @@ sub handler {
my $lonhost = $r->dir_config('lonHostID');
my $tabdir = $r->dir_config('lonTabDir');
- my $fileclr='#ffffe6';
+#SB my $fileclr='#ffffe6';
my $line;
my (@attrchk,@openpath,$typeselect);
my $uri=$r->uri;
@@ -177,7 +177,8 @@ ENDSUBM
# --------------------- define extra fields and buttons in case of special mode
if ($env{'form.catalogmode'} eq 'interactive') {
- $extrafield='
+$lt{'hd'}
$tabtag");
+ $r->print(&Apache::loncommon::end_data_table_row());
return OK;
}
# Do we have permission to look at this?
@@ -868,13 +875,15 @@ sub display_line {
if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }
# make absolute links appear on different background
- if ($absolute) { $fileclr='#ccdd99'; }
+#SB if ($absolute) { $fileclr='#ccdd99'; }
# display domain
if ($filecom[1] eq 'domain') {
$r->print (' '."\n")
if ($env{'form.dirPointer'} eq "on");
- $r->print("$extrafield");
+#SB $r->print(" $extrafield");
+ $r->print(&Apache::loncommon::start_data_table_row()); # valign="$valign" ?!?"
+ $r->print($extrafield);
$r->print("");
&begin_form ($r,$filecom[0]);
my $anchor = $filecom[0];
@@ -894,7 +903,8 @@ sub display_line {
$r->print("(".&Apache::lonnet::domain($listname,'description').
")");
}
- $r->print ("$tabtag \n");
+ $r->print("$tabtag");
+ $r->print(&Apache::loncommon::end_data_table_row());
return OK;
# display user directory
@@ -904,7 +914,9 @@ sub display_line {
my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;
$anchor =~ s/\W//g;
- $r->print("$extrafield");
+#SB $r->print(" $extrafield");
+ $r->print(&Apache::loncommon::start_data_table_row()
+ .$extrafield.' ');
&begin_form ($r,$curdir);
$r->print (' '."\n");
@@ -921,7 +933,8 @@ sub display_line {
my $plainname=&Apache::loncommon::plainname($listname,$domain);
$r->print ($listname);
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }
- $r->print (''.$tabtag.' '."\n");
+ $r->print(''.$tabtag);
+ $r->print(&Apache::loncommon::end_data_table_row());
return OK;
}
@@ -944,7 +957,9 @@ sub display_line {
}
# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);
- $r->print("");
+#SB $r->print(" );
+ $r->print(&Apache::loncommon::start_data_table_row()); #SB valign="$valign" ?!?
+ $r->print('');
if ($env{'form.catalogmode'} eq 'interactive') {
my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
@@ -952,7 +967,7 @@ sub display_line {
$quotable_filelink,"')\">");
$r->print(" ".
"\n");
- $r->print(" ");
+ $r->print(' ');
} elsif ($env{'form.catalogmode'} eq 'import') {
$r->print("\n");
$r->print(" print("checked");
}
$r->print(" />\n");
- $r->print(" ");
+ $r->print(' ');
$hash{"pre_${fnum}_link"}=$filelink;
$hash{"pre_${fnum}_title"}=$title;
if (!$hash{"pre_${fnum}_title"}) {
@@ -1019,12 +1034,12 @@ sub display_line {
if ($filelink=~/\.(page|sequence)$/) {
$r->print('');
}
- $r->print(" \n");
+ $r->print("\n");
if ($hash{'display_attrs_0'} == 1) {
$r->print(' '.($title eq '' ? ' ' : $title).
' '."\n");
}
- $r->print(' ',
+ $r->print(' ',
$filecom[8]," \n")
if $hash{'display_attrs_1'} == 1;
$r->print(' '.
@@ -1103,7 +1118,7 @@ sub display_line {
$r->print(' '.($output eq '' ? ' ':$output).
" \n");
}
- $r->print(" \n");
+ $r->print(&Apache::loncommon::end_data_table_row());
}
# -- display directory
@@ -1111,7 +1126,10 @@ sub display_line {
my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;
$anchor =~ s/\W//g;
- $r->print("$extrafield");
+#SB $r->print(" $extrafield");
+ $r->print(&Apache::loncommon::start_data_table_row()); # SB: bgcolor suggestion: darkgrey ("LC_info_row"?!?)
+# $r->print(' ');
+ $r->print($extrafield.'');
&begin_form ($r,$curdir);
my $indentm1 = $indent-1;
if ($indentm1 < 11 and $indentm1 > 0) {
@@ -1149,7 +1167,7 @@ sub display_line {
$r->print(' '.($title eq '' ? ' ' : $title).
' '."\n");
}
- $r->print(' ',
+ $r->print(' ',
$filecom[8]," \n")
if $hash{'display_attrs_1'} == 1;
$r->print(' '.
@@ -1188,7 +1206,7 @@ sub display_line {
if ($hash{'display_attrs_7'} == 1) {
$r->print(' ');
}
- $r->print(' ');
+ $r->print(&Apache::loncommon::end_data_table_row());
}
}