Added organisations page to admin interface

lib/Pear/LocalLoop.pm

@@ -143,16 +143,23 @@ sub startup {
   my $admin_routes = $r->under('/admin')->to('admin#under');
 
   $admin_routes->get('/')->to('admin#home');
+
   $admin_routes->get('/tokens')->to('admin-tokens#index');
   $admin_routes->post('/tokens')->to('admin-tokens#create');
   $admin_routes->get('/tokens/:id')->to('admin-tokens#read');
   $admin_routes->post('/tokens/:id')->to('admin-tokens#update');
   $admin_routes->post('/tokens/:id/delete')->to('admin-tokens#delete');
+
   $admin_routes->get('/users')->to('admin-users#index');
   $admin_routes->get('/users/:id')->to('admin-users#read');
   $admin_routes->post('/users/:id')->to('admin-users#update');
   $admin_routes->post('/users/:id/delete')->to('admin-users#delete');
 
+  $admin_routes->get('/organisations')->to('admin-organisations#list');
+  $admin_routes->get('/organisations/valid/:id')->to('admin-organisations#valid_read');
+  $admin_routes->get('/organisations/pending/:id')->to('admin-organisations#pending_read');
+  $admin_routes->get('/organisations/pending/:id/approve')->to('admin-organisations#pending_approve');
+
   my $user_routes = $r->under('/')->to('root#under');
 
   $user_routes->get('/home')->to('root#home');
@@ -160,12 +167,32 @@ sub startup {
   my $portal_api = $r->under('/portal')->to('api-auth#check_json')->under('/')->to('portal#under');
 
   $portal_api->post('/upload')->to('api-upload#post_upload');
+  $portal_api->post('/search')->to('api-upload#post_search');
 
   $self->hook( before_dispatch => sub {
     my $self = shift;
 
     $self->res->headers->header('Access-Control-Allow-Origin' => '*') if $self->app->mode eq 'development';
   });
+
+  $self->helper( copy_transactions_and_delete => sub {
+    my ( $c, $from_org, $to_org ) = @_;
+
+    my $from_org_transaction_rs = $from_org->transactions;
+
+    while ( my $from_org_transaction = $from_org_transaction_rs->next ) {
+      $to_org->create_related(
+        'transactions', {
+          buyer_id     => $from_org_transaction->buyer_id,
+          value        => $from_org_transaction->value,
+          proof_image  => $from_org_transaction->proof_image,
+          submitted_at => $from_org_transaction->submitted_at,
+        }
+      );
+    }
+
+    $from_org->delete;
+  });
 }
 
 1;

lib/Pear/LocalLoop/Controller/Admin/Organisations.pm

@@ -0,0 +1,42 @@
+package Pear::LocalLoop::Controller::Admin::Organisations;
+use Mojo::Base 'Mojolicious::Controller';
+
+sub list {
+  my $c = shift;
+
+  my $valid_orgs_rs = $c->schema->resultset('Organisation');
+  my $pending_orgs_rs = $c->schema->resultset('PendingOrganisation');
+
+  $c->stash(
+    valid_orgs_rs => $valid_orgs_rs,
+    pending_orgs_rs => $pending_orgs_rs,
+  );
+}
+
+sub valid_read {
+  my $c = shift;
+  my $valid_org = $c->schema->resultset('Organisation')->find( $c->param('id') );
+  $c->stash( valid_org => $valid_org );
+}
+
+sub pending_read {
+  my $c = shift;
+  my $pending_org = $c->schema->resultset('PendingOrganisation')->find( $c->param('id') );
+  $c->stash( pending_org => $pending_org );
+}
+
+sub pending_approve {
+  my $c = shift;
+  my $pending_org = $c->schema->resultset('PendingOrganisation')->find( $c->param('id') );
+  my $valid_org = $c->schema->resultset('Organisation')->create({
+    name        => $pending_org->name,
+    street_name => $pending_org->street_name,
+    town        => $pending_org->town,
+    postcode    => $pending_org->postcode,
+  });
+  $c->copy_transactions_and_delete( $pending_org, $valid_org );
+  $c->flash( success => 'Validated Organisation' );
+  $c->redirect_to( '/admin/organisations/valid/' . $valid_org->id );
+}
+
+1;

lib/Pear/LocalLoop/Controller/Api/Admin.pm

@@ -102,24 +102,5 @@ sub post_admin_merge {
   );  
 }
 
-sub copy_transactions_and_delete {
-  my ( $c, $from_org, $to_org ) = @_;
-
-  my $from_org_transaction_rs = $from_org->transactions;
-
-  while ( my $from_org_transaction = $from_org_transaction_rs->next ) {
-    $to_org->create_related(
-      'transactions', {
-        buyer_id     => $from_org_transaction->buyer_id,
-        value        => $from_org_transaction->value,
-        proof_image  => $from_org_transaction->proof_image,
-        submitted_at => $from_org_transaction->submitted_at,
-      }
-    );
-  }
-
-  $from_org->delete;
-}
-
 1;
 

lib/Pear/LocalLoop/Schema/Result/User.pm

@@ -134,4 +134,16 @@ sub generate_session {
   return $token;
 }
 
+sub name {
+  my $self = shift;
+
+  if ( defined $self->customer_id ) {
+    return $self->customer->name;
+  } elsif ( defined $self->organisation_id ) {
+    return $self->organisation->name;
+  } else {
+    return undef;
+  }
+}
+
 1;