[LON-CAPA-cvs] cvs: loncom /homework rankresponse.pm

[albertel]

albertel		Mon Nov  8 17:56:05 2004 EDT

  Modified files:              
    /loncom/homework	rankresponse.pm 
  Log:
  - BUG#3580 pass rankresponse tolerance back in analyze mode
  
  
Index: loncom/homework/rankresponse.pm
diff -u loncom/homework/rankresponse.pm:1.40 loncom/homework/rankresponse.pm:1.41
--- loncom/homework/rankresponse.pm:1.40	Thu Oct 21 02:35:57 2004
+++ loncom/homework/rankresponse.pm	Mon Nov  8 17:56:05 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # rank style response
 #
-# $Id: rankresponse.pm,v 1.40 2004/10/21 06:35:57 albertel Exp $
+# $Id: rankresponse.pm,v 1.41 2004/11/08 22:56:05 albertel Exp $
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -113,6 +113,9 @@
 	    my @shown = &whichfoils($max,$randomize);
 	    &Apache::response::analyze_store_foilgroup(\@shown,
 						  ['text','value','location']);
+	    my $part_id=
+		"$Apache::inputtags::part.$Apache::inputtags::response[-1]";
+	    $Apache::lonhomework::analyze{"$part_id.tol"}=$tol;
 	}
 	&Apache::lonxml::increment_counter(&getfoilcounts($max));
     } elsif ($target eq 'edit') {