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)=@_;
15: print "\n<br>\nsimple caparesponse\n";
16: Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
17: }
18: sub end_caparesponse {
19: print "\n<br>\nend caparesponse\n";
20: }
21: 1;
22: __END__
23:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>