loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

Diff for /loncom/localize/lonlocal.pm between versions 1.60.4.2 and 1.69

version 1.60.4.2, 2010/12/06 00:35:19	version 1.69, 2022/09/08 01:41:14
Line 38 Apache::lonlocal - provides localization	Line 38 Apache::lonlocal - provides localization

lonlocal provides localization services for LON-CAPA programmers based	lonlocal provides localization services for LON-CAPA programmers based
on Locale::Maketext. See	on Locale::Maketext. See
C<http://search.cpan.org/dist/Locale-Maketext/lib/Locale/Maketext.pod>	C<https://metacpan.org/pod/Locale::Maketext>
for more information on Maketext.	for more information on Maketext.

=head1 OVERVIEWX<internationalization>	=head1 OVERVIEWX<internationalization>
Line 81 Inside might be something like this	Line 81 Inside might be something like this
if ($status eq 'WON') {	if ($status eq 'WON') {
$message='You have won.';	$message='You have won.';
} elsif ($status eq 'LOST') {	} elsif ($status eq 'LOST') {
$message='You are a total looser.';	$message='You are a total loser.';
}	}
return $message;	return $message;
}	}
Line 103 The first two examples are easy:	Line 103 The first two examples are easy:
if ($status eq 'WON') {	if ($status eq 'WON') {
$message='You have won.';	$message='You have won.';
} elsif ($status eq 'LOST') {	} elsif ($status eq 'LOST') {
$message='You are a total looser.';	$message='You are a total loser.';
}	}
return &mt($message);	return &mt($message);
}	}
Line 135 like this:	Line 135 like this:
'You have won.'	'You have won.'
=> 'Sie haben gewonnen.',	=> 'Sie haben gewonnen.',

'You are a total looser.'	'You are a total loser.'
=> 'Sie sind der totale Verlierer.',	=> 'Sie sind der totale Verlierer.',

'Rules'	'Rules'
Line 153 ignore the rest of the line.	Line 153 ignore the rest of the line.
This is a relatively easy task, and any help is appreciated.	This is a relatively easy task, and any help is appreciated.

Maketext can do a whole lot more, see	Maketext can do a whole lot more, see
C<http://search.cpan.org/dist/Locale-Maketext/lib/Locale/Maketext.pod>	C<https://metacpan.org/pod/Locale::Maketext>
but for most purposes, we do not have to mess with that.	but for most purposes, we do not have to mess with that.

=cut	=cut
Line 171 use DateTime::Locale;	Line 171 use DateTime::Locale;
require Exporter;	require Exporter;

our @ISA = qw (Exporter);	our @ISA = qw (Exporter);
our @EXPORT = qw(mt mtn ns mt_user);	our @EXPORT = qw(mt mtn ns mt_user js_escape html_escape);

my %mtcache=();	my %mtcache=();

Line 242 sub current_language {	Line 242 sub current_language {
}	}

sub preferred_languages {	sub preferred_languages {
my $defdom = &Apache::lonnet::default_login_domain();
foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {
next if ($domtype eq '');
if ($domtype =~ /^\w+ci/) {
return ($domtype);
} elsif ($domtype =~ /^(\w+c)itest$/) {
return ($1.'t');
} else {
return ('gci');
}
}
my @languages=();	my @languages=();
if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {	if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {
@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$Apache::lonnet::env{'form.languages'}));	@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$Apache::lonnet::env{'form.languages'}));
Line 273 sub preferred_languages {	Line 262 sub preferred_languages {
push(@languages,@browser);	push(@languages,@browser);
}	}

	my $defdom = &Apache::lonnet::default_login_domain();
foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {	foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {
if ($domtype ne '') {	if (($domtype ne '') && ($domtype ne 'public')) {
my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);	my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);
if ($domdefs{'lang_def'} ne '') {	if ($domdefs{'lang_def'} ne '') {
push(@languages,$domdefs{'lang_def'});	push(@languages,$domdefs{'lang_def'});
Line 305 sub get_genlanguages {	Line 295 sub get_genlanguages {

sub current_encoding {	sub current_encoding {
my $default='UTF-8';	my $default='UTF-8';
# UTF-8 character encoding needed for the whole LON-CAPA system	unless ($Apache::lonnet::env{'browser.unicode'}) {
# (interface language and homework problem content)	if ($Apache::lonnet::env{'browser.os'} eq 'win' &&
# See Bugzilla 5702 vs. 2189 and 4067	$Apache::lonnet::env{'browser.type'} eq 'explorer') {
# if ($Apache::lonnet::env{'browser.os'} eq 'win' &&	$default='ISO-8859-1';
# $Apache::lonnet::env{'browser.type'} eq 'explorer') {	}
# $default='ISO-8859-1';	}
# }
if ($lh) {	if ($lh) {
my $enc=$lh->maketext('char_encoding');	my $enc=$lh->maketext('char_encoding');
return ($enc eq 'char_encoding'?$default:$enc);	return ($enc eq 'char_encoding'?$default:$enc);
Line 336 sub current_locale {	Line 325 sub current_locale {

sub texthash {	sub texthash {
my %hash=@_;	my %hash=@_;
foreach (keys %hash) {	foreach (keys(%hash)) {
$hash{$_}=&mt($hash{$_});	$hash{$_}=&mt($hash{$_});
}	}
return %hash;	return %hash;
Line 345 sub texthash {	Line 334 sub texthash {
# ========= Get a handle (do not invoke in vain, leave this to access handlers)	# ========= Get a handle (do not invoke in vain, leave this to access handlers)

sub get_language_handle {	sub get_language_handle {
my $r=shift;	my ($r,$chosen) = @_;
if ($r) {	if ($r) {
my $headers=$r->headers_in;	my $headers=$r->headers_in;
$ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};	$ENV{'HTTP_ACCEPT_LANGUAGE'}=$headers->{'Accept-language'};
}	}
my @languages=&preferred_languages();	my @languages;
	if ($chosen ne '') {
	@languages=($chosen);
	} else {
	@languages=&preferred_languages();
	}
$ENV{'HTTP_ACCEPT_LANGUAGE'}='';	$ENV{'HTTP_ACCEPT_LANGUAGE'}='';
$lh=Apache::localize->get_handle(@languages);	$lh=Apache::localize->get_handle(@languages);
$current_language=&current_language();	$current_language=&current_language();
Line 369 sub gettimezone {	Line 363 sub gettimezone {
}	}
return $timezone;	return $timezone;
}	}
my $cid = $Apache::lonnet::env{'request.course.id'};	my $cid = $Apache::lonnet::env{'request.course.id'};
	if (&Apache::lonnet::usertools_access($Apache::lonnet::env{'user.name'},
	$Apache::lonnet::env{'user.domain'},
	'timezone')) {
	if ($Apache::lonnet::env{'environment.timezone'} ne '') {
	$timezone = $Apache::lonnet::env{'environment.timezone'};
	if ($cid ne '') {
	if (($Apache::lonnet::env{'course.'.$cid.'.tzover'}) &&
	($Apache::lonnet::env{'course.'.$cid.'.timezone'} ne '')) {
	$timezone = $Apache::lonnet::env{'course.'.$cid.'.timezone'};
	}
	}
	if ($timezone ne '') {
	if (DateTime::TimeZone->is_valid_name($timezone)) {
	return $timezone;
	}
	}
	}
	}
if ($cid ne '') {	if ($cid ne '') {
if ($Apache::lonnet::env{'course.'.$cid.'.timezone'}) {	if ($Apache::lonnet::env{'course.'.$cid.'.timezone'}) {
$timezone = $Apache::lonnet::env{'course.'.$cid.'.timezone'};	$timezone = $Apache::lonnet::env{'course.'.$cid.'.timezone'};
Line 388 sub gettimezone {	Line 400 sub gettimezone {
if ($uroledomdefs{'timezone_def'} ne '') {	if ($uroledomdefs{'timezone_def'} ne '') {
$timezone = $uroledomdefs{'timezone_def'};	$timezone = $uroledomdefs{'timezone_def'};
}	}
} elsif ($Apache::lonnet::env{'user.domain'} ne '') {	} elsif (($Apache::lonnet::env{'user.domain'} ne '') &&
	($Apache::lonnet::env{'user.domain'} ne 'public')) {
my %udomdefaults =	my %udomdefaults =
&Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'user.domain'});	&Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'user.domain'});
if ($udomdefaults{'timezone_def'} ne '') {	if ($udomdefaults{'timezone_def'} ne '') {
Line 501 sub getdatelocale {	Line 514 sub getdatelocale {
return $locale_obj;	return $locale_obj;
}	}

=pod	=pod

	=over

=item * normalize_string	=item * normalize_string()

Normalize string (reduce fragility in the lexicon files)	Normalize string (reduce fragility in the lexicon files)

Line 526 sub normalize_string {	Line 541 sub normalize_string {

=pod	=pod

=item * ns	=item * ns()

alias for normalize_string; recommend using it only in the lexicon	alias for normalize_string; recommend using it only in the lexicon

Line 538 sub ns {	Line 553 sub ns {

=pod	=pod

=item * mtn	=item * mtn()

mtn: call the mt function and the normalization function easily.	mtn: call the mt function and the normalization function easily.
Returns original non-normalized string if there was no translation	Returns original non-normalized string if there was no translation
Line 567 sub transstatic {	Line 582 sub transstatic {

=pod	=pod

=item * mt_escape	=item * mt_escape()

mt_escape takes a string reference and escape the [] in there so mt	mt_escape takes a string reference and escape the [] in there so mt
will leave them as is and not try to expand them	will leave them as is and not try to expand them
Line 580 sub mt_escape {	Line 595 sub mt_escape {
$$str_ref =~s/([\[\]])/~$1/g;	$$str_ref =~s/([\[\]])/~$1/g;
}	}

	=pod

	=item * js_escape()

	js_escape takes a string, string reference or hash reference,
	and escapes the values so that they can be used within a <script> element.
	It replaces all instances of \ by \\, ' by \', " by \" and \n by \\n.
	It is typically used with localized strings, which might contain quotes.

	=cut

	sub js_escape {
	my ($v) = @_;
	my $ref = ref($v);
	if ($ref eq 'SCALAR') {
	$$v =~ s/\\/\\\\/g;
	$$v =~ s/'/\\'/g;
	$$v =~ s/"/\\"/g;
	$$v =~ s/\n/\\n/g;
	} elsif ($ref eq 'HASH') {
	foreach my $key (keys %$v) {
	$v->{$key} =~ s/\\/\\\\/g;
	$v->{$key} =~ s/'/\\'/g;
	$v->{$key} =~ s/"/\\"/g;
	$v->{$key} =~ s/\n/\\n/g;
	}
	} else {
	$v =~ s/\\/\\\\/g;
	$v =~ s/'/\\'/g;
	$v =~ s/"/\\"/g;
	$v =~ s/\n/\\n/g;
	return $v;
	}
	}

	=pod

	=item * html_escape()

	html_escape takes a string, string reference or hash reference,
	and escapes the values so that they can be used as HTML.
	It encodes <, >, &, ' and ".

	=cut

	sub html_escape {
	my ($v) = @_;
	my $ref = ref($v);
	if ($ref eq 'SCALAR') {
	$$v =~ s/&/&/g;
	$$v =~ s/</</g;
	$$v =~ s/>/>/g;
	$$v =~ s/'/'/g;
	$$v =~ s/"/"/g;
	} elsif ($ref eq 'HASH') {
	foreach my $key (keys %$v) {
	$v->{$key} =~ s/&/&/g;
	$v->{$key} =~ s/</</g;
	$v->{$key} =~ s/>/>/g;
	$v->{$key} =~ s/'/'/g;
	$v->{$key} =~ s/"/"/g;
	}
	} else {
	$v =~ s/&/&/g;
	$v =~ s/</</g;
	$v =~ s/>/>/g;
	$v =~ s/'/'/g;
	$v =~ s/"/"/g;
	return $v;
	}
	# NOTE: we could also turn \n into <br> if needed
	}

	=pod

	=item * choose_language()

	choose_language prompts a user to enter a two letter language code via
	keyboard when running a script from the command line. Default is en.

	=back

	=cut

	sub choose_language {
	my %languages = (
	ar => 'Arabic',
	de => 'German',
	en => 'English',
	es => 'Spanish',
	fa => 'Persian',
	fr => 'French',
	he => 'Hebrew',
	ja => 'Japanese',
	pt => 'Portuguese',
	ru => 'Russian',
	tr => 'Turkish',
	zh => 'Chinese (Simplified)'
	);
	my @posslangs = sort(keys(%languages));
	my $langlist = join('\|',@posslangs);
	my $lang = 'en';
	print 'Language: English (en). Change? ['.$langlist.']? ';
	my $langchoice = <STDIN>;
	chomp($langchoice);
	$langchoice =~ s/(^\s+\|\s+$)//g;
	$langchoice = lc($langchoice);
	if (defined($languages{$langchoice})) {
	$lang = $langchoice;
	}
	return $lang;
	}

1;	1;

__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.60.4.2
changed lines
	Added in v.1.69