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

[matthew]

matthew		Tue May 18 14:12:20 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemstatistics.pm 
  Log:
  More commented out code for data mining - the response types used in each
  problem part can no be reported.
  
  
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.85 loncom/interface/statistics/lonproblemstatistics.pm:1.86
--- loncom/interface/statistics/lonproblemstatistics.pm:1.85	Fri May 14 16:30:17 2004
+++ loncom/interface/statistics/lonproblemstatistics.pm	Tue May 18 14:12:19 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemstatistics.pm,v 1.85 2004/05/14 20:30:17 matthew Exp $
+# $Id: lonproblemstatistics.pm,v 1.86 2004/05/18 18:12:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -298,6 +298,17 @@
 #             selectable => 'no',
 #             defaultselected => 'yes',
 #            },
+##   resptypes included for research purposes.  Commented out most of the time.
+#           { name => 'resptypes',
+#             title => 'Response Types',
+#             align => 'left',
+#             color => '#FFFFFF',
+#             sortable => 'no',
+#             graphable => 'no',
+#             long_title => 'Response Types used in this problem',
+#             selectable => 'no',
+#             defaultselected => 'yes',
+#            },
 );
 
 my @SeqFields = (
@@ -1519,6 +1530,7 @@
 #        &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);
 #    $data->{'opendate'} = 
 #        &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);
+#    $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}});
     return $data;
 }