loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.30, 2001/04/05 00:10:55	version 1.31, 2001/06/02 03:59:59
Line 10 sub BEGIN {	Line 10 sub BEGIN {
}	}

sub start_caparesponse {	sub start_caparesponse {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	return '';
}	}

sub end_caparesponse {	sub end_caparesponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result = '';	my $result = '';
if ( $target eq 'grade' ) {	if ( $target eq 'grade' ) {
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {
Line 53 sub end_caparesponse {	Line 53 sub end_caparesponse {
}	}

sub start_numericalresponse {	sub start_numericalresponse {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	return '';
}	}

sub end_numericalresponse {	sub end_numericalresponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result = '';	my $result = '';
if ( $target eq 'grade' ) {	if ( $target eq 'grade' ) {
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {