loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.679.2.3, 2008/09/19 22:54:46	version 1.679.2.4, 2008/09/19 23:03:20
Line 2987 sub preferred_languages {	Line 2987 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;