diff options
| -rw-r--r-- | perllib/FixMyStreet/Roles/Translatable.pm | 45 | ||||
| -rw-r--r-- | t/roles/translatable.t | 10 |
2 files changed, 55 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Roles/Translatable.pm b/perllib/FixMyStreet/Roles/Translatable.pm index cc66f9621..49f10d51a 100644 --- a/perllib/FixMyStreet/Roles/Translatable.pm +++ b/perllib/FixMyStreet/Roles/Translatable.pm @@ -49,4 +49,49 @@ sub _translate { return $fallback; }; +# These next two functions (translation_for and and_translation_for) are +# convenience methods for use in the translation interface in the admin. +# They shouldn't be used else where as they don't take account of things +# like denormalised strings (e.g report category) +sub translation_for { + my ($self, $col, $lang) = @_; + + my $schema = $self->result_source->schema; + + my $props = { + tbl => lc $self->result_source->source_name, + object_id => $self->id, + col => $col + }; + + if ($lang) { + $props->{lang} = $lang; + } + + my $translations = $schema->resultset('Translation')->search($props); + + return $lang ? $translations->first : $translations; +} + +sub add_translation_for { + my ($self, $col, $lang, $msgstr) = @_; + + my $schema = $self->result_source->schema; + + my $props = { + tbl => lc $self->result_source->source_name, + object_id => $self->id, + col => $col, + lang => $lang, + msgstr => $msgstr, + }; + + my $translation = $schema->resultset('Translation')->update_or_create( + $props, + { key => 'translation_tbl_object_id_col_lang_key' } + ); + + return $translation; +} + 1; diff --git a/t/roles/translatable.t b/t/roles/translatable.t index bbe05ce9f..71e39c360 100644 --- a/t/roles/translatable.t +++ b/t/roles/translatable.t @@ -51,6 +51,16 @@ is $body->name, "Dunkirk"; is $contact->category_display, "Schlaglöcher"; is $problem->category_display, "Schlaglöcher"; +is $contact->translation_for('category', 'de')->msgstr, "Schlaglöcher"; +is $body->translation_for('name', 'fr')->msgstr, "Dunkerque"; + +ok $body->add_translation_for('name', 'es', 'Dunkerque'); + +FixMyStreet::DB->schema->lang("es"); +is $body->name, "Dunkerque"; + +is $body->translation_for('name')->count, 2; + FixMyStreet::override_config { ALLOWED_COBRANDS => [ 'fiksgatami' ], }, sub { |