loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.248, 2021/01/12 15:52:06	version 1.249, 2024/06/19 05:56:22
Line 771 sub start_responseparam {	Line 771 sub start_responseparam {
}	}
} elsif ($target eq 'grade' \|\| $target eq 'answer' \|\| $target eq 'web' \|\|	} elsif ($target eq 'grade' \|\| $target eq 'answer' \|\| $target eq 'web' \|\|
$target eq 'tex' \|\| $target eq 'analyze' ) {	$target eq 'tex' \|\| $target eq 'analyze' ) {
if ($env{'request.state'} eq 'construct') {	if (($env{'request.state'} eq 'construct') \|\|
	($env{'request.noversionuri'} =~ m{^\Q/res/adm/includes/templates/\E[^/]+\.problem$})) {
my $name =&Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name =&Apache::lonxml::get_param('name',$parstack,$safeeval);
my $default=&Apache::lonxml::get_param('default',$parstack,	my $default=&Apache::lonxml::get_param('default',$parstack,
$safeeval);	$safeeval);
Line 802 sub reset_params {	Line 803 sub reset_params {
sub setup_params {	sub setup_params {
my ($tag,$safeeval) = @_;	my ($tag,$safeeval) = @_;

if ($env{'request.state'} eq 'construct') { return; }	if (($env{'request.state'} eq 'construct') \|\|
	($env{'request.noversionuri'} =~ m{^\Q/res/adm/includes/templates/\E[^/]+\.problem$})) {
	return;
	}
my %paramlist=();	my %paramlist=();
foreach my $key (keys(%Apache::lonnet::packagetab)) {	foreach my $key (keys(%Apache::lonnet::packagetab)) {
if ($key =~ /^\Q$tag\E/) {	if ($key =~ /^\Q$tag\E/) {