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

Diff for /loncom/homework/hint.pm between versions 1.37 and 1.38

version 1.37, 2003/04/02 18:51:11 version 1.38, 2003/04/07 23:02:06
Line 50  sub start_hintgroup { Line 50  sub start_hintgroup {
     my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");      my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");
     if ( $hinttries eq '') { $hinttries = 1; }      if ( $hinttries eq '') { $hinttries = 1; }
     &Apache::lonxml::debug("found :$id:$numtries:$hinttries:");      &Apache::lonxml::debug("found :$id:$numtries:$hinttries:");
     if ( $numtries < $hinttries ) {      if ($Apache::lonhomework::type ne 'exam') {
       $skiptoend='1';   if ( $numtries < $hinttries ) {
     } else {      $skiptoend='1';
  if ($target eq 'web' && $Apache::lonhomework::type ne 'exam') {   } else {
           $result='<table bgcolor="#dddddd"><tr><td>';      $result='<table bgcolor="#dddddd"><tr><td>';
         } elsif ($Apache::lonhomework::type eq 'exam') {  
   &Apache::lonxml::startredirection;  
  }   }
       } else {
    &Apache::lonxml::startredirection;
     }      }
     if ($skiptoend) {      if ($skiptoend) {
       &Apache::lonxml::get_all_text("/hintgroup",$parser);        &Apache::lonxml::get_all_text("/hintgroup",$parser);
Line 80  sub end_hintgroup { Line 80  sub end_hintgroup {
     my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");      my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");
     if ( $hinttries eq '') { $hinttries = 1; }      if ( $hinttries eq '') { $hinttries = 1; }
     &Apache::lonxml::debug("found :$id:$numtries:$hinttries:");      &Apache::lonxml::debug("found :$id:$numtries:$hinttries:");
     if ( $numtries >= $hinttries && $Apache::lonhomework::type ne 'exam') {      if ($Apache::lonhomework::type ne 'exam') {
       $result='</td></tr></table>';   if ( $numtries >= $hinttries ) {
     } elsif ($Apache::lonhomework::type eq 'exam') {      $result='</td></tr></table>';
       my $garbage = &Apache::lonxml::endredirection;   }
       } else {
    &Apache::lonxml::endredirection;
     }      }
   } elsif ($target eq 'edit') {    } elsif ($target eq 'edit') {
     $result.=&Apache::edit::end_table();      $result.=&Apache::edit::end_table();
Removed from v.1.37  
changed lines
  Added in v.1.38

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