aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/PoChange.pm
diff options
context:
space:
mode:
authorDave Whiteland <dave@mysociety.org>2012-09-30 20:53:09 +0100
committerDave Whiteland <dave@mysociety.org>2012-09-30 20:53:09 +0100
commit5657b851489339e33d60798b42f3d075260cac59 (patch)
tree9c966778e573e6118ea33ef50043718da7f1a1c9 /perllib/PoChange.pm
parent0806021813b2244a3359da633e83974b232dbd25 (diff)
parentadb1f3b7e36b4ef0fea0439ef4be1186d36b377f (diff)
Merge branch 'fmb-read-only' of ssh://git.mysociety.org/data/git/public/fixmystreet into fmb-read-only
Conflicts: web/cobrands/fixmybarangay/message_manager.scss
Diffstat (limited to 'perllib/PoChange.pm')
-rw-r--r--perllib/PoChange.pm25
1 files changed, 25 insertions, 0 deletions
diff --git a/perllib/PoChange.pm b/perllib/PoChange.pm
index deecd3b00..06b78fa3f 100644
--- a/perllib/PoChange.pm
+++ b/perllib/PoChange.pm
@@ -3,6 +3,19 @@ use strict;
package PoChange;
+sub translate($$) {
+ my $file = shift;
+ my $s = shift;
+
+ if ( $file eq 'FixMyStreet-EmptyHomes' ) {
+ return fixmystreet_to_reportemptyhomes( $s );
+ } elsif ( $file eq 'FixMyBarangay' ) {
+ return fixmystreet_to_fixmybarangay( $s );
+ }
+
+ return $s;
+}
+
# Takes a msgid from the main FixMyStreet .po file and
# converts it to a msgid for the ReportEmptyHomes .po file
sub fixmystreet_to_reportemptyhomes($) {
@@ -35,4 +48,16 @@ sub fixmystreet_to_reportemptyhomes($) {
return $s;
}
+sub fixmystreet_to_fixmybarangay($) {
+ my $s = shift;
+
+ $s =~ s/FixMyStreet/FixMyBarangay/g;
+ $s =~ s/\bcouncil\b/barangay/g;
+ $s =~ s/\bCouncil\b/Barangay/g;
+ $s =~ s/\bcouncils\b/barangays/g;
+ $s =~ s/\bCouncils\b/Barangays/g;
+
+ return $s;
+}
+
1;