--- loncom/homework/lonhomework.pm 2002/11/10 15:39:37 1.100 +++ loncom/homework/lonhomework.pm 2002/12/11 15:33:55 1.105 @@ -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.105 2002/12/11 15:33:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -144,7 +144,7 @@ $Apache::lonxml::browse=''; sub check_access { my ($id) = @_; my $date =''; - my $status = ''; + my $status; my $datemsg = ''; my $lastdate = ''; my $temp; @@ -156,6 +156,12 @@ sub check_access { $lastdate = $date; $date = &Apache::lonnet::EXT("resource.$id.$temp"); my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); + if ($thistype =~ /^(con_lost|no_such_host)/ || + $date =~ /^(con_lost|no_such_host)/) { + $status='UNAVAILABLE'; + $date="may open later."; + return($status,$date); + } if ($thistype eq 'date_interval') { if ($temp eq 'opendate') { $date=&Apache::lonnet::EXT("resource.$id.duedate")-$date; @@ -309,14 +315,56 @@ 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'}; + &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(''); + foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { + $request->print(''); + } + } + &Apache::lonhomework::showhash(%overall); + return $result; } sub editxmlmode { @@ -422,7 +470,7 @@ sub get_template_list { $result=$file; last; } else { - push (@allnames, $name); + if ($name) { push (@allnames, $name); } } } if (@allnames && !$result) { @@ -458,18 +506,21 @@ sub newproblem { my $url=$request->uri; my $dest = &Apache::lonnet::filelocation("",$request->uri); my $instructions; - if ($templatelist) { $instructions=", select a template from the pull-down menu below. Then";} + if ($templatelist) { $instructions=", select a template from the pull-down menu below.
Then";} $request->print(< -The requested file $url doesn\'t exist.
-To create a new $extension$instructions click on the Create $extension button. -
+

Creating a new $extension resource

+The requested file $url currently does not exist. +

+To create a new $extension$instructions click on the "Create $extension" button. +

+

ENDNEWPROBLEM if (defined($templatelist)) { $request->print(""); } $request->print("
"); - $request->print(""); + $request->print("

"); } return ''; }
Part '.$part.'
'.join('',@{ $answer }). + '