loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.685, 2008/09/11 21:05:19	version 1.686, 2008/09/13 02:37:26
Line 2988 sub preferred_languages {	Line 2988 sub preferred_languages {
}	}
}	}
}	}
	return &get_genlanguages(@languages);
	}

	sub get_genlanguages {
	my (@languages) = @_;
# turn "en-ca" into "en-ca,en"	# turn "en-ca" into "en-ca,en"
my @genlanguages;	my @genlanguages;
foreach my $lang (@languages) {	foreach my $lang (@languages) {
unless ($lang=~/\w/) { next; }	unless ($lang=~/\w/) { next; }
push(@genlanguages,$lang);	push(@genlanguages,$lang);
if ($lang=~/(\-\|\_)/) {	if ($lang=~/(\-\|\_)/) {
push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);	push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);
}	}
}	}
#uniqueify the languages list	#uniqueify the languages list
my %count;	my %count;