loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2002/10/14 20:37:27	version 1.67, 2002/11/25 21:36:42
Line 320 sub end_parameter {	Line 320 sub end_parameter {
return $result;	return $result;
}	}

	sub reset_params {
	%Apache::inputtags::params=();
	}

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

if ($ENV{'request.state'} eq 'construct') { return; }	if ($ENV{'request.state'} eq 'construct') { return; }
%Apache::inputtags::params=();
my %paramlist=();	my %paramlist=();
foreach my $key (keys(%Apache::lonnet::packagetab)) {	foreach my $key (keys(%Apache::lonnet::packagetab)) {
if ($key =~ /^$tag/) {	if ($key =~ /^$tag/) {