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.63 and 1.67

version 1.63, 2011/08/03 18:25:16	version 1.67, 2019/02/24 01:38: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 325 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 496 sub getdatelocale {	Line 496 sub getdatelocale {
return $locale_obj;	return $locale_obj;
}	}

=pod	=pod

=item * normalize_string	=over

	=item * normalize_string()

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

Line 521 sub normalize_string {	Line 523 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 533 sub ns {	Line 535 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 562 sub transstatic {	Line 564 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 575 sub mt_escape {	Line 577 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()

	js_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	=pod

=item * choose_language	=item * choose_language()

choose_language prompts a user to enter a two letter language code via	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.	keyboard when running a script from the command line. Default is en.

	=back

=cut	=cut

sub choose_language {	sub choose_language {

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

Removed from v.1.63
changed lines
	Added in v.1.67