|
Lines 121-127
for my $file (@files) {
Link Here
|
| 121 |
# discard non strings |
121 |
# discard non strings |
| 122 |
next if ( $line =~ /^(\s|%s|-|[[:punct:]]|\(|\))*$/ or length($line) < 2 ); |
122 |
next if ( $line =~ /^(\s|%s|-|[[:punct:]]|\(|\))*$/ or length($line) < 2 ); |
| 123 |
if ( not $pot->{$line} ) { |
123 |
if ( not $pot->{$line} ) { |
| 124 |
my $msg = new Locale::PO( |
124 |
my $msg = Locale::PO->new( |
| 125 |
-msgid => $line, |
125 |
-msgid => $line, |
| 126 |
-msgstr => '', |
126 |
-msgstr => '', |
| 127 |
-reference => "$file:$table_name:$tablec:row:$rowc:mul:$mulc" |
127 |
-reference => "$file:$table_name:$tablec:row:$rowc:mul:$mulc" |
|
Lines 130-136
for my $file (@files) {
Link Here
|
| 130 |
} |
130 |
} |
| 131 |
} |
131 |
} |
| 132 |
} elsif (defined $row->{$field} && length($row->{$field}) > 1 && !$pot->{ $row->{$field} }) { |
132 |
} elsif (defined $row->{$field} && length($row->{$field}) > 1 && !$pot->{ $row->{$field} }) { |
| 133 |
my $msg = new Locale::PO( |
133 |
my $msg = Locale::PO->new( |
| 134 |
-msgid => $row->{$field}, |
134 |
-msgid => $row->{$field}, |
| 135 |
-msgstr => '', |
135 |
-msgstr => '', |
| 136 |
-reference => "$file:$table_name:$tablec:row:$rowc" |
136 |
-reference => "$file:$table_name:$tablec:row:$rowc" |
|
Lines 145-151
for my $file (@files) {
Link Here
|
| 145 |
for my $description ( @{ $yaml->{'description'} } ) { |
145 |
for my $description ( @{ $yaml->{'description'} } ) { |
| 146 |
$desccount++; |
146 |
$desccount++; |
| 147 |
if ( length($description) > 1 and not $pot->{$description} ) { |
147 |
if ( length($description) > 1 and not $pot->{$description} ) { |
| 148 |
my $msg = new Locale::PO( |
148 |
my $msg = Locale::PO->new( |
| 149 |
-msgid => $description, |
149 |
-msgid => $description, |
| 150 |
-msgstr => '', |
150 |
-msgstr => '', |
| 151 |
-reference => "$file:description:$desccount" |
151 |
-reference => "$file:description:$desccount" |
| 152 |
- |
|
|