loncom/localize/localize/synch.pl - diff

Return to synch.pl CVS log

Up to [LON-CAPA] / loncom / localize / localize

version 1.7, 2003/11/28 02:12:05	version 1.8, 2008/07/10 19:10:26
Line 52 foreach my $fn (<*.pm>) {	Line 52 foreach my $fn (<*.pm>) {
open(IN,$fn.'.original');	open(IN,$fn.'.original');
open(OUT,'>'.$fn);	open(OUT,'>'.$fn);
my $found=0;	my $found=0;
	# Rebuild current translation file until SYNCMARKER:
while (<IN>) {	while (<IN>) {
if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; }	if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; }
print OUT $_;	print OUT $_;
Line 59 foreach my $fn (<*.pm>) {	Line 60 foreach my $fn (<*.pm>) {
if ($found) {	if ($found) {
$i=0;	$i=0;
print OUT "\n\#SYNC ".localtime()."\n";	print OUT "\n\#SYNC ".localtime()."\n";
	# Sync master with current translation file:
foreach my $key (sort keys %master) {	foreach my $key (sort keys %master) {
unless ($key) { next; }	unless ($key) { next; }
unless ($lang{$key}) {	unless ($lang{$key}) {
my $comment='';	my $comment='';
my $copytrans=$key;	my $copytrans=$key;
	# Create comment based on already existing translations:
foreach (reverse sort keys %lang) {	foreach (reverse sort keys %lang) {
$copytrans=~s/$_/$lang{$_}/gsi;	$copytrans=~s/\Q$_\E/$lang{$_}/gsi; # \Q \E: escape meta characters
}	}
if (lc($copytrans) ne lc($key)) {	if (lc($copytrans) ne lc($key)) {
$comment='# '.$copytrans;	$comment='# '.$copytrans;