[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm
banghart
lon-capa-cvs-allow@mail.lon-capa.org
Wed, 20 Jun 2007 18:38:44 -0000
banghart Wed Jun 20 14:38:44 2007 EDT
Modified files:
/loncom/interface lonindexer.pm
Log:
Quote html tag attributes.
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.158 loncom/interface/lonindexer.pm:1.159
--- loncom/interface/lonindexer.pm:1.158 Wed Mar 7 20:58:45 2007
+++ loncom/interface/lonindexer.pm Wed Jun 20 14:38:44 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.158 2007/03/08 01:58:45 albertel Exp $
+# $Id: lonindexer.pm,v 1.159 2007/06/20 18:38:44 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -812,7 +812,7 @@
$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1];
$updir=~s/\/+/\//g;
- $r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
+ $r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield");
$r->print("<td>\n");
$r->print ('<form method="post" name="dirpathUP" action="'.$updir.
'/" '.
@@ -840,7 +840,7 @@
if ($filecom[1] eq 'domain') {
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n")
if ($env{'form.dirPointer'} eq "on");
- $r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
+ $r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield");
$r->print("<td>");
&begin_form ($r,$filecom[0]);
my $anchor = $filecom[0];
@@ -866,7 +866,7 @@
# display user directory
}
if ($filecom[1] eq 'user') {
- $r->print("<tr valign=$valign bgcolor=$fileclr>$extrafield");
+ $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield");
$r->print("<td nowrap>\n");
my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;
@@ -907,7 +907,7 @@
}
# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);
- $r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='nowrap' valign='top'>");
+ $r->print("<tr valign='$valign' bgcolor=\"$fileclr\"><td nowrap='nowrap' valign='top'>");
if ($env{'form.catalogmode'} eq 'interactive') {
my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
@@ -1072,7 +1072,7 @@
my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;
$anchor =~ s/\///g;
- $r->print("<tr bgcolor=$fileclr>$extrafield<td valign=$valign>");
+ $r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
&begin_form ($r,$curdir);
my $indentm1 = $indent-1;
if ($indentm1 < 11 and $indentm1 > 0) {