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

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 06 Jul 2004 15:56:42 -0000


matthew		Tue Jul  6 11:56:42 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonsurveyreports.pm 
  Log:
  Added output of part and response ids.  Removed bogus 'mean' value from
  output in optionresponse case.
  
  
Index: loncom/interface/statistics/lonsurveyreports.pm
diff -u loncom/interface/statistics/lonsurveyreports.pm:1.1 loncom/interface/statistics/lonsurveyreports.pm:1.2
--- loncom/interface/statistics/lonsurveyreports.pm:1.1	Tue Jun 15 10:22:45 2004
+++ loncom/interface/statistics/lonsurveyreports.pm	Tue Jul  6 11:56:42 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonsurveyreports.pm,v 1.1 2004/06/15 14:22:45 matthew Exp $
+# $Id: lonsurveyreports.pm,v 1.2 2004/07/06 15:56:42 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -269,7 +269,7 @@
             $Str .= '<tr>'.
                 '<td><b>'.&mt('Total').'</b></td>'.
                 '<td>'.$data->{'_count'}.'</td>'.
-                '<td>&nbsp;</td>'.
+                '<td>'.&mt('Part [_1], Response [_2]',$partid,$respid).'</td>'.
                 '</tr>'.$/;
             if (exists($data->{'responses'}) && 
                 ref($data->{'responses'}) eq 'ARRAY') {
@@ -306,12 +306,6 @@
                         '</tr>'.$/;
                 }
                 $Str .= '<tr>'.
-                    '<td><b>'.&mt('mean').'</b></td>'.
-                    '<td>'.sprintf("%.2f",$sum/$total).'</td>'.
-                    '<td>&nbsp;</td>'.
-                    '<td>&nbsp;</td>'.
-                    '</tr>'.$/.
-                    '<tr>'.
                     '<th>'.&mt('Foil Name').'</th>'.
                     '<th>'.&mt('Text').'</th>'.
                     '<th>'.&mt('Freq').'</th>'.