[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemstatistics.pm lonstathelpers.pm lonsurvey
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2010-02-28 23:58:55
Message-ID: cvsraeburn1267401535 () cvsserver
[Download RAW message or body]
raeburn Sun Feb 28 23:58:55 2010 EDT
Modified files:
/loncom/interface/statistics lonproblemstatistics.pm
lonstathelpers.pm lonsurveyreports.pm
Log:
- Bug 6119 Anonymous surveys.
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.117 \
loncom/interface/statistics/lonproblemstatistics.pm:1.118
--- loncom/interface/statistics/lonproblemstatistics.pm:1.117 Thu Mar 5 09:12:14 \
2009
+++ loncom/interface/statistics/lonproblemstatistics.pm Sun Feb 28 23:58:54 2010
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemstatistics.pm,v 1.117 2009/03/05 09:12:14 bisitz Exp $
+# $Id: lonproblemstatistics.pm,v 1.118 2010/02/28 23:58:54 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1457,7 +1457,7 @@
my @Data;
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) {
foreach my $part (@{$res->parts}) {
- next if ($res->is_survey($part));
+ next if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) ;
#
# This is where all the work happens
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);
Index: loncom/interface/statistics/lonstathelpers.pm
diff -u loncom/interface/statistics/lonstathelpers.pm:1.59 \
loncom/interface/statistics/lonstathelpers.pm:1.60
--- loncom/interface/statistics/lonstathelpers.pm:1.59 Wed May 6 16:19:42 2009
+++ loncom/interface/statistics/lonstathelpers.pm Sun Feb 28 23:58:55 2010
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstathelpers.pm,v 1.59 2009/05/06 16:19:42 bisitz Exp $
+# $Id: lonstathelpers.pm,v 1.60 2010/02/28 23:58:55 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -464,7 +464,8 @@
my @resources = &get_resources($navmap,$seq);
foreach my $res (@resources) {
foreach my $part (@{$res->parts}) {
- if ($res->is_survey($part) && ($granularity eq 'part_survey')){
+ if (($res->is_survey($part) || ($res->is_anonsurvey($part))) &&
+ ($granularity eq 'part_survey')) {
push (@Resource,
{ symb => $res->symb,
part => $part,
Index: loncom/interface/statistics/lonsurveyreports.pm
diff -u loncom/interface/statistics/lonsurveyreports.pm:1.23 \
loncom/interface/statistics/lonsurveyreports.pm:1.24
--- loncom/interface/statistics/lonsurveyreports.pm:1.23 Thu Jan 14 17:20:52 2010
+++ loncom/interface/statistics/lonsurveyreports.pm Sun Feb 28 23:58:55 2010
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsurveyreports.pm,v 1.23 2010/01/14 17:20:52 bisitz Exp $
+# $Id: lonsurveyreports.pm,v 1.24 2010/02/28 23:58:55 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,7 +63,7 @@
);
&Apache::loncommon::store_course_settings('survey_reports',
\%Saveable_Parameters);
- &Apache::loncommon::restore_course_settings('survey_resports',
+ &Apache::loncommon::restore_course_settings('survey_reports',
\%Saveable_Parameters);
#
&Apache::lonstatistics::PrepareClasslist();
@@ -177,7 +177,7 @@
my @resources = &Apache::lonstathelpers::get_resources($navmap,$seq);
foreach my $res (@resources) {
foreach my $part (@{$res->parts}) {
- if ($res->is_survey($part)) {
+ if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) {
push(@SurveyProblems,{res=>$res,seq=>$seq,part=>$part});
last;
}
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic