--- loncom/homework/lonhomework.pm 2002/09/24 12:39:42 1.90 +++ 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.90 2002/09/24 12:39:42 sakharuk Exp $ +# $Id: lonhomework.pm,v 1.102 2002/11/13 23:05:46 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -125,7 +125,7 @@ sub createmenu { my ($which,$request)=@_; if ($which eq 'grade') { $request->print(''); } @@ -139,6 +139,8 @@ sub send_footer { $Apache::lonxml::browse=''; +# JB, 9/24/2002: Any changes in this function may require a change +# in lonnavmaps::resource::getDateStatus. sub check_access { my ($id) = @_; my $date =''; @@ -204,7 +206,7 @@ sub check_access { &Apache::lonxml::debug("sending back :$status:$datemsg:"); if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) { - &Apache::lonxml::debug("should be allowed to browse a resource when closed"); + &Apache::lonxml::debug("should be allowed to browse a resource when closed"); $status='CAN_ANSWER'; $datemsg='is closed but you are allowed to view it'; } @@ -218,7 +220,7 @@ sub check_access { sub showhash { my (%hash) = @_; - &showhashsubset(\%hash,''); + &showhashsubset(\%hash,'.'); return ''; } @@ -307,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.' | |
'.join(' | ',@{ $answer }). + ' |