4 files changed, 115 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin/ManifestTheme.pm b/perllib/FixMyStreet/App/Controller/Admin/ManifestTheme.pm
new file mode 100644
index 000000000..d2eed4839
--- /dev/null
+++ b/perllib/FixMyStreet/App/Controller/Admin/ManifestTheme.pm
@@ -0,0 +1,80 @@
+package FixMyStreet::App::Controller::Admin::ManifestTheme;
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'Catalyst::Controller'; }
+
+use FixMyStreet::App::Form::ManifestTheme;
+
+sub auto :Private {
+    my ($self, $c) = @_;
+
+    if ( $c->cobrand->moniker eq 'fixmystreet' ) {
+        $c->stash(rs => $c->model('DB::ManifestTheme')->search_rs({}), show_all => 1);
+    } else {
+        $c->stash(rs => $c->model('DB::ManifestTheme')->search_rs({ cobrand => $c->cobrand->moniker }));
+    }
+}
+
+sub index :Path :Args(0) {
+    my ( $self, $c ) = @_;
+
+    unless ( $c->stash->{show_all} ) {
+        if ( $c->stash->{rs}->count ) {
+            $c->res->redirect($c->uri_for($self->action_for('edit'), [ $c->stash->{rs}->first->cobrand ]));
+        } else {
+            $c->res->redirect($c->uri_for($self->action_for('create')));
+        }
+        $c->detach;
+    }
+}
+
+sub item :PathPart('admin/manifesttheme') :Chained :CaptureArgs(1) {
+    my ($self, $c, $cobrand) = @_;
+
+    my $obj = $c->stash->{rs}->find({ cobrand =>  $cobrand })
+        or $c->detach('/page_error_404_not_found', []);
+    $c->stash(obj => $obj);
+}
+
+sub edit :PathPart('') :Chained('item') :Args(0) {
+    my ($self, $c) = @_;
+    return $self->form($c, $c->stash->{obj});
+}
+
+
+sub create :Local :Args(0) {
+    my ($self, $c) = @_;
+
+    unless ( $c->stash->{show_all} || $c->stash->{rs}->count == 0) {
+        $c->res->redirect($c->uri_for($self->action_for('edit'), [ $c->stash->{rs}->first->cobrand ]));
+        $c->detach;
+    }
+
+    my $theme = $c->stash->{rs}->new_result({});
+    return $self->form($c, $theme);
+}
+
+sub form {
+    my ($self, $c, $theme) = @_;
+
+    if ($c->get_param('delete_theme')) {
+        $theme->delete;
+        $c->forward('/admin/log_edit', [ $theme->id, 'manifesttheme', 'delete' ]);
+        $c->response->redirect($c->uri_for($self->action_for('index')));
+        $c->detach;
+    }
+
+    my $action = $theme->in_storage ? 'edit' : 'add';
+    my $form = FixMyStreet::App::Form::ManifestTheme->new( cobrand => $c->cobrand->moniker );
+    $c->stash(template => 'admin/manifesttheme/form.html', form => $form);
+    $form->process(item => $theme, params => $c->req->params);
+    return unless $form->validated;
+
+    $c->forward('/admin/log_edit', [ $theme->id, 'manifesttheme', $action ]);
+    $c->response->redirect($c->uri_for($self->action_for('index')));
+}
+
+
+
+1;
diff --git a/perllib/FixMyStreet/App/Form/ManifestTheme.pm b/perllib/FixMyStreet/App/Form/ManifestTheme.pm
new file mode 100644
index 000000000..17e43ff58
--- /dev/null
+++ b/perllib/FixMyStreet/App/Form/ManifestTheme.pm
@@ -0,0 +1,28 @@
+package FixMyStreet::App::Form::ManifestTheme;
+
+use HTML::FormHandler::Moose;
+use FixMyStreet::App::Form::I18N;
+extends 'HTML::FormHandler::Model::DBIC';
+use namespace::autoclean;
+
+has 'cobrand' => ( isa => 'Str', is => 'ro' );
+
+has '+widget_name_space' => ( default => sub { ['FixMyStreet::App::Form::Widget'] } );
+has '+widget_tags' => ( default => sub { { wrapper_tag => 'p' } } );
+has '+item_class' => ( default => 'ManifestTheme' );
+has_field 'cobrand' => ( required => 0 );
+has_field 'name' => ( required => 1 );
+has_field 'short_name' => ( required => 1 );
+has_field 'background_colour' => ( required => 0 );
+has_field 'theme_colour' => ( required => 0 );
+
+before 'update_model' => sub {
+    my $self = shift;
+    $self->item->cobrand($self->cobrand) if $self->cobrand && !$self->item->cobrand;
+};
+
+sub _build_language_handle { FixMyStreet::App::Form::I18N->new }
+
+__PACKAGE__->meta->make_immutable;
+
+1;
diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm
index 9851b4896..695487268 100644
--- a/perllib/FixMyStreet/Cobrand/Default.pm
+++ b/perllib/FixMyStreet/Cobrand/Default.pm
@@ -685,6 +685,7 @@ sub admin_pages {
         $pages->{flagged} = [ _('Flagged'), 7 ];
         $pages->{states} = [ _('States'), 8 ];
         $pages->{config} = [ _('Configuration'), 9];
+        $pages->{manifesttheme} = [ _('Manifest Theme'), 11];
         $pages->{user_import} = [ undef, undef ];
     };
     # And some that need special permissions
diff --git a/perllib/FixMyStreet/DB/Result/AdminLog.pm b/perllib/FixMyStreet/DB/Result/AdminLog.pm
index 5564d829a..4c89138c9 100644
--- a/perllib/FixMyStreet/DB/Result/AdminLog.pm
+++ b/perllib/FixMyStreet/DB/Result/AdminLog.pm
@@ -91,6 +91,10 @@ sub link {
         my $category = $self->object;
         return "/admin/body/" . $category->body_id . '/' . $category->category;
     }
+    if ($type eq 'manifesttheme') {
+        my $theme = $self->object;
+        return "/admin/manifesttheme/" . $theme->cobrand;
+    }
     return '';
 }
 
@@ -114,6 +118,7 @@ sub object_summary {
         role => 'name',
         template => 'title',
         category => 'category',
+        manifesttheme => 'cobrand',
     };
     my $thing = $type_to_thing->{$self->object_type} || 'id';
 
@@ -130,6 +135,7 @@ sub object {
         template => 'ResponseTemplate',
         category => 'Contact',
         update => 'Comment',
+        manifesttheme => 'ManifestTheme',
     };
     $type = $type_to_object->{$type} || ucfirst $type;
     my $object = $self->result_source->schema->resultset($type)->find($id);