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

[www]

www		Thu Jul 10 02:16:29 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Some bug reports regarding parameter setting are likely due to the fact
  that people try to change the resource and map level defaults. Removed
  link.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.113 loncom/interface/lonparmset.pm:1.114
--- loncom/interface/lonparmset.pm:1.113	Mon Jun 30 16:24:26 2003
+++ loncom/interface/lonparmset.pm	Thu Jul 10 02:16:29 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.113 2003/06/30 20:24:26 sakharuk Exp $
+# $Id: lonparmset.pm,v 1.114 2003/07/10 06:16:29 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -488,9 +488,15 @@
 sub print_td {
     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
-              ' align="center">'.
-              &plink($$typeoutpar[$which],$$display{$value},$$outpar[$which],
-                     $mprefix."$which",'parmform.pres','psub').'</td>'."\n");
+              ' align="center">');
+    if ($which<10) {
+	$r->print(&plink($$typeoutpar[$which],
+			 $$display{$value},$$outpar[$which],
+			 $mprefix."$which",'parmform.pres','psub'));
+    } else {
+	$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
+    }
+    $r->print('</td>'."\n");
 }
 
 sub get_env_multiple {