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

[matthew]

matthew		Fri Dec  3 16:54:00 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  Restrict analysis to implemented types.
  OR_tries_analysis: No longer ISE when there are no concepts.
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.106 loncom/interface/statistics/lonproblemanalysis.pm:1.107
--- loncom/interface/statistics/lonproblemanalysis.pm:1.106	Thu Dec  2 16:53:33 2004
+++ loncom/interface/statistics/lonproblemanalysis.pm	Fri Dec  3 16:53:59 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.106 2004/12/02 21:53:33 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.107 2004/12/03 21:53:59 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -86,8 +86,8 @@
     #
     # Support for numerical and radio response isn't complete enough to
     # include in 1.2 release.
-    # my $problem_types = '(option|radiobutton|numerical)';
-    my $problem_types = '.';#(option)';
+    my $problem_types = '(option|radiobutton|numerical)';
+    # my $problem_types = '.';#(option)';
     if (exists($ENV{'form.problemchoice'}) && 
         ! exists($ENV{'form.SelectAnother'})) {
         foreach my $button (@SubmitButtons) {
@@ -1176,6 +1176,9 @@
     my $mintries = 1;
     my $maxtries = $ENV{'form.NumPlots'};
     my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
+    if (! defined($Concepts)) {
+        $Concepts = [];
+    }
     my %response_data = &OR_analyze_by_tries($r,$PerformanceData,
                                                      $mintries,$maxtries);
     my $analysis = '';