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>