--- loncom/homework/lonhomework.pm 2002/11/10 15:39:37 1.100
+++ loncom/homework/lonhomework.pm 2002/11/13 23:05:46 1.102
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.100 2002/11/10 15:39:37 albertel Exp $
+# $Id: lonhomework.pm,v 1.102 2002/11/13 23:05:46 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -309,14 +309,56 @@ sub handle_save_or_undo {
return $error;
}
+sub analyze_header {
+ my ($request) = @_;
+ my $result.='
+ ';
+ $request->print($result);
+ $request->rflush();
+}
+
sub analyze {
- my ($request,$file) = @_;
- &Apache::lonxml::debug("Analyze");
- my $result=&Apache::lonnet::ssi($request->uri,('grade_target' => 'analyze'));
- &Apache::lonxml::debug(":$result:");
- (my $garbage,$result)=split(/_HASH_REF__/,$result,2);
- &showhash(&Apache::lonnet::str2hash($result));
- return $result;
+ my ($request,$file) = @_;
+ &Apache::lonxml::debug("Analyze");
+ my $result;
+ my %overall;
+ my %allparts;
+ my $rndseed=$ENV{'form.rndseed'};
+ &analyze_header($request);
+ for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) {
+ my $subresult=&Apache::lonnet::ssi($request->uri,
+ ('grade_target' => 'analyze'),
+ ('rndseed' => $i));
+ &Apache::lonxml::debug(":$subresult:");
+ (my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2);
+ my %analyze=&Apache::lonnet::str2hash($subresult);
+ &Apache::lonhomework::showhash(%analyze);
+ my @parts = @{ $analyze{'parts'} };
+ foreach my $part (@parts) {
+ if (!exists($allparts{$part})) {$allparts{$part}=1;};
+ if ($analyze{$part.'.type'} eq 'numericalresponse') {
+ push( @{ $overall{$part.'.answer'} },
+ [@{ $analyze{$part.'.answer'} }]);
+ }
+ }
+ }
+ foreach my $part (keys(%allparts)) {
+ $request->print('| Part '.$part.' |
');
+ foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) {
+ $request->print('| '.join(' | ',@{ $answer }).
+ ' |
');
+ }
+ }
+ &Apache::lonhomework::showhash(%overall);
+ return $result;
}
sub editxmlmode {