version 1.426, 2008/08/04 22:42:11
|
version 1.427, 2008/08/13 16:56:15
|
Line 1382 sub end_languageblock {
|
Line 1382 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); |
$available_texts{$which} = $result; |
foreach my $language (split(/\s*\,\s*/,$which)) { |
|
unless ($language=~/\w/) { next; } |
|
$available_texts{$language} = $result; |
|
} |
|
|
} |
} |
return ''; |
return ''; |
} |
} |