diff options
author | Dave Whiteland <dave@mysociety.org> | 2012-09-30 20:53:09 +0100 |
---|---|---|
committer | Dave Whiteland <dave@mysociety.org> | 2012-09-30 20:53:09 +0100 |
commit | 5657b851489339e33d60798b42f3d075260cac59 (patch) | |
tree | 9c966778e573e6118ea33ef50043718da7f1a1c9 /perllib/PoChange.pm | |
parent | 0806021813b2244a3359da633e83974b232dbd25 (diff) | |
parent | adb1f3b7e36b4ef0fea0439ef4be1186d36b377f (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.pm | 25 |
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; |