Merge pull request #61 from Pear-Trading/finn/OrgDataAPI

Payroll info submit and read added

doc/Fixtures/Users.md

@@ -17,7 +17,7 @@
   * email: test4@example.com
   * password: abc123
 * Test Org
-  * email: test5@example.com
+  * email: org@example.com
   * password: abc123
 * Test Admin
   * email: admin@example.com

lib/Pear/LocalLoop.pm

@@ -145,12 +145,19 @@ sub startup {
   $api->post('/stats/leaderboard')->to('api-stats#post_leaderboards');
   $api->post('/outgoing-transactions')->to('api-transactions#post_transaction_list_purchases');
 
+
   my $api_v1 = $api->under('/v1');
 
   my $api_v1_org = $api_v1->under('/organisation')->to('api-v1-organisation#auth');
 
   $api_v1_org->post('/graphs')->to('api-v1-organisation-graphs#index');
   $api_v1_org->post('/snippets')->to('api-v1-organisation-snippets#index');
+  $api_v1_org->post('/payroll')->to('api-organisation#post_payroll_read');
+  $api_v1_org->post('/payroll/add')->to('api-organisation#post_payroll_add');
+  $api_v1_org->post('/supplier')->to('api-organisation#post_supplier_read');
+  $api_v1_org->post('/supplier/add')->to('api-organisation#post_supplier_add');
+  $api_v1_org->post('/employee')->to('api-organisation#post_employee_read');
+  $api_v1_org->post('/employee/add')->to('api-organisation#post_employee_add');
 
   my $admin_routes = $r->under('/admin')->to('admin#under');
 

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

@@ -0,0 +1,239 @@
+package Pear::LocalLoop::Controller::Api::Organisation;
+use Mojo::Base 'Mojolicious::Controller';
+use Mojo::JSON;
+
+has error_messages => sub {
+  return {
+    entry_period => {
+      required => { message => 'No entry period sent.', status => 400 },
+    },
+    employee_amount => {
+      required => { message => 'No employee amount sent.', status => 400 },
+    },
+    local_employee_amount => {
+      required => { message => 'No local employee amount sent.', status => 400 },
+    },
+    gross_payroll => {
+      required => { message => 'No gross payroll sent.', status => 400 },
+    },
+    payroll_income_tax => {
+      required => { message => 'No total income tax sent.', status => 400 },
+    },
+    payroll_employee_ni => {
+      required => { message => 'No total employee NI sent.', status => 400 },
+    },
+    payroll_employer_ni => {
+      required => { message => 'No total employer NI sent.', status => 400 },
+    },
+    payroll_total_pension => {
+      required => { message => 'No total total pension sent.', status => 400 },
+    },
+    payroll_other_benefit => {
+      required => { message => 'No total other benefits total sent.', status => 400 },
+    },
+    supplier_business_name => {
+      required => { message => 'No supplier business name sent.', status => 400 },
+    },
+    postcode => {
+      required => { message => 'No postcode sent.', status => 400 },
+      postcode => { message => 'postcode must be valid', status => 400 },
+    },
+    monthly_spend => {
+      required => { message => 'No monthly spend sent.', status => 400 },
+    },
+    employee_no => {
+      required => { message => 'No employee no sent.', status => 400 },
+    },
+    employee_income_tax => {
+      required => { message => 'No employee income tax sent.', status => 400 },
+    },
+    employee_gross_wage => {
+      required => { message => 'No employee gross wage sent.', status => 400 },
+    },
+    employee_ni => {
+      required => { message => 'No employee ni sent.', status => 400 },
+    },
+    employee_pension => {
+      required => { message => 'No employee pension sent.', status => 400 },
+    },
+    employee_other_benefit => {
+      required => { message => 'No employee other benefits sent.', status => 400 },
+    },
+  };
+};
+
+sub post_payroll_read {
+  my $c = shift;
+
+  my $user = $c->stash->{api_user};
+
+  my $validation = $c->validation;
+  $validation->input( $c->stash->{api_json} );
+  $validation->optional('page')->number;
+
+  return $c->api_validation_error if $validation->has_error;
+
+  my $payrolls = $user->entity->organisation->payroll->search(
+    undef, {
+      page => $validation->param('page') || 1,
+      rows => 10,
+      order_by => { -desc => 'submitted_at' },
+    },
+  );
+
+# purchase_time needs timezone attached to it
+  my @payroll_list = (
+    map {{
+      entry_period          => $_->entry_period,
+      employee_amount       => $_->employee_amount,
+      local_employee_amount => $_->local_employee_amount,
+      gross_payroll         => $_->gross_payroll / 100000,
+      payroll_income_tax    => $_->payroll_income_tax / 100000,
+      payroll_employee_ni   => $_->payroll_employee_ni / 100000,
+      payroll_employer_ni   => $_->payroll_employer_ni / 100000,
+      payroll_total_pension => $_->payroll_total_pension / 100000,
+      payroll_other_benefit => $_->payroll_other_benefit / 100000,
+    }} $payrolls->all
+  );
+
+  return $c->render( json => {
+    success => Mojo::JSON->true,
+    payrolls => \@payroll_list,
+    page_no => $payrolls->pager->total_entries,
+  });
+}
+
+sub post_payroll_add {
+  my $c = shift;
+
+  my $user = $c->stash->{api_user};
+
+  my $validation = $c->validation;
+  $validation->input( $c->stash->{api_json} );
+
+  return $c->api_validation_error if $validation->has_error;
+
+  my $user_rs = $c->schema->resultset('User')->search({
+    id => { "!=" => $user->id },
+  });
+
+  $validation->required('entry_period');
+  $validation->required('employee_amount');
+  $validation->required('local_employee_amount');
+  $validation->required('gross_payroll');
+  $validation->required('payroll_income_tax');
+  $validation->required('payroll_employee_ni');
+  $validation->required('payroll_employer_ni');
+  $validation->required('payroll_total_pension');
+  $validation->required('payroll_other_benefit');
+
+  return $c->api_validation_error if $validation->has_error;
+
+  my $entry_period = $c->parse_iso_month($validation->param('entry_period'));
+  my $employee_amount = $validation->param('employee_amount');
+  my $local_employee_amount = $validation->param('local_employee_amount');
+  my $gross_payroll = $validation->param('gross_payroll');
+  my $payroll_income_tax = $validation->param('payroll_income_tax');
+  my $payroll_employee_ni = $validation->param('payroll_employee_ni');
+  my $payroll_employer_ni = $validation->param('payroll_employer_ni');
+  my $payroll_total_pension = $validation->param('payroll_total_pension');
+  my $payroll_other_benefit = $validation->param('payroll_other_benefit');
+
+  $c->schema->txn_do( sub {
+    $user->entity->organisation->payroll->create({
+      entry_period          => $entry_period,
+      employee_amount       => $employee_amount,
+      local_employee_amount => $local_employee_amount,
+      gross_payroll         => $gross_payroll * 100000,
+      payroll_income_tax    => $payroll_income_tax * 100000,
+      payroll_employee_ni   => $payroll_employee_ni * 100000,
+      payroll_employer_ni   => $payroll_employer_ni * 100000,
+      payroll_total_pension => $payroll_total_pension * 100000,
+      payroll_other_benefit => $payroll_other_benefit * 100000,
+    });
+  });
+
+  return $c->render( json => {
+    success => Mojo::JSON->true,
+    message => 'Submitted Payroll Info Successfully',
+  });
+}
+
+sub post_supplier_read {
+
+}
+
+sub post_supplier_add {
+  my $c = shift;
+
+  my $user = $c->stash->{api_user};
+
+  my $validation = $c->validation;
+  $validation->input( $c->stash->{api_json} );
+
+  return $c->api_validation_error if $validation->has_error;
+
+  my $user_rs = $c->schema->resultset('User')->search({
+    id => { "!=" => $user->id },
+  });
+
+  $validation->required('entry_period');
+  $validation->required('postcode')->postcode;
+  $validation->required('supplier_business_name');
+  $validation->required('monthly_spend');
+
+  return $c->api_validation_error if $validation->has_error;
+
+  $c->schema->txn_do( sub {
+    $user->entity->organisation->update({
+      entry_period        => $validation->param('entry_period'),
+    });
+  });
+
+  return $c->render( json => {
+    success => Mojo::JSON->true,
+    message => 'Submitted Supplier Info Successfully',
+  });
+}
+
+sub post_employee_read {
+
+}
+
+sub post_employee_add {
+  my $c = shift;
+
+  my $user = $c->stash->{api_user};
+
+  my $validation = $c->validation;
+  $validation->input( $c->stash->{api_json} );
+
+  return $c->api_validation_error if $validation->has_error;
+
+  my $user_rs = $c->schema->resultset('User')->search({
+    id => { "!=" => $user->id },
+  });
+
+  $validation->required('entry_period');
+  $validation->required('employee_no');
+  $validation->required('employee_income_tax');
+  $validation->required('employee_gross_wage');
+  $validation->required('employee_ni');
+  $validation->required('employee_pension');
+  $validation->required('employee_other_benefit');
+
+  return $c->api_validation_error if $validation->has_error;
+
+  $c->schema->txn_do( sub {
+    $user->entity->organisation->update({
+      entry_period        => $validation->param('entry_period'),
+    });
+  });
+
+  return $c->render( json => {
+    success => Mojo::JSON->true,
+    message => 'Submitted Employee Info Successfully',
+  });
+}
+
+1;

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

@@ -82,7 +82,6 @@ has error_messages => sub {
       required => { message => 'search name is missing', status => 400 },
     },
     postcode => {
-      required => { message => 'postcode is missing', status => 400 },
       postcode => { message => 'postcode must be valid', status => 400 },
     },
   };

lib/Pear/LocalLoop/Plugin/Datetime.pm

@@ -14,6 +14,10 @@ sub register {
     return DateTime::Format::Strptime->new( pattern => '%Y-%m-%d' );
   });
 
+  $app->helper( iso_month_parser => sub {
+    return DateTime::Format::Strptime->new( pattern => '%Y-%m' );
+  });
+
   $app->helper( parse_iso_date => sub {
     my ( $c, $date_string ) = @_;
     return $c->iso_date_parser->parse_datetime(
@@ -28,6 +32,20 @@ sub register {
     );
   });
 
+  $app->helper( parse_iso_month => sub {
+    my ( $c, $date_string ) = @_;
+    return $c->iso_month_parser->parse_datetime(
+      $date_string,
+    );
+  });
+
+  $app->helper( format_iso_month => sub {
+    my ( $c, $datetime_obj ) = @_;
+    return $c->iso_month_parser->format_datetime(
+      $datetime_obj,
+    );
+  });
+
   $app->helper( parse_iso_datetime => sub {
     my ( $c, $date_string ) = @_;
     return $c->iso_datetime_parser->parse_datetime(

lib/Pear/LocalLoop/Schema.pm

@@ -6,7 +6,7 @@ use warnings;
 
 use base 'DBIx::Class::Schema';
 
-our $VERSION = 7;
+our $VERSION = 8;
 
 __PACKAGE__->load_namespaces;
 

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

@@ -68,6 +68,13 @@ __PACKAGE__->belongs_to(
   "entity_id",
 );
 
+__PACKAGE__->has_many(
+  "payroll",
+  "Pear::LocalLoop::Schema::Result::OrganisationPayroll",
+  { "foreign.org_id" => "self.id" },
+  { cascade_copy => 0, cascade_delete => 0 },
+);
+
 __PACKAGE__->filter_column( pending => {
   filter_to_storage => 'to_bool',
 });

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

@@ -0,0 +1,83 @@
+package Pear::LocalLoop::Schema::Result::OrganisationPayroll;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components(qw/
+  InflateColumn::DateTime
+  TimeStamp
+/);
+
+__PACKAGE__->table("organisation_payroll");
+
+__PACKAGE__->add_columns(
+  "id" => {
+    data_type => "integer",
+    is_auto_increment => 1,
+    is_nullable => 0,
+  },
+  "org_id" => {
+    data_type => 'integer',
+    is_nullable => 0,
+    is_foreign_key => 1,
+  },
+  "submitted_at" => {
+    data_type => "datetime",
+    is_nullable => 0,
+    set_on_create => 1,
+  },
+  "entry_period" => {
+    data_type => "datetime",
+    is_nullable => 0,
+  },
+  "employee_amount" => {
+    data_type => "integer",
+    is_nullable => 0,
+  },
+  "local_employee_amount" => {
+    data_type => "integer",
+    is_nullable => 0,
+  },
+  "gross_payroll" => {
+    data_type => "numeric",
+    size => [ 100, 0 ],
+    is_nullable => 0,
+  },
+  "payroll_income_tax" => {
+    data_type => "numeric",
+    size => [ 100, 0 ],
+    is_nullable => 0,
+  },
+  "payroll_employee_ni" => {
+    data_type => "numeric",
+    size => [ 100, 0 ],
+    is_nullable => 0,
+  },
+  "payroll_employer_ni" => {
+    data_type => "numeric",
+    size => [ 100, 0 ],
+    is_nullable => 0,
+  },
+  "payroll_total_pension" => {
+    data_type => "numeric",
+    size => [ 100, 0 ],
+    is_nullable => 0,
+  },
+  "payroll_other_benefit" => {
+    data_type => "numeric",
+    size => [ 100, 0 ],
+    is_nullable => 0,
+  },
+);
+
+__PACKAGE__->set_primary_key("id");
+
+__PACKAGE__->belongs_to(
+  "organisation",
+  "Pear::LocalLoop::Schema::Result::Organisation",
+  "org_id",
+);
+
+1;

share/ddl/PostgreSQL/deploy/8/001-auto-__VERSION.sql

@@ -0,0 +1,18 @@
+-- 
+-- Created by SQL::Translator::Producer::PostgreSQL
+-- Created on Tue Sep 19 16:52:01 2017
+-- 
+;
+--
+-- Table: dbix_class_deploymenthandler_versions
+--
+CREATE TABLE "dbix_class_deploymenthandler_versions" (
+  "id" serial NOT NULL,
+  "version" character varying(50) NOT NULL,
+  "ddl" text,
+  "upgrade_sql" text,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "dbix_class_deploymenthandler_versions_version" UNIQUE ("version")
+);
+
+;

share/ddl/PostgreSQL/deploy/8/001-auto.sql

@@ -0,0 +1,235 @@
+-- 
+-- Created by SQL::Translator::Producer::PostgreSQL
+-- Created on Tue Sep 19 16:52:01 2017
+-- 
+;
+--
+-- Table: account_tokens
+--
+CREATE TABLE "account_tokens" (
+  "id" serial NOT NULL,
+  "name" text NOT NULL,
+  "used" integer DEFAULT 0 NOT NULL,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "account_tokens_name" UNIQUE ("name")
+);
+
+;
+--
+-- Table: entities
+--
+CREATE TABLE "entities" (
+  "id" serial NOT NULL,
+  "type" character varying(255) NOT NULL,
+  PRIMARY KEY ("id")
+);
+
+;
+--
+-- Table: leaderboards
+--
+CREATE TABLE "leaderboards" (
+  "id" serial NOT NULL,
+  "name" character varying(255) NOT NULL,
+  "type" character varying(255) NOT NULL,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "leaderboards_type" UNIQUE ("type")
+);
+
+;
+--
+-- Table: customers
+--
+CREATE TABLE "customers" (
+  "id" serial NOT NULL,
+  "entity_id" integer NOT NULL,
+  "display_name" character varying(255) NOT NULL,
+  "full_name" character varying(255) NOT NULL,
+  "year_of_birth" integer NOT NULL,
+  "postcode" character varying(16) NOT NULL,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "customers_idx_entity_id" on "customers" ("entity_id");
+
+;
+--
+-- Table: leaderboard_sets
+--
+CREATE TABLE "leaderboard_sets" (
+  "id" serial NOT NULL,
+  "leaderboard_id" integer NOT NULL,
+  "date" timestamp NOT NULL,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "leaderboard_sets_idx_leaderboard_id" on "leaderboard_sets" ("leaderboard_id");
+
+;
+--
+-- Table: organisations
+--
+CREATE TABLE "organisations" (
+  "id" serial NOT NULL,
+  "entity_id" integer NOT NULL,
+  "name" character varying(255) NOT NULL,
+  "street_name" text,
+  "town" character varying(255) NOT NULL,
+  "postcode" character varying(16),
+  "country" character varying(255),
+  "sector" character varying(1),
+  "pending" boolean DEFAULT false NOT NULL,
+  "submitted_by_id" integer,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "organisations_idx_entity_id" on "organisations" ("entity_id");
+
+;
+--
+-- Table: transactions
+--
+CREATE TABLE "transactions" (
+  "id" serial NOT NULL,
+  "buyer_id" integer NOT NULL,
+  "seller_id" integer NOT NULL,
+  "value" numeric(100,0) NOT NULL,
+  "proof_image" text,
+  "submitted_at" timestamp NOT NULL,
+  "purchase_time" timestamp NOT NULL,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "transactions_idx_buyer_id" on "transactions" ("buyer_id");
+CREATE INDEX "transactions_idx_seller_id" on "transactions" ("seller_id");
+
+;
+--
+-- Table: users
+--
+CREATE TABLE "users" (
+  "id" serial NOT NULL,
+  "entity_id" integer NOT NULL,
+  "email" text NOT NULL,
+  "join_date" timestamp NOT NULL,
+  "password" character varying(100) NOT NULL,
+  "is_admin" boolean DEFAULT false NOT NULL,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "users_email" UNIQUE ("email")
+);
+CREATE INDEX "users_idx_entity_id" on "users" ("entity_id");
+
+;
+--
+-- Table: feedback
+--
+CREATE TABLE "feedback" (
+  "id" serial NOT NULL,
+  "user_id" integer NOT NULL,
+  "submitted_at" timestamp NOT NULL,
+  "feedbacktext" text NOT NULL,
+  "app_name" character varying(255) NOT NULL,
+  "package_name" character varying(255) NOT NULL,
+  "version_code" character varying(255) NOT NULL,
+  "version_number" character varying(255) NOT NULL,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "feedback_idx_user_id" on "feedback" ("user_id");
+
+;
+--
+-- Table: organisation_payroll
+--
+CREATE TABLE "organisation_payroll" (
+  "id" serial NOT NULL,
+  "org_id" integer NOT NULL,
+  "submitted_at" timestamp NOT NULL,
+  "entry_period" timestamp NOT NULL,
+  "employee_amount" integer NOT NULL,
+  "local_employee_amount" integer NOT NULL,
+  "gross_payroll" numeric(100,0) NOT NULL,
+  "payroll_income_tax" numeric(100,0) NOT NULL,
+  "payroll_employee_ni" numeric(100,0) NOT NULL,
+  "payroll_employer_ni" numeric(100,0) NOT NULL,
+  "payroll_total_pension" numeric(100,0) NOT NULL,
+  "payroll_other_benefit" numeric(100,0) NOT NULL,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "organisation_payroll_idx_org_id" on "organisation_payroll" ("org_id");
+
+;
+--
+-- Table: session_tokens
+--
+CREATE TABLE "session_tokens" (
+  "id" serial NOT NULL,
+  "token" character varying(255) NOT NULL,
+  "user_id" integer NOT NULL,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "session_tokens_token" UNIQUE ("token")
+);
+CREATE INDEX "session_tokens_idx_user_id" on "session_tokens" ("user_id");
+
+;
+--
+-- Table: leaderboard_values
+--
+CREATE TABLE "leaderboard_values" (
+  "id" serial NOT NULL,
+  "entity_id" integer NOT NULL,
+  "set_id" integer NOT NULL,
+  "position" integer NOT NULL,
+  "value" numeric(100,0) NOT NULL,
+  "trend" integer DEFAULT 0 NOT NULL,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "leaderboard_values_entity_id_set_id" UNIQUE ("entity_id", "set_id")
+);
+CREATE INDEX "leaderboard_values_idx_entity_id" on "leaderboard_values" ("entity_id");
+CREATE INDEX "leaderboard_values_idx_set_id" on "leaderboard_values" ("set_id");
+
+;
+--
+-- Foreign Key Definitions
+--
+
+;
+ALTER TABLE "customers" ADD CONSTRAINT "customers_fk_entity_id" FOREIGN KEY ("entity_id")
+  REFERENCES "entities" ("id") ON DELETE CASCADE DEFERRABLE;
+
+;
+ALTER TABLE "leaderboard_sets" ADD CONSTRAINT "leaderboard_sets_fk_leaderboard_id" FOREIGN KEY ("leaderboard_id")
+  REFERENCES "leaderboards" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;
+ALTER TABLE "organisations" ADD CONSTRAINT "organisations_fk_entity_id" FOREIGN KEY ("entity_id")
+  REFERENCES "entities" ("id") ON DELETE CASCADE DEFERRABLE;
+
+;
+ALTER TABLE "transactions" ADD CONSTRAINT "transactions_fk_buyer_id" FOREIGN KEY ("buyer_id")
+  REFERENCES "entities" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;
+ALTER TABLE "transactions" ADD CONSTRAINT "transactions_fk_seller_id" FOREIGN KEY ("seller_id")
+  REFERENCES "entities" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;
+ALTER TABLE "users" ADD CONSTRAINT "users_fk_entity_id" FOREIGN KEY ("entity_id")
+  REFERENCES "entities" ("id") ON DELETE CASCADE DEFERRABLE;
+
+;
+ALTER TABLE "feedback" ADD CONSTRAINT "feedback_fk_user_id" FOREIGN KEY ("user_id")
+  REFERENCES "users" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;
+ALTER TABLE "organisation_payroll" ADD CONSTRAINT "organisation_payroll_fk_org_id" FOREIGN KEY ("org_id")
+  REFERENCES "organisations" ("id") DEFERRABLE;
+
+;
+ALTER TABLE "session_tokens" ADD CONSTRAINT "session_tokens_fk_user_id" FOREIGN KEY ("user_id")
+  REFERENCES "users" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;
+ALTER TABLE "leaderboard_values" ADD CONSTRAINT "leaderboard_values_fk_entity_id" FOREIGN KEY ("entity_id")
+  REFERENCES "entities" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;
+ALTER TABLE "leaderboard_values" ADD CONSTRAINT "leaderboard_values_fk_set_id" FOREIGN KEY ("set_id")
+  REFERENCES "leaderboard_sets" ("id") ON DELETE NO ACTION ON UPDATE NO ACTION;
+
+;

share/ddl/PostgreSQL/upgrade/7-8/001-auto.sql

@@ -0,0 +1,31 @@
+-- Convert schema 'share/ddl/_source/deploy/7/001-auto.yml' to 'share/ddl/_source/deploy/8/001-auto.yml':;
+
+;
+BEGIN;
+
+;
+CREATE TABLE "organisation_payroll" (
+  "id" serial NOT NULL,
+  "org_id" integer NOT NULL,
+  "submitted_at" timestamp NOT NULL,
+  "entry_period" timestamp NOT NULL,
+  "employee_amount" integer NOT NULL,
+  "local_employee_amount" integer NOT NULL,
+  "gross_payroll" numeric(100,0) NOT NULL,
+  "payroll_income_tax" numeric(100,0) NOT NULL,
+  "payroll_employee_ni" numeric(100,0) NOT NULL,
+  "payroll_employer_ni" numeric(100,0) NOT NULL,
+  "payroll_total_pension" numeric(100,0) NOT NULL,
+  "payroll_other_benefit" numeric(100,0) NOT NULL,
+  PRIMARY KEY ("id")
+);
+CREATE INDEX "organisation_payroll_idx_org_id" on "organisation_payroll" ("org_id");
+
+;
+ALTER TABLE "organisation_payroll" ADD CONSTRAINT "organisation_payroll_fk_org_id" FOREIGN KEY ("org_id")
+  REFERENCES "organisations" ("id") DEFERRABLE;
+
+;
+
+COMMIT;
+

share/ddl/SQLite/deploy/8/001-auto-__VERSION.sql

@@ -0,0 +1,18 @@
+-- 
+-- Created by SQL::Translator::Producer::SQLite
+-- Created on Tue Sep 19 16:52:01 2017
+-- 
+
+;
+BEGIN TRANSACTION;
+--
+-- Table: dbix_class_deploymenthandler_versions
+--
+CREATE TABLE dbix_class_deploymenthandler_versions (
+  id INTEGER PRIMARY KEY NOT NULL,
+  version varchar(50) NOT NULL,
+  ddl text,
+  upgrade_sql text
+);
+CREATE UNIQUE INDEX dbix_class_deploymenthandler_versions_version ON dbix_class_deploymenthandler_versions (version);
+COMMIT;

share/ddl/SQLite/deploy/8/001-auto.sql

@@ -0,0 +1,164 @@
+-- 
+-- Created by SQL::Translator::Producer::SQLite
+-- Created on Tue Sep 19 16:52:01 2017
+-- 
+
+;
+BEGIN TRANSACTION;
+--
+-- Table: account_tokens
+--
+CREATE TABLE account_tokens (
+  id INTEGER PRIMARY KEY NOT NULL,
+  name text NOT NULL,
+  used integer NOT NULL DEFAULT 0
+);
+CREATE UNIQUE INDEX account_tokens_name ON account_tokens (name);
+--
+-- Table: entities
+--
+CREATE TABLE entities (
+  id INTEGER PRIMARY KEY NOT NULL,
+  type varchar(255) NOT NULL
+);
+--
+-- Table: leaderboards
+--
+CREATE TABLE leaderboards (
+  id INTEGER PRIMARY KEY NOT NULL,
+  name varchar(255) NOT NULL,
+  type varchar(255) NOT NULL
+);
+CREATE UNIQUE INDEX leaderboards_type ON leaderboards (type);
+--
+-- Table: customers
+--
+CREATE TABLE customers (
+  id INTEGER PRIMARY KEY NOT NULL,
+  entity_id integer NOT NULL,
+  display_name varchar(255) NOT NULL,
+  full_name varchar(255) NOT NULL,
+  year_of_birth integer NOT NULL,
+  postcode varchar(16) NOT NULL,
+  FOREIGN KEY (entity_id) REFERENCES entities(id) ON DELETE CASCADE
+);
+CREATE INDEX customers_idx_entity_id ON customers (entity_id);
+--
+-- Table: leaderboard_sets
+--
+CREATE TABLE leaderboard_sets (
+  id INTEGER PRIMARY KEY NOT NULL,
+  leaderboard_id integer NOT NULL,
+  date datetime NOT NULL,
+  FOREIGN KEY (leaderboard_id) REFERENCES leaderboards(id) ON DELETE NO ACTION ON UPDATE NO ACTION
+);
+CREATE INDEX leaderboard_sets_idx_leaderboard_id ON leaderboard_sets (leaderboard_id);
+--
+-- Table: organisations
+--
+CREATE TABLE organisations (
+  id INTEGER PRIMARY KEY NOT NULL,
+  entity_id integer NOT NULL,
+  name varchar(255) NOT NULL,
+  street_name text,
+  town varchar(255) NOT NULL,
+  postcode varchar(16),
+  country varchar(255),
+  sector varchar(1),
+  pending boolean NOT NULL DEFAULT false,
+  submitted_by_id integer,
+  FOREIGN KEY (entity_id) REFERENCES entities(id) ON DELETE CASCADE
+);
+CREATE INDEX organisations_idx_entity_id ON organisations (entity_id);
+--
+-- Table: transactions
+--
+CREATE TABLE transactions (
+  id INTEGER PRIMARY KEY NOT NULL,
+  buyer_id integer NOT NULL,
+  seller_id integer NOT NULL,
+  value numeric(100,0) NOT NULL,
+  proof_image text,
+  submitted_at datetime NOT NULL,
+  purchase_time datetime NOT NULL,
+  FOREIGN KEY (buyer_id) REFERENCES entities(id) ON DELETE NO ACTION ON UPDATE NO ACTION,
+  FOREIGN KEY (seller_id) REFERENCES entities(id) ON DELETE NO ACTION ON UPDATE NO ACTION
+);
+CREATE INDEX transactions_idx_buyer_id ON transactions (buyer_id);
+CREATE INDEX transactions_idx_seller_id ON transactions (seller_id);
+--
+-- Table: users
+--
+CREATE TABLE users (
+  id INTEGER PRIMARY KEY NOT NULL,
+  entity_id integer NOT NULL,
+  email text NOT NULL,
+  join_date datetime NOT NULL,
+  password varchar(100) NOT NULL,
+  is_admin boolean NOT NULL DEFAULT false,
+  FOREIGN KEY (entity_id) REFERENCES entities(id) ON DELETE CASCADE
+);
+CREATE INDEX users_idx_entity_id ON users (entity_id);
+CREATE UNIQUE INDEX users_email ON users (email);
+--
+-- Table: feedback
+--
+CREATE TABLE feedback (
+  id INTEGER PRIMARY KEY NOT NULL,
+  user_id integer NOT NULL,
+  submitted_at datetime NOT NULL,
+  feedbacktext text NOT NULL,
+  app_name varchar(255) NOT NULL,
+  package_name varchar(255) NOT NULL,
+  version_code varchar(255) NOT NULL,
+  version_number varchar(255) NOT NULL,
+  FOREIGN KEY (user_id) REFERENCES users(id) ON DELETE NO ACTION ON UPDATE NO ACTION
+);
+CREATE INDEX feedback_idx_user_id ON feedback (user_id);
+--
+-- Table: organisation_payroll
+--
+CREATE TABLE organisation_payroll (
+  id INTEGER PRIMARY KEY NOT NULL,
+  org_id integer NOT NULL,
+  submitted_at datetime NOT NULL,
+  entry_period datetime NOT NULL,
+  employee_amount integer NOT NULL,
+  local_employee_amount integer NOT NULL,
+  gross_payroll numeric(100,0) NOT NULL,
+  payroll_income_tax numeric(100,0) NOT NULL,
+  payroll_employee_ni numeric(100,0) NOT NULL,
+  payroll_employer_ni numeric(100,0) NOT NULL,
+  payroll_total_pension numeric(100,0) NOT NULL,
+  payroll_other_benefit numeric(100,0) NOT NULL,
+  FOREIGN KEY (org_id) REFERENCES organisations(id)
+);
+CREATE INDEX organisation_payroll_idx_org_id ON organisation_payroll (org_id);
+--
+-- Table: session_tokens
+--
+CREATE TABLE session_tokens (
+  id INTEGER PRIMARY KEY NOT NULL,
+  token varchar(255) NOT NULL,
+  user_id integer NOT NULL,
+  FOREIGN KEY (user_id) REFERENCES users(id) ON DELETE NO ACTION ON UPDATE NO ACTION
+);
+CREATE INDEX session_tokens_idx_user_id ON session_tokens (user_id);
+CREATE UNIQUE INDEX session_tokens_token ON session_tokens (token);
+--
+-- Table: leaderboard_values
+--
+CREATE TABLE leaderboard_values (
+  id INTEGER PRIMARY KEY NOT NULL,
+  entity_id integer NOT NULL,
+  set_id integer NOT NULL,
+  position integer NOT NULL,
+  value numeric(100,0) NOT NULL,
+  trend integer NOT NULL DEFAULT 0,
+  FOREIGN KEY (entity_id) REFERENCES entities(id) ON DELETE NO ACTION ON UPDATE NO ACTION,
+  FOREIGN KEY (set_id) REFERENCES leaderboard_sets(id) ON DELETE NO ACTION ON UPDATE NO ACTION
+);
+CREATE INDEX leaderboard_values_idx_entity_id ON leaderboard_values (entity_id);
+CREATE INDEX leaderboard_values_idx_set_id ON leaderboard_values (set_id);
+CREATE UNIQUE INDEX leaderboard_values_entity_id_set_id ON leaderboard_values (entity_id, set_id);
+COMMIT;

share/ddl/SQLite/upgrade/7-8/001-auto.sql

@@ -0,0 +1,29 @@
+-- Convert schema 'share/ddl/_source/deploy/7/001-auto.yml' to 'share/ddl/_source/deploy/8/001-auto.yml':;
+
+;
+BEGIN;
+
+;
+CREATE TABLE organisation_payroll (
+  id INTEGER PRIMARY KEY NOT NULL,
+  org_id integer NOT NULL,
+  submitted_at datetime NOT NULL,
+  entry_period datetime NOT NULL,
+  employee_amount integer NOT NULL,
+  local_employee_amount integer NOT NULL,
+  gross_payroll numeric(100,0) NOT NULL,
+  payroll_income_tax numeric(100,0) NOT NULL,
+  payroll_employee_ni numeric(100,0) NOT NULL,
+  payroll_employer_ni numeric(100,0) NOT NULL,
+  payroll_total_pension numeric(100,0) NOT NULL,
+  payroll_other_benefit numeric(100,0) NOT NULL,
+  FOREIGN KEY (org_id) REFERENCES organisations(id)
+);
+
+;
+CREATE INDEX organisation_payroll_idx_org_id ON organisation_payroll (org_id);
+
+;
+
+COMMIT;
+

share/ddl/_source/deploy/8/001-auto-__VERSION.yml

@@ -0,0 +1,91 @@
+---
+schema:
+  procedures: {}
+  tables:
+    dbix_class_deploymenthandler_versions:
+      constraints:
+        - deferrable: 1
+          expression: ''
+          fields:
+            - id
+          match_type: ''
+          name: ''
+          on_delete: ''
+          on_update: ''
+          options: []
+          reference_fields: []
+          reference_table: ''
+          type: PRIMARY KEY
+        - deferrable: 1
+          expression: ''
+          fields:
+            - version
+          match_type: ''
+          name: dbix_class_deploymenthandler_versions_version
+          on_delete: ''
+          on_update: ''
+          options: []
+          reference_fields: []
+          reference_table: ''
+          type: UNIQUE
+      fields:
+        ddl:
+          data_type: text
+          default_value: ~
+          is_nullable: 1
+          is_primary_key: 0
+          is_unique: 0
+          name: ddl
+          order: 3
+          size:
+            - 0
+        id:
+          data_type: int
+          default_value: ~
+          is_auto_increment: 1
+          is_nullable: 0
+          is_primary_key: 1
+          is_unique: 0
+          name: id
+          order: 1
+          size:
+            - 0
+        upgrade_sql:
+          data_type: text
+          default_value: ~
+          is_nullable: 1
+          is_primary_key: 0
+          is_unique: 0
+          name: upgrade_sql
+          order: 4
+          size:
+            - 0
+        version:
+          data_type: varchar
+          default_value: ~
+          is_nullable: 0
+          is_primary_key: 0
+          is_unique: 1
+          name: version
+          order: 2
+          size:
+            - 50
+      indices: []
+      name: dbix_class_deploymenthandler_versions
+      options: []
+      order: 1
+  triggers: {}
+  views: {}
+translator:
+  add_drop_table: 0
+  filename: ~
+  no_comments: 0
+  parser_args:
+    sources:
+      - __VERSION
+  parser_type: SQL::Translator::Parser::DBIx::Class
+  producer_args: {}
+  producer_type: SQL::Translator::Producer::YAML
+  show_warnings: 0
+  trace: 0
+  version: 0.11021

t/api/organisation.t

@@ -0,0 +1,239 @@
+use Mojo::Base -strict;
+
+use FindBin qw/ $Bin /;
+
+use Test::More;
+use Mojo::JSON;
+use Test::Pear::LocalLoop;
+use DateTime;
+
+my $framework = Test::Pear::LocalLoop->new(
+  etc_dir => "$Bin/../etc",
+);
+$framework->install_fixtures('users');
+
+my $t = $framework->framework;
+my $schema = $t->app->schema;
+
+my $session_key = $framework->login({
+  email => 'org@example.com',
+  password => 'abc123',
+});
+
+## Payroll Data Submission
+
+#No JSON sent
+$t->post_ok('/api/v1/organisation/payroll/add')
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/JSON is missing/i);
+
+#Empty JSON
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {})
+  ->json_is('/success', Mojo::JSON->false);
+
+# no session key
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(401)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/Invalid Session/);
+
+# No entry_period
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No entry period/);
+
+# No employee_amount
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No employee amount/);
+
+# No local_employee_amount
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/local employee amount/);
+
+# No gross_payroll
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No gross payroll/);
+
+# No payroll_income_tax
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No total income tax/);
+
+# No payroll_employee_ni
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No total employee NI/);
+
+# No payroll_employer_ni
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/total employer NI/);
+
+# No payroll_total_pension
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No total total pension/);
+
+# No payroll_other_benefit
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+  })
+  ->status_is(400)
+  ->json_is('/success', Mojo::JSON->false)
+  ->json_like('/message', qr/No total other benefits total/);
+
+# Valid payroll submission
+$t->post_ok('/api/v1/organisation/payroll/add' => json => {
+    session_key => $session_key,
+    entry_period => '2017-12',
+    employee_amount => '10',
+    local_employee_amount => '10',
+    gross_payroll => '10',
+    payroll_income_tax => '10',
+    payroll_employee_ni => '10',
+    payroll_employer_ni => '10',
+    payroll_total_pension => '10',
+    payroll_other_benefit => '10',
+  })
+  ->status_is(200)->or($framework->dump_error)
+  ->json_is('/success', Mojo::JSON->true);
+
+## Payroll Data List read
+
+$t->post_ok('/api/v1/organisation/payroll' => json => {
+    session_key => $session_key,
+  })
+  ->status_is(200)->or($framework->dump_error)
+  ->json_is('/success', Mojo::JSON->true)
+  ->json_has('/payrolls')
+  ->json_has('/payrolls/0/entry_period')
+  ->json_has('/payrolls/0/employee_amount')
+  ->json_has('/payrolls/0/local_employee_amount')
+  ->json_has('/payrolls/0/gross_payroll')
+  ->json_has('/payrolls/0/payroll_income_tax')
+  ->json_has('/payrolls/0/payroll_employee_ni')
+  ->json_has('/payrolls/0/payroll_employer_ni')
+  ->json_has('/payrolls/0/payroll_total_pension')
+  ->json_has('/payrolls/0/payroll_other_benefit');
+
+## Supplier Form submission
+
+#TODO make the test!
+
+## Employee Form submission
+
+#TODO make the test!
+
+$framework->logout( $session_key );
+
+done_testing;