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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 01 Oct 2002 06:21:23 -0000


albertel		Tue Oct  1 02:21:23 2002 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - fixes BUG#799, &EXT seems to not properly handle a 
  resource.0.weight.type request
  
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.69 loncom/interface/lonparmset.pm:1.70
--- loncom/interface/lonparmset.pm:1.69	Sat Sep  7 14:48:26 2002
+++ loncom/interface/lonparmset.pm	Tue Oct  1 02:21:23 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.69 2002/09/07 18:48:26 www Exp $
+# $Id: lonparmset.pm,v 1.70 2002/10/01 06:21:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -449,8 +449,11 @@
     }
     my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$symbp{$rid});
-    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
-                                      '.'.$$name{$which}.'.type',$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];
     $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
                   &valout($sessionval,$sessionvaltype).'&nbsp;'.
                   '</font></td>');