--- loncom/interface/lonparmset.pm	2000/11/28 15:39:52	1.18
+++ loncom/interface/lonparmset.pm	2000/12/08 17:16:37	1.19
@@ -9,7 +9,7 @@
 #
 # 10/11,10/12,10/16 Gerd Kortemeyer)
 #
-# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28 Gerd Kortemeyer
+# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,12/08 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -460,8 +460,20 @@ ENDTABLEHEADFOUR
   $r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');
     }
 	$r->print('</tr><tr>');
+         my $defbgone='';
+         my $defbgtwo='';
  	 map {
 # ------------------------------------------------------ Entry for one resource
+	     if ($defbgone eq '"E0E099"') {
+		 $defbgone='"E0E0DD"';
+             } else {
+                 $defbgone='"E0E099"';
+	     }
+	     if ($defbgtwo eq '"FFFF99"') {
+		 $defbgtwo='"FFFFDD"';
+             } else {
+                 $defbgtwo='"FFFF99"';
+	     }
 	    @outpar=();
             my $rid=$_;
             my $thistitle='';
@@ -484,7 +496,8 @@ ENDTABLEHEADFOUR
             } split(/\,/,$keyp{$rid});
 
 	    my $totalparms=scalar keys %name;
-            $r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'.
+            $r->print('<td bgcolor='.$defbgone.
+                ' rowspan='.$totalparms.'><tt><font size=-1>'.
                 join(' / ',split(/\//,$uri)).
                 '</font></tt><p><b>'.
                       $bighash{'title_'.$rid});
@@ -492,58 +505,73 @@ ENDTABLEHEADFOUR
 		$r->print(' ('.$thistitle.')');
             }
             $r->print('</b></td>');
-            $r->print('<td rowspan='.$totalparms.'>'.$typep{$rid}.'</td>');
-            $r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'.
+            $r->print('<td bgcolor='.$defbgtwo.
+                    ' rowspan='.$totalparms.'>'.$typep{$rid}.'</td>');
+            $r->print('<td bgcolor='.$defbgone.
+                    ' rowspan='.$totalparms.'><tt><font size=-1>'.
 		      join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');
             map {
-
 	       my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
 
-               $r->print("<td>$part{$_}</td><td>$display{$_}</td>");
+               $r->print("<td bgcolor=".$defbgtwo.
+                  ">$part{$_}</td><td bgcolor=".$defbgone.
+                  ">$display{$_}</td>");
                my $thismarker=$_;
                $thismarker=~s/^parameter\_//; 
                my $mprefix=$rid.'&'.$thismarker.'&';
 
-               $r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'.
+               $r->print('<td bgcolor='.
+                (($result==11)?'"#AAFFAA"':'#FFDDDD').'>'.
              &valout($outpar[11],$type{$_}).'</td>');
-               $r->print('<td'.(($result==10)?' bgcolor="#AAFFAA"':'').'>'.
+               $r->print('<td bgcolor='.
+                (($result==10)?'"#AAFFAA"':'#FFDDDD').'>'.
              &valout($outpar[10],$type{$_}).'</td>');
 
-               $r->print('<td'.(($result==9)?' bgcolor="#AAFFAA"':'').'>'.
+               $r->print('<td bgcolor='.
+                (($result==9)?'"#AAFFAA"':$defbgone).'>'.
              &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
                     'parmform.pres','psub').'</td>');
-               $r->print('<td'.(($result==8)?' bgcolor="#AAFFAA"':'').'>'.
+               $r->print('<td bgcolor='.
+                (($result==8)?'"#AAFFAA"':$defbgone).'>'.
              &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
                     'parmform.pres','psub').'</td>');
-               $r->print('<td'.(($result==7)?' bgcolor="#AAFFAA"':'').'>'.
+               $r->print('<td bgcolor='.
+                (($result==7)?'"#AAFFAA"':$defbgone).'>'.
              &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
                     'parmform.pres','psub').'</td>');
 
                if ($csec) {
-                 $r->print('<td'.(($result==6)?' bgcolor="#AAFFAA"':'').'>'.
+                 $r->print('<td bgcolor='.
+                   (($result==6)?'"#AAFFAA"':$defbgtwo).'>'.
              &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
                     'parmform.pres','psub').'</td>');
-                 $r->print('<td'.(($result==5)?' bgcolor="#AAFFAA"':'').'>'.
+                 $r->print('<td bgcolor='.
+                   (($result==5)?'"#AAFFAA"':$defbgtwo).'>'.
              &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
                     'parmform.pres','psub').'</td>');
-                 $r->print('<td'.(($result==4)?' bgcolor="#AAFFAA"':'').'>'.
+                 $r->print('<td bgcolor='.
+                    (($result==4)?'"#AAFFAA"':$defbgtwo).'>'.
              &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
                     'parmform.pres','psub').'</td>');
                }
 
                if ($uname) {
-                 $r->print('<td'.(($result==3)?' bgcolor="#AAFFAA"':'').'>'.
+                 $r->print('<td bgcolor='.
+                    (($result==3)?'"#AAFFAA"':$defbgone).'>'.
              &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
                     'parmform.pres','psub').'</td>');
-                 $r->print('<td'.(($result==2)?' bgcolor="#AAFFAA"':'').'>'.
+                 $r->print('<td bgcolor='.
+                    (($result==2)?'"#AAFFAA"':$defbgone).'>'.
              &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
                     'parmform.pres','psub').'</td>');
-                 $r->print('<td'.(($result==1)?' bgcolor="#AAFFAA"':'').'>'.
+                 $r->print('<td bgcolor='.
+                   (($result==1)?'"#AAFFAA"':$defbgone).'>'.
              &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
                     'parmform.pres','psub').'</td>');
                }
 
-               $r->print('<td>'.&valout($outpar[$result],$type{$_}).'</td>');
+               $r->print(
+        '<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');
                $r->print("</tr>\n<tr>");
 	   } sort keys %name;
 # -------------------------------------------------- End entry for one resource