[BACK]Return to hint.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/hint.pm between versions 1.28 and 1.29

version 1.28, 2002/10/14 20:42:57 version 1.29, 2002/10/25 19:02:38
Line 33  use Apache::lonnet; Line 33  use Apache::lonnet;
 use capa;  use capa;
   
 BEGIN {  BEGIN {
   &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint','stringhint','formulahint'));    &Apache::lonxml::register('Apache::hinttags',('hintgroup','hintpart','numericalhint','stringhint','formulahint','optionhint','radiobuttonhint'));
 }  }
   
   
Line 232  sub start_hintpart { Line 232  sub start_hintpart {
 }  }
   
 sub end_hintpart {  sub end_hintpart {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $result;      my $result;
   if ($target eq 'edit') { $result.=&Apache::edit::end_table; }      if ($target eq 'edit') { $result.=&Apache::edit::end_table; }
   return $result;      return $result;
   }
   
   sub start_optionhint {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       my $result;
       return $result;
   }
   
   sub end_optionhint {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       my $result;
       if ($target eq 'edit') { $result.=&Apache::edit::end_table; }
       return $result;
   }
   
   sub start_radiobuttonhint {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       my $result;
       &Apache::response::start_hintresponse($parstack,$safeeval);
       if ($target eq 'edit') {
    $result.=&Apache::edit::tag_start($target,$token);
    $result.=&Apache::edit::text_arg('Name:','name',$token);
    $result.=&Apache::edit::text_arg('Answer:','answer',$token);
       } elsif ($target eq 'modified') {
    my $constructtag=&Apache::edit::get_new_args($token,$parstack,
        $safeeval,'name',
        'answer');
    if ($constructtag) {
       $result  = &Apache::edit::rebuild_tag($token);
       $result .= &Apache::edit::handle_insert();
    }
       } elsif ($target eq 'meta') {
    $result=&Apache::response::meta_package_write('numericalhint');
       }
       return $result;
 }  }
   
   sub end_radiobuttonhint {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       my $result;
       if ($target eq 'web') {
    my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
    my @answer;
    my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval);
    eval('@answer ='.$answer);
    my $partid=$Apache::inputtags::part;
    #id submissions occured under
    my $submitid=$Apache::inputtags::response['-2'];
    my $part_id="$partid.$submitid";
    my $response = $Apache::lonhomework::history{
       "resource.$part_id.submission"};
    ($response)=&Apache::lonnet::str2hash($response);
    if ($answer[0] eq 'foil' && $response eq $answer[1]) {
       push (@Apache::hint::which,$name);
    } elsif ($answer[0] eq 'concept') {
       if (ref($Apache::hint::radiobutton{"$part_id.concept.".$answer[1]})) {
    my @names=@{ $Apache::hint::radiobutton{"$part_id.concept.".$answer[1]} };
    if (grep(/^\Q$response\E$/,@names)) {
       push(@Apache::hint::which,$name);
    }
       }
    }
       } elsif ($target eq 'edit') { $result.=&Apache::edit::end_table; }
       &Apache::response::end_hintresponse();
       return $result;
   }
 1;  1;
 __END__  __END__
Removed from v.1.28  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>