Diff for /loncom/homework/response.pm between versions 1.48 and 1.49

version 1.48, 2001/09/14 20:15:35 version 1.49, 2001/10/01 20:18:31
Line 9  package Apache::response; Line 9  package Apache::response;
 use strict;  use strict;
   
 sub BEGIN {  sub BEGIN {
   &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));    &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));
 }  }
   
 sub start_response {  sub start_response {
Line 179  sub start_stringresponse { Line 179  sub start_stringresponse {
   return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);    return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
 }  }
   
   sub start_formularesponse {
     require Apache::caparesponse;
     import Apache::caparesponse;
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     return &Apache::caparesponse::start_formularesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
   }
   
 sub start_numericalresponse {  sub start_numericalresponse {
   require Apache::caparesponse;     require Apache::caparesponse; 
   import Apache::caparesponse;     import Apache::caparesponse; 
Line 349  sub answer_header { Line 356  sub answer_header {
     $result = '<table border="1"><tr><th>Answer for Part:'.      $result = '<table border="1"><tr><th>Answer for Part:'.
       $Apache::inputtags::part. '</th></tr><tr>'."\n";        $Apache::inputtags::part. '</th></tr><tr>'."\n";
   } else {    } else {
     $result = '<table><tr><td>Answer for Part:'.$Apache::inputtags::part.      $result = '<table border="1"><tr><td>Answer for Part:'.
       '</td>'."\n";        $Apache::inputtags::part. '</td>'."\n";
   }    }
   return $result;    return $result;
 }  }

Removed from v.1.48  
changed lines
  Added in v.1.49


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