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

Diff for /loncom/homework/inputtags.pm between versions 1.202 and 1.204

version 1.202, 2006/07/19 19:54:30 version 1.204, 2006/07/20 21:48:07
Line 283  sub start_textline { Line 283  sub start_textline {
  $Apache::lonxml::evaluate--;   $Apache::lonxml::evaluate--;
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
  my $id=$Apache::inputtags::response[-1];   my $id=$Apache::inputtags::response[-1];
  if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER'   if (!&Apache::response::show_answer()) {
     || lc($Apache::lonhomework::problemstatus) eq 'no'  
     || ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER'   
  && $Apache::lonhomework::history{"resource.$partid.solved"} !~ /^correct/ )) {  
     my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);      my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
     my $maxlength;      my $maxlength;
     if ($size eq '') { $size=20; } else {      if ($size eq '') { $size=20; } else {
Line 553  sub decideoutput { Line 550  sub decideoutput {
  ('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade")));   ('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade")));
           
     my $computer = ($handgrade)? ''      my $computer = ($handgrade)? ''
                        : " ".                         : " ".&mt("Computer's answer now shown above.");
        (($Apache::lonhomework::type eq 'exam')?  
                                 " ".&mt("Your answer now shown above."):   
  " ".&mt("Computer's answer now shown above."));  
     &Apache::lonxml::debug("handgrade has :$handgrade:");      &Apache::lonxml::debug("handgrade has :$handgrade:");
   
     if ($previous) { $previousmsg=&mt('You have entered that answer before'); }      if ($previous) { $previousmsg=&mt('You have entered that answer before'); }
Removed from v.1.202  
changed lines
  Added in v.1.204

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