loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.42, 2001/08/09 15:35:47	version 1.43, 2001/08/09 15:39:56
Line 211 sub start_essayresponse {	Line 211 sub start_essayresponse {

sub start_responseparam {	sub start_responseparam {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result=''	my $result='';
if ($target eq 'meta') {	if ($target eq 'meta') {
$result = &meta_parameter_write($token->[2]->{'name'},	$result = &meta_parameter_write($token->[2]->{'name'},
$token->[2]->{'type'},	$token->[2]->{'type'},
Line 248 sub setup_params {	Line 248 sub setup_params {
my ($tag) = @_;	my ($tag) = @_;

@Apache::inputtags::params=();	@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/) {
my ($package,$name) = split(/&/,$key);	my ($package,$name) = split(/&/,$key);
push(@paramlist,$name);	$paramlist{$name}=1;
}	}
}	}
foreach my $key (@paramlist) {	foreach my $key (keys(%paramlist)) {
my $entry= 'resource.'.$Apache::inputtags::part;	my $entry= 'resource.'.$Apache::inputtags::part;
if (defined($Apache::inputtags::response[-1])) {	if (defined($Apache::inputtags::response[-1])) {
$entry.='_'.$Apache::inputtags::response[-1];	$entry.='_'.$Apache::inputtags::response[-1];