Merge branch 'development' into TBSliver/Postcode-Location

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

@@ -4,8 +4,8 @@ use Mojo::Base 'Mojolicious::Controller';
 has error_messages => sub {
   return {
     email => {
-      required => { message => 'Email is required', status => 400 },
-      in_resultset => { message => 'Change meeee', status => 400 },
+      required => { message => 'Email is required or not registered', status => 400 },
+      in_resultset => { message => 'Email is required or not registered', status => 400, error => "required" },
     },
     feedbacktext => {
       required => { message => 'Feedback is required', status => 400 },

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/Register.pm

@@ -9,18 +9,18 @@ has error_messages => sub {
       in_resultset => { message => 'Token invalid or has been used.', status => 401 },
     },
     name => {
-      required => { message => 'No name sent or was blank.', status => 400 },
+      required => { message => 'No organisation name sent or was blank.', status => 400 },
     },
     display_name => {
-      required => { message => 'No name sent or was blank.', status => 400 },
+      required => { message => 'No display name sent or was blank.', status => 400 },
     },
     full_name => {
-      required => { message => 'No name sent or was blank.', status => 400 },
+      required => { message => 'No full name sent or was blank.', status => 400 },
     },
     email => {
       required => { message => 'No email sent.', status => 400 },
       email => { message => 'Email is invalid.', status => 400 },
-      not_in_resultset => { message => 'Email exists.', status => 403 },
+      not_in_resultset => { message => 'Email already in use.', status => 403 },
     },
     postcode => {
       required => { message => 'No postcode sent.', status => 400 },
@@ -34,16 +34,16 @@ has error_messages => sub {
       in => { message => '"usertype" is invalid.', status => 400 },
     },
     year_of_birth => {
-      required => { message => 'No year_of_birth sent.', status => 400 },
-      number => { message => 'year_of_birth is invalid', status => 400 },
-      gt_num => { message => 'year_of_birth must be within last 150 years', status => 400 },
-      lt_num => { message => 'year_of_birth must be atleast 10 years ago', status => 400 },
+      required => { message => 'No year of birth sent.', status => 400 },
+      number => { message => 'year of birth is invalid', status => 400 },
+      gt_num => { message => 'year of birth must be within last 150 years', status => 400 },
+      lt_num => { message => 'year of birth must be atleast 10 years ago', status => 400 },
     },
     street_name => {
-      required => { message => 'No street_name sent.', status => 400 },
+      required => { message => 'No street name sent.', status => 400 },
     },
     town => {
-      required => { message => 'No town sent.', status => 400 },
+      required => { message => 'No town/city sent.', status => 400 },
     },
   };
 };

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

@@ -35,7 +35,7 @@ sub post_transaction_list_purchases {
     map {{
       seller => $_->seller->name,
       value => $_->value / 100000,
-      purchase_time => $_->purchase_time,
+      purchase_time => $c->format_iso_datetime($_->purchase_time),
     }} $transactions->all
   );
 

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

@@ -50,17 +50,17 @@ The postcode of an organisation, optional key. Used when transaction_Type is 3.
 has error_messages => sub {
   return {
     transaction_type => {
-      required => { message => 'transaction_type is missing.', status => 400 },
-      in => { message => 'transaction_type is not a valid value.', status => 400 },
+      required => { message => 'transaction type is missing.', status => 400 },
+      in => { message => 'transaction type is not a valid value.', status => 400 },
     },
     transaction_value => {
-      required => { message => 'transaction_value is missing', status => 400 },
-      number => { message => 'transaction_value does not look like a number', status => 400 },
-      gt_num => { message => 'transaction_value cannot be equal to or less than zero', status => 400 },
+      required => { message => 'transaction amount is missing', status => 400 },
+      number => { message => 'transaction amount does not look like a number', status => 400 },
+      gt_num => { message => 'transaction amount cannot be equal to or less than zero', status => 400 },
     },
     purchase_time => {
-      required => { message => 'purchase_time is missing', status => 400 },
-      is_full_iso_datetime => { message => 'purchase_time is in incorrect format', status => 400 },
+      required => { message => 'purchase time is missing', status => 400 },
+      is_full_iso_datetime => { message => 'purchase time is in incorrect format', status => 400 },
     },
     file => {
       required => { message => 'No file uploaded', status => 400 },
@@ -68,18 +68,20 @@ has error_messages => sub {
       filetype => { message => 'File must be of type image/jpeg', status => 400 },
     },
     organisation_id => {
-      required => { message => 'organisation_id is missing', status => 400 },
-      number => { message => 'organisation_id is not a number', status => 400 },
-      in_resultset => { message => 'organisation_id does not exist in the database', status => 400 },
+      required => { message => 'existing organisation ID is missing', status => 400 },
+      number => { message => 'organisation ID is not a number', status => 400 },
+      in_resultset => { message => 'organisation ID does not exist in the database', status => 400 },
     },
     organisation_name => {
-      required => { message => 'organisation_name is missing', status => 400 },
+      required => { message => 'organisation name is missing', status => 400 },
+    },
+    town => {
+      required => { message => 'town/city is missing', status => 400 },
     },
     search_name => {
-      required => { message => 'search_name is missing', status => 400 },
+      required => { message => 'search name is missing', status => 400 },
     },
     postcode => {
-      required => { message => 'postcode is missing', status => 400 },
       postcode => { message => 'postcode must be valid', status => 400 },
     },
   };
@@ -139,7 +141,7 @@ sub post_upload {
     # Unknown Organisation
     $validation->required('organisation_name');
     $validation->optional('street_name');
-    $validation->optional('town');
+    $validation->required('town');
     $validation->optional('postcode')->postcode;
 
     return $c->api_validation_error if $validation->has_error;

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

@@ -28,10 +28,10 @@ has error_messages => sub {
       required => { message => 'No password sent.', status => 400 },
     },
     street_name => {
-      required => { message => 'No street_name sent.', status => 400 },
+      required => { message => 'No street name sent.', status => 400 },
     },
     town => {
-      required => { message => 'No town sent.', status => 400 },
+      required => { message => 'No town/city sent.', status => 400 },
     },
     sector => {
       required => { message => 'No sector sent.', 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;