--- loncom/homework/response.pm 2000/09/14 20:56:25 1.1 +++ loncom/homework/response.pm 2000/09/19 18:04:47 1.2 @@ -12,12 +12,11 @@ sub start_caparesponse { require Apache::caparesponse; import Apache::caparesponse; my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; - print "\n
\nsimple caparesponse\n"; +# print "\n
\nsimple caparesponse\n"; Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);; + return ""; } -sub end_caparesponse { - print "\n
\nend caparesponse\n"; -} + 1; __END__