--- loncom/homework/structuretags.pm 2008/09/11 14:47:17 1.430 +++ loncom/homework/structuretags.pm 2008/09/19 17:14:31 1.431 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.430 2008/09/11 14:47:17 bisitz Exp $ +# $Id: structuretags.pm,v 1.431 2008/09/19 17:14:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1392,9 +1392,15 @@ sub end_languageblock { my $result = &Apache::lonxml::endredirection(); my $which = &Apache::lonxml::get_param('which',$parstack, $safeeval); - foreach my $language (split(/\s*\,\s*/,$which)) { - unless ($language=~/\w/) { next; } - $available_texts{$language} = $result; + if ($which=~/\w/) { + $available_texts{$which} = $result; + } + my $otherlangs = &Apache::lonxml::get_param('other',$parstack, + $safeeval); + foreach my $language (split(/\s*\,\s*/,$otherlangs)) { + if ($language=~/\w/) { + $available_texts{$language} = $result; + } } }