--- loncom/homework/structuretags.pm 2008/07/28 05:26:00 1.425 +++ loncom/homework/structuretags.pm 2008/08/13 16:56:15 1.427 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.425 2008/07/28 05:26:00 raeburn Exp $ +# $Id: structuretags.pm,v 1.427 2008/08/13 16:56:15 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1382,7 +1382,11 @@ sub end_languageblock { my $result = &Apache::lonxml::endredirection(); my $which = &Apache::lonxml::get_param('which',$parstack, $safeeval); - $available_texts{$which} = $result; + foreach my $language (split(/\s*\,\s*/,$which)) { + unless ($language=~/\w/) { next; } + $available_texts{$language} = $result; + } + } return ''; } @@ -1879,10 +1883,7 @@ sub end_startouttext { $result.=&Apache::edit::start_table($token)."".&mt('Text Block')." ".&mt('Delete:'). &Apache::edit::deletelist($target,$token) - ." -". - &Apache::edit::insertlist($target,$token). - ''; + .""; unless ($env{'environment.wysiwygeditor'} eq 'on') { $result.='' .&Apache::lonhtmlcommon::dragmath_button($areaid,1)