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

[albertel]

albertel		Thu Oct  3 18:31:58 2002 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - tries harder to find a type when converting output
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.71 loncom/interface/lonparmset.pm:1.72
--- loncom/interface/lonparmset.pm:1.71	Tue Oct  1 03:09:05 2002
+++ loncom/interface/lonparmset.pm	Thu Oct  3 18:31:58 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.71 2002/10/01 07:09:05 albertel Exp $
+# $Id: lonparmset.pm,v 1.72 2002/10/03 22:31:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -467,6 +467,7 @@
 #                                      '.'.$$name{$which}.'.type',$symbp{$rid});
 # this seems to work
     my $sessionvaltype=$typeoutpar[$result];
+    if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
     $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
                   &valout($sessionval,$sessionvaltype).'&nbsp;'.
                   '</font></td>');