loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.11, 2000/11/29 00:51:57	version 1.12, 2000/12/04 21:16:29
Line 73 sub start_caparesponse {	Line 73 sub start_caparesponse {

sub start_responseparam {	sub start_responseparam {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ($target ne 'meta') {	if ($target eq 'grade') {
my $args='';	my $args='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);	my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
Line 89 sub start_responseparam {	Line 89 sub start_responseparam {
$Apache::inputtags::params{$name}=$value;	$Apache::inputtags::params{$name}=$value;
}	}
return '';	return '';
} else {	} elsif ($target eq 'meta') {
return &meta_parameter_write($token->[2]->{'name'},	return &meta_parameter_write($token->[2]->{'name'},
$token->[2]->{'type'},	$token->[2]->{'type'},
$token->[2]->{'default'},	$token->[2]->{'default'},
$token->[2]->{'description'});	$token->[2]->{'description'});
	} else {
	return '';
}	}
}	}