loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.430, 2008/09/11 14:47:17	version 1.431, 2008/09/19 17:14:31
Line 1392 sub end_languageblock {	Line 1392 sub end_languageblock {
my $result = &Apache::lonxml::endredirection();	my $result = &Apache::lonxml::endredirection();
my $which = &Apache::lonxml::get_param('which',$parstack,	my $which = &Apache::lonxml::get_param('which',$parstack,
$safeeval);	$safeeval);
foreach my $language (split(/\s\,\s/,$which)) {	if ($which=~/\w/) {
unless ($language=~/\w/) { next; }	$available_texts{$which} = $result;
$available_texts{$language} = $result;	}
	my $otherlangs = &Apache::lonxml::get_param('other',$parstack,
	$safeeval);
	foreach my $language (split(/\s\,\s/,$otherlangs)) {
	if ($language=~/\w/) {
	$available_texts{$language} = $result;
	}
}	}

}	}