[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[albertel]

albertel		Mon Nov 17 15:56:30 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - From Mark Lucas, reducing the amount of red in use
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.134 loncom/interface/lonparmset.pm:1.135
--- loncom/interface/lonparmset.pm:1.134	Mon Nov 10 11:33:57 2003
+++ loncom/interface/lonparmset.pm	Mon Nov 17 15:56:30 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.134 2003/11/10 16:33:57 albertel Exp $
+# $Id: lonparmset.pm,v 1.135 2003/11/17 20:56:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1287,8 +1287,8 @@
                 my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
                 $r->print(<<ENDMAPONE);
 <center><h4>
-<font color="red">Set Defaults for All Resources in $foldermap<br />
-<i>$showtitle</i><br />
+Set Defaults for All Resources in $foldermap<br />
+<font color="red"><i>$showtitle</i></font><br />
 Specifically for
 ENDMAPONE
                 if ($uname) {
@@ -1296,17 +1296,17 @@
                       ('firstname','middlename','lastname','generation', 'id'));
                     my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
                            .$name{'lastname'}.' '.$name{'generation'};
-                    $r->print(&mt("User")." <i>$uname \($person\) </i> ".
+                    $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
                         &mt('in')." \n");
                 } else {
-                    $r->print("<i>".&mt('all').'</i> '.&mt('users in')." \n");
+                    $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
                 }
             
-                if ($csec) {$r->print(&mt("Section")." <i>$csec</i> ".
+                if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ".
 				      &mt('of')." \n")};
 
-                $r->print("<i>$coursename</i><br />");
-                $r->print("</font></h4>\n");
+                $r->print("<font color=\"red\"><i>$coursename</i></font><br />");
+                $r->print("</h4>\n");
 #---------------------------------------------------------------- print table
                 $r->print('<p><table border="2">');
                 $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
@@ -1370,21 +1370,20 @@
 	    my $setdef=&mt("Set Defaults for All Resources in Course");
             $r->print(<<ENDMAPONE);
 <center><h4>$setdef
-<font color="red">
-<i>$coursename</i><br />
+<font color="red"><i>$coursename</i></font><br />
 ENDMAPONE
             if ($uname) {
                 my %name=&Apache::lonnet::userenvironment($udom,$uname,
                   ('firstname','middlename','lastname','generation', 'id'));
                 my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
                        .$name{'lastname'}.' '.$name{'generation'};
-                $r->print(" ".&mt("User")." <i>$uname \($person\) </i> \n");
+                $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
             } else {
-                $r->print("<i>".&mt("ALL")."</i> ".&mt("USERS")." \n");
+                $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
             }
             
-            if ($csec) {$r->print(&mt("Section")." <i>$csec</i>\n")};
-            $r->print("</font></h4>\n");
+            if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
+            $r->print("</h4>\n");
 #---------------------------------------------------------------- print table
             $r->print('<p><table border="2">');
             $r->print('<tr><th>'.&mt('Parameter Name').'</th>');