loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2005/04/19 09:20:55	version 1.67, 2005/04/22 14:03:56
Line 343 sub insert_foil {	Line 343 sub insert_foil {
$Apache::imageresponse::curname='';	$Apache::imageresponse::curname='';
sub start_foil {	sub start_foil {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result;
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'tex' \|\|	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'tex' \|\|
$target eq 'analyze') {	$target eq 'analyze') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
Line 362 sub start_foil {	Line 363 sub start_foil {
push(@{ $Apache::response::foilgroup{'names'} }, $name);	push(@{ $Apache::response::foilgroup{'names'} }, $name);
}	}
$Apache::imageresponse::curname=$name;	$Apache::imageresponse::curname=$name;
}	} elsif ($target eq 'edit') {
return '';	$result = &Apache::edit::tag_start($target,$token);
	$result .= &Apache::edit::text_arg('Name:','name',$token);
	$result .= &Apache::edit::end_row().
	&Apache::edit::start_spanning_row();
	} elsif ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
	$safeeval,'name');
	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
	}
	return $result;;
}	}

sub end_foil {	sub end_foil {