--- loncom/homework/lonhomework.pm 2002/09/26 16:54:36 1.92 +++ loncom/homework/lonhomework.pm 2002/11/12 05:05:26 1.101 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.92 2002/09/26 16:54:36 bowersj2 Exp $ +# $Id: lonhomework.pm,v 1.101 2002/11/12 05:05:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -220,7 +220,7 @@ sub check_access { sub showhash { my (%hash) = @_; - &showhashsubset(\%hash,''); + &showhashsubset(\%hash,'.'); return ''; } @@ -309,14 +309,57 @@ sub handle_save_or_undo { return $error; } +sub analyze_header { + my ($request) = @_; + my $result.=' +
+ + +
+ +
+ List of possible answers: +
'; + $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'}; + srand($rndseed); + &analyze_header($request); + for(my $i;$i<$ENV{'form.numtoanalyze'};$i++) { + my $subresult=&Apache::lonnet::ssi($request->uri, + ('grade_target' => 'analyze'), + ('rndseed' => rand)); + #&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(''); + foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { + $request->print(''); + } + } + &Apache::lonhomework::showhash(%overall); + return $result; } sub editxmlmode { @@ -378,31 +421,16 @@ sub renderpage { my %mystyle; my $result = ''; - &Apache::inputtags::initialize_inputtags; - &Apache::edit::initialize_edit; + &Apache::inputtags::initialize_inputtags(); + &Apache::outputtags::initialize_outputtags(); + &Apache::edit::initialize_edit(); if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } - if ($target eq 'web') { - my ($symb)=&Apache::lonxml::whichuser(); - if ($symb eq '') { - if ($ENV{'request.state'} eq "construct") { - } else { - my $help = Apache::loncommon::help_open_topic("Ambiguous_Reference"); - $request->print("Browsing or ambiguous reference, submissions ignored $help
"); - } - } - #if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); } - } if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} - my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); - if ($default == -1) { - &Apache::lonxml::error("Unable to find default_homework.lcpm"); - $default=''; - } &Apache::lonxml::debug("Should be parsing now"); $result = &Apache::lonxml::xmlparse($request, $target, $problem, - $default.&setup_vars($target),%mystyle); + &setup_vars($target),%mystyle); #$request->print("Result follows:"); if ($target eq 'modified') { @@ -507,6 +535,7 @@ sub handler { my $request=$_[0]; # if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} + $Apache::lonxml::debug=$ENV{'user.debug'}; if (&setupheader($request)) { return OK; } $ENV{'request.uri'}=$request->uri;
Part '.$part.'
'.join('',@{ $answer }). + '