Annotation of loncom/homework/response.pm, revision 1.1
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)=@_;
! 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>