loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.393, 2007/09/10 13:39:16	version 1.394, 2007/09/10 16:25:38
Line 1140 sub start_languageblock {	Line 1140 sub start_languageblock {
$target eq 'tex' \|\| $target eq 'analyze' \|\| $target eq 'webgrade') {	$target eq 'tex' \|\| $target eq 'analyze' \|\| $target eq 'webgrade') {
my $include = $token->[2]->{'include'};	my $include = $token->[2]->{'include'};
my $exclude = $token->[2]->{'exclude'};	my $exclude = $token->[2]->{'exclude'};
my %languages=&Apache::loncommon::display_languages();	my $preferred_language=(&Apache::loncommon::preferred_languages)[0];
	# This should not even happen, since we should at least have the server language
	unless ($preferred_language) { $preferred_language='en'; }
	# If the languageblock has no arguments, show the contents
$result='1';	$result='1';
	# Do we have an include argument?
if ($include) {	if ($include) {
	# If include is specified, by default, don't render the block
$result='';	$result='';
foreach (split(/\,/,$include)) {	foreach my $included_language (split(/\,/,$include)) {
if ($languages{$_}) { $result='1'; }	# ... but if my preferred language is included, render it
	if ($included_language eq $preferred_language) { $result='1'; }
}	}
}	}
	# Do we have an exclude argument?
if ($exclude) {	if ($exclude) {
foreach (split(/\,/,$exclude)) {	$result='1';
if ($languages{$_}) { $result='0'; }	foreach my $excluded_language (split(/\,/,$exclude)) {
	if ($excluded_language eq $preferred_language) { $result='0'; }
}	}
}	}
if ( ! $result ) {	if ( ! $result ) {