Add more utility functions

1 files changed, 27 insertions, 1 deletions

diff --git a/perllib/FixMyStreet/App/View/Web.pm b/perllib/FixMyStreet/App/View/Web.pm
index 9c16e0d84..e5983ea23 100644
--- a/perllib/FixMyStreet/App/View/Web.pm
+++ b/perllib/FixMyStreet/App/View/Web.pm
@@ -14,7 +14,7 @@ __PACKAGE__->config(
     ],
     ENCODING       => 'utf8',
     render_die     => 1,
-    expose_methods => ['loc'],
+    expose_methods => [ 'loc', 'nget', 'tprintf', ],
 );
 
 =head1 NAME
@@ -40,5 +40,31 @@ sub loc {
     return _(@args);
 }
 
+=head2 nget
+
+    [% nget( 'singular', 'plural', $number ) %]
+
+Use first or second srting depending on the number.
+
+=cut
+
+sub nget {
+    my ( $self, $c, @args ) = @_;
+    return mySociety::Locale::nget(@args);
+}
+
+=head2 tprintf
+
+    [% tprintf( 'foo %s bar', 'insert' ) %]
+
+sprintf (different name to avoid clash)
+
+=cut
+
+sub tprintf {
+    my ( $self, $c, $format, @args ) = @_;
+    return sprintf $format, @args;
+}
+
 1;