loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.2, 2000/09/19 18:04:47	version 1.3, 2000/11/21 18:40:13
Line 5 package Apache::response;	Line 5 package Apache::response;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::response',('caparesponse'));	&Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));
}	}

sub start_caparesponse {	sub start_caparesponse {
Line 17 sub start_caparesponse {	Line 17 sub start_caparesponse {
return "";	return "";
}	}

	sub start_responseparam {
	my ($target,$token,$parstack,$parser,$safeeval)=@_;
	my $args='';
	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
	my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
	my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);
	my $value = &Apache::lonnet::EXT("resource.param.$type");
	&Apache::lonxml::debug("$type has value :$value: and default :$default:");
	if (!$value) {
	$Apache::inputtags::params{$type}=$default;
	} else {
	$Apache::inputtags::params{$type}=$value;
	}
	return '';
	}

	sub end_responseparam {
	}

1;	1;
__END__	__END__