--- loncom/interface/loncoursedata.pm 2003/03/27 19:29:36 1.63 +++ loncom/interface/loncoursedata.pm 2003/03/28 18:14:59 1.65 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.63 2003/03/27 19:29:36 matthew Exp $ +# $Id: loncoursedata.pm,v 1.65 2003/03/28 18:14:59 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -104,7 +104,7 @@ sub get_sequence_assessment_data { my $fn=$ENV{'request.course.fn'}; ## ## use navmaps - my $navmap = Apache::lonnavmaps::navmap->new(Apache->request,$fn.".db", + my $navmap = Apache::lonnavmaps::navmap->new($fn.".db", $fn."_parms.db",1,0); if (!defined($navmap)) { return 'Can not open Coursemap'; @@ -1150,6 +1150,43 @@ the students you are concerned with prio Inputs: $students, $symb, $part, $courseid +=over 4 + +=item $students is an array of hash references. +Each hash must contain at least the 'username' and 'domain' of a student. + +=item $symb is the symb for the problem. + +=item $part is the part id you need statistics for + +=item $courseid is the course id, of course! + +=back + +Outputs: See the code for up to date information. + +=over 4 + +=item $num The number of students attempting the problem + +=item $tries The total number of tries for the students + +=item $mod The maximum number of tries taken + +=item $mean The average number of tries + +=item $Solved The number of students able to solve the problem + +=item $solved The number of students whose answer is 'correct_by_override' + +=item $DegOfDiff The degree of difficulty of the problem + +=item $STD The standard deviation of the number of tries + +=item $SKEW The skew of the number of tries + +=back + =cut ################################################ @@ -1182,6 +1219,14 @@ sub get_problem_statistics { 'CREATE TEMPORARY TABLE '.$stats_table. ' SELECT student_id,solved,award,tries FROM '.$performance_table. ' WHERE symb_id='.$symb_id.' AND part_id='.$part_id; + if (defined($students)) { + $request .= ' AND ('. + join(' OR ', map {'student_id='. + &get_student_id($_->{'username'}, + $_->{'domain'}) + } @$students + ).')'; + } # &Apache::lonnet::logthis($request); $dbh->do($request); my ($num,$tries,$mod,$mean,$STD) = &execute_SQL_request