Annotation of loncom/homework/response.pm, revision 1.2
1.1 albertel 1: # The LearningOnline Network with CAPA
2: # various response type definitons response definition
3:
4: package Apache::response;
5: use strict;
6:
7: sub BEGIN {
8: &Apache::lonxml::register('Apache::response',('caparesponse'));
9: }
10:
11: sub start_caparesponse {
12: require Apache::caparesponse;
13: import Apache::caparesponse;
14: my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
1.2 ! albertel 15: # print "\n<br>\nsimple caparesponse\n";
1.1 albertel 16: Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
1.2 ! albertel 17: return "";
1.1 albertel 18: }
1.2 ! albertel 19:
1.1 albertel 20: 1;
21: __END__
22:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>