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

[albertel]

albertel		Tue Nov 18 17:18:43 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - Mark Lucas fix for BUG#2395
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.135 loncom/interface/lonparmset.pm:1.136
--- loncom/interface/lonparmset.pm:1.135	Mon Nov 17 15:56:30 2003
+++ loncom/interface/lonparmset.pm	Tue Nov 18 17:18:42 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.135 2003/11/17 20:56:30 albertel Exp $
+# $Id: lonparmset.pm,v 1.136 2003/11/18 22:18:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -485,21 +485,23 @@
         } # end of $brief if/else
     } # end of $parmlev if/else
 
-    if ($parmlev eq 'full' || $parmlev eq 'brief') {
-        $r->print('<td bgcolor=#CCCCFF align="center">'.
+    $r->print('<td bgcolor=#CCCCFF align="center">'.
                   &valout($outpar[$result],$typeoutpar[$result]).'</td>');
-    }
-    my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
+
+    if ($parmlev eq 'full' || $parmlev eq 'brief') {
+        my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$symbp{$rid});
+
 # this doesn't seem to work, and I don't think is correct
 #    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
 #                                      '.'.$$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>'.
+        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>');
+    }
     $r->print('</tr>');
     $r->print("\n");
 }