--- loncom/homework/lonsimpleproblemedit.pm	2009/09/24 00:50:03	1.26
+++ loncom/homework/lonsimpleproblemedit.pm	2009/10/16 17:23:51	1.28
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Problem Parameter Setting "Editor"
 #
-# $Id: lonsimpleproblemedit.pm,v 1.26 2009/09/24 00:50:03 truskell Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.28 2009/10/16 17:23:51 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,7 +40,6 @@ use LONCAPA;
 
 my %qparms;
 my $prefix;
-my $weightprefix;
 my $qtype;
 
 sub evaloptionhash {
@@ -142,11 +141,11 @@ sub foil {
     my $spell_link=
 	&Apache::lonhtmlcommon::spelllink('simpleedit',"text$number");
     return (<<ENDFOIL);
-<table bgcolor="#dd55ff" cellspacing="4" cellpadding="2">
+<table bgcolor="#E8D8EE" cellspacing="2" cellpadding="1">
 <tr><td colspan="2"><b>$lt{'foil'}</b></td></tr>
 <tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr>
 <tr><td colspan="2">$lt{'text'}:<br />
-<textarea style="width:100%" name="text$number" cols="80" rows="4">$text</textarea>
+<textarea style="width:99%" name="text$number" cols="80" rows="4">$text</textarea>
 <br />$spell_link
 </td></tr>
 </table>
@@ -193,7 +192,7 @@ sub handler {
 # ------------------------------------------------ Prefix for everything stored
     $prefix=$env{'request.course.id'}.'.'.$symb.'.0.';
 #------------------------------------------------- Prefix for storing weight of Problem Parts
-    $weightprefix=$env{'request.course.id'}.'.'.$symb.'.';
+    my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.';
     
 # ---------------------------------------------------------- Anything to store?
 
@@ -319,7 +318,7 @@ sub handler {
 ': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />&nbsp;&nbsp;'.
 		      &Apache::loncommon::select_form
 		      ($randomize,'randomize',%randomizes).
-		  '</td></tr><tr><td bgcolor="#AAAAAA">');
+		  '</td></tr><tr><td bgcolor="#F0F0F0">');
 # Option Response: Options
 	    if ($qtype eq 'option') {
 		my $options=$qparms{$prefix.'options'};