loncom/localize/localize/synch.pl - diff

Return to synch.pl CVS log

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

version 1.6, 2003/10/14 17:34:04	version 1.7, 2003/11/28 02:12:05
Line 1	Line 1
	#$numbered=1;

sub readlexicon {	sub readlexicon {
my $fn=shift;	my $fn=shift;
Line 57 foreach my $fn (<*.pm>) {	Line 57 foreach my $fn (<*.pm>) {
print OUT $_;	print OUT $_;
}	}
if ($found) {	if ($found) {
	$i=0;
print OUT "\n\#SYNC ".localtime()."\n";	print OUT "\n\#SYNC ".localtime()."\n";
foreach my $key (sort keys %master) {	foreach my $key (sort keys %master) {
unless ($key) { next; }	unless ($key) { next; }
Line 69 foreach my $fn (<*.pm>) {	Line 70 foreach my $fn (<*.pm>) {
if (lc($copytrans) ne lc($key)) {	if (lc($copytrans) ne lc($key)) {
$comment='# '.$copytrans;	$comment='# '.$copytrans;
}	}
	if ($numbered) {
	$i++;
	$num=' ('.$i.')';
	} else {
	$num='';
	}
	if ($key=~/\'/) {
	$del='"';
	} else {
	$del="'";
	}
print OUT (<<ENDNEW);	print OUT (<<ENDNEW);
'$key'	$del$key$del
=> '$key',	=> $del$key$num$del,
$comment	$comment
ENDNEW	ENDNEW
}	}