[LON-CAPA-dev] Extracting problems from page or sequence
   
    H. K. Ng
     
    lon-capa-dev@mail.lon-capa.org
       
    Thu, 27 Feb 2003 14:42:22 -0500
    
    
  
Two problems.
1. 	    my $parts = $curRes->parts();
does not return anything?
2. I used the function below but it returns a null string. 
(&Apache::loncommon::get_student_answers($symb,$uname,$udom,$ENV{'request.course.id'} 
gave the right answer so I know the arguments are ok.)
my $subresult=&Apache::lonnet::ssi($request->uri,
				   ('grade_target' => 'analyze'),
				   ('grade_domain' => $domain),
				   ('grade_user' => $user),
				   ('grade_symb' => $symb),
				   ('grade_courseid' => $courseid));
(undef,$subresult)=split(/_HASH_REF__/,$subresult,2);
my %analyze=&Apache::lonnet::str2hash($subresult);
And %analyze is a hash containg the structure of the problem.
Looking at lonnet,
sub ssi {
     my ($fn,%form)=@_;
     my $ua=new LWP::UserAgent;
     my $request;
     if (%form) {
       $request=new HTTP::Request('POST',"http://".$ENV{'HTTP_HOST'}.$fn);
       $request->content(join('&',map { &escape($_).'='.&escape($form{$_}) 
} keys %form));
     } else {
       $request=new HTTP::Request('GET',"http://".$ENV{'HTTP_HOST'}.$fn);
     }
     $request->header(Cookie => $ENV{'HTTP_COOKIE'});
     my $response=$ua->request($request);
     return $response->content;
}
Is this the latest version. I just updated lonnet this morning.
Thanks, hk