loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.160, 2007/03/15 02:52:16	version 1.161, 2007/04/07 00:42:29
Line 697 sub setup_params {	Line 697 sub setup_params {
if ($env{'request.state'} eq 'construct') { return; }	if ($env{'request.state'} eq 'construct') { return; }
my %paramlist=();	my %paramlist=();
foreach my $key (keys(%Apache::lonnet::packagetab)) {	foreach my $key (keys(%Apache::lonnet::packagetab)) {
if ($key =~ /^$tag/) {	if ($key =~ /^\Q$tag\E/) {
my ($package,$name) = split(/&/,$key);	my ($package,$name) = split(/&/,$key);
$paramlist{$name}=1;	$paramlist{$name}=1;
}	}