From 06b8a48093a0ce395ea6824e6b00afec444447c3 Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Fri, 29 Jan 2016 17:34:00 +0000
Subject: Helper function for fetching database secret.

---
 perllib/FixMyStreet/App/Controller/Admin.pm |  4 ++--
 perllib/FixMyStreet/DB/ResultSet/Secret.pm  | 12 ++++++++++++
 2 files changed, 14 insertions(+), 2 deletions(-)
 create mode 100644 perllib/FixMyStreet/DB/ResultSet/Secret.pm

diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm
index 693612b9c..2bf215c56 100644
--- a/perllib/FixMyStreet/App/Controller/Admin.pm
+++ b/perllib/FixMyStreet/App/Controller/Admin.pm
@@ -1325,9 +1325,9 @@ Generate a token based on user and secret
 sub get_token : Private {
     my ( $self, $c ) = @_;
 
-    my $secret = $c->model('DB::Secret')->search()->first;
+    my $secret = $c->model('DB::Secret')->get;
     my $user = $c->forward('get_user');
-    my $token = sha1_hex($user . $secret->secret);
+    my $token = sha1_hex($user . $secret);
     $c->stash->{token} = $token;
 
     return 1;
diff --git a/perllib/FixMyStreet/DB/ResultSet/Secret.pm b/perllib/FixMyStreet/DB/ResultSet/Secret.pm
new file mode 100644
index 000000000..971584b9a
--- /dev/null
+++ b/perllib/FixMyStreet/DB/ResultSet/Secret.pm
@@ -0,0 +1,12 @@
+package FixMyStreet::DB::ResultSet::Secret;
+use base 'DBIx::Class::ResultSet';
+
+use strict;
+use warnings;
+
+sub get {
+    my $rs = shift;
+    return $rs->first->secret;
+}
+
+1;
-- 
cgit v1.2.3