--- loncom/interface/lonindexer.pm 2008/12/13 15:33:04 1.181.2.1
+++ 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.2.1 2008/12/13 15:33:04 raeburn 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='
'.
+#SB $extrafield=' '.
+ $extrafield=' '.
' ';
$colspan=" colspan='2' ";
@@ -187,7 +188,8 @@ ENDSUBM
END
}
elsif ($env{'form.catalogmode'} eq 'import') {
- $extrafield=''.
+#SB $extrafield=' '.
+ $extrafield=' '.
' ';
$colspan=" colspan='2' ";
@@ -450,9 +452,12 @@ ENDHEADER
'ud' => 'Update Display',
'pr' => 'Problems',
'gr' => 'Graphics',
- 'at' => 'All types'
+ 'at' => 'All types',
+ 'hd' => 'Display Options'
);
$r->print(<
+$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,8 +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);
@@ -1104,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
@@ -1112,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) {
@@ -1189,7 +1206,7 @@ sub display_line {
if ($hash{'display_attrs_7'} == 1) {
$r->print(' ');
}
- $r->print(' ');
+ $r->print(&Apache::loncommon::end_data_table_row());
}
}