loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.53, 2001/12/04 15:17:56	version 1.55, 2002/01/07 18:03:03
Line 33 package Apache::response;	Line 33 package Apache::response;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));
}	}

sub start_response {	sub start_response {
Line 193 sub check_for_previous {	Line 193 sub check_for_previous {
return %previous;	return %previous;
}	}

	sub handle_previous {
	my ($previous,$ad)=@_;
	if ($$previous{'used'} && ($$previous{'award'} eq $ad) ) {
	if ($$previous{'last'}) {
	push(@Apache::inputtags::previous,'PREVIOUSLY_LAST');
	} else {
	push(@Apache::inputtags::previous,'PREVIOUSLY_USED');
	}
	}
	}

sub start_caparesponse {	sub start_caparesponse {
require Apache::caparesponse;	require Apache::caparesponse;
import Apache::caparesponse;	import Apache::caparesponse;
Line 354 sub end_responseparam {	Line 365 sub end_responseparam {
return '';	return '';
}	}

	sub start_parameter {
	my $result = &start_responseparam(@_);
	return $result;
	}

	sub end_parameter {
	my $result = &end_responseparam(@_);
	return $result;
	}

sub setup_params {	sub setup_params {
my ($tag) = @_;	my ($tag) = @_;