Diff for /loncom/homework/structuretags.pm between versions 1.170 and 1.171

version 1.170, 2003/05/12 13:50:08 version 1.171, 2003/05/13 20:38:55
Line 481  sub end_problem { Line 481  sub end_problem {
    ) {     ) {
     if ($status eq 'CAN_ANSWER') {      if ($status eq 'CAN_ANSWER') {
  if ($target ne 'tex') {   if ($target ne 'tex') {
     $result.="</form></body>\n";      if ($ENV{'form.print_answer'} ne 'yes') {$result.="</form></body>\n";}
  }   }
     } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' ||      } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' ||
      $status eq 'UNCHECKEDOUT' ) {       $status eq 'UNCHECKEDOUT' ) {
Line 505  sub end_problem { Line 505  sub end_problem {
     &finalize_storage();      &finalize_storage();
  }   }
  if ($target eq 'answer' && ($ENV{'request.state'} eq 'construct') ) {   if ($target eq 'answer' && ($ENV{'request.state'} eq 'construct') ) {
     $result.='</html>'; #normally we get it from xmlend, but in CSTR      if ($ENV{'form.print_answer'} ne 'yes') {
                         # we always show answer mode too.   $result.='</html>'; #normally we get it from xmlend, but in CSTR
                       # we always show answer mode too.
       }
  }   }
     } elsif ($target eq 'meta') {      } elsif ($target eq 'meta') {
  if ($Apache::inputtags::part eq '0') {   if ($Apache::inputtags::part eq '0') {

Removed from v.1.170  
changed lines
  Added in v.1.171


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