This repository has been archived on 2023-08-16. You can view files and clone it, but cannot push or open issues or pull requests.
Foodloop-Server/lib/Pear/LocalLoop/Schema/Result/User.pm

150 lines
3 KiB
Perl
Raw Normal View History

2017-02-24 19:27:43 +00:00
package Pear::LocalLoop::Schema::Result::User;
use strict;
use warnings;
use base 'DBIx::Class::Core';
2017-04-21 21:12:53 +00:00
use Data::UUID;
__PACKAGE__->load_components( qw/
InflateColumn::DateTime
PassphraseColumn
TimeStamp
/);
2017-02-24 19:27:43 +00:00
__PACKAGE__->table("users");
2017-02-24 19:27:43 +00:00
__PACKAGE__->add_columns(
"id" => {
data_type => "integer",
is_auto_increment => 1,
is_nullable => 0,
},
"customer_id" => {
data_type => "integer",
is_foreign_key => 1,
is_nullable => 1,
},
"organisation_id" => {
data_type => "integer",
is_foreign_key => 1,
is_nullable => 1,
},
"email" => {
data_type => "text",
is_nullable => 0,
},
"join_date" => {
data_type => "datetime",
set_on_create => 1,
},
"password" => {
data_type => "varchar",
is_nullable => 0,
size => 100,
passphrase => 'crypt',
passphrase_class => 'BlowfishCrypt',
passphrase_args => {
salt_random => 1,
cost => 8,
},
passphrase_check_method => 'check_password',
},
2017-02-24 19:27:43 +00:00
);
__PACKAGE__->set_primary_key("id");
2017-02-24 19:27:43 +00:00
__PACKAGE__->add_unique_constraint(["customer_id"]);
2017-02-24 19:27:43 +00:00
__PACKAGE__->add_unique_constraint(["email"]);
2017-02-24 19:27:43 +00:00
__PACKAGE__->add_unique_constraint(["organisation_id"]);
2017-02-24 19:27:43 +00:00
__PACKAGE__->might_have(
"administrator",
"Pear::LocalLoop::Schema::Result::Administrator",
{ "foreign.user_id" => "self.id" },
2017-02-24 19:27:43 +00:00
{ cascade_copy => 0, cascade_delete => 0 },
);
__PACKAGE__->belongs_to(
"customer",
2017-02-24 19:27:43 +00:00
"Pear::LocalLoop::Schema::Result::Customer",
2017-04-21 21:12:53 +00:00
{ "foreign.id" => "self.customer_id" },
2017-02-24 19:27:43 +00:00
{
is_deferrable => 0,
join_type => "LEFT",
on_delete => "NO ACTION",
on_update => "NO ACTION",
},
);
__PACKAGE__->belongs_to(
2017-04-18 17:29:30 +00:00
"organisation",
2017-02-24 19:27:43 +00:00
"Pear::LocalLoop::Schema::Result::Organisation",
2017-04-21 21:12:53 +00:00
{ "foreign.id" => "self.organisation_id" },
2017-02-24 19:27:43 +00:00
{
is_deferrable => 0,
join_type => "LEFT",
on_delete => "NO ACTION",
on_update => "NO ACTION",
},
);
__PACKAGE__->has_many(
"pending_organisations",
"Pear::LocalLoop::Schema::Result::PendingOrganisation",
{ "foreign.submitted_by_id" => "self.id" },
2017-02-24 19:27:43 +00:00
{ cascade_copy => 0, cascade_delete => 0 },
);
__PACKAGE__->has_many(
"pending_transactions",
"Pear::LocalLoop::Schema::Result::PendingTransaction",
2017-04-21 21:12:53 +00:00
{ "foreign.buyer_id" => "self.id" },
2017-02-24 19:27:43 +00:00
{ cascade_copy => 0, cascade_delete => 0 },
);
__PACKAGE__->has_many(
"session_tokens",
"Pear::LocalLoop::Schema::Result::SessionToken",
2017-04-21 21:12:53 +00:00
{ "foreign.user_id" => "self.id" },
2017-02-24 19:27:43 +00:00
{ cascade_copy => 0, cascade_delete => 0 },
);
__PACKAGE__->has_many(
"transactions",
"Pear::LocalLoop::Schema::Result::Transaction",
2017-04-21 21:12:53 +00:00
{ "foreign.buyer_id" => "self.id" },
2017-02-24 19:27:43 +00:00
{ cascade_copy => 0, cascade_delete => 0 },
);
2017-04-21 21:12:53 +00:00
sub generate_session {
my $self = shift;
my $token = Data::UUID->new->create_str();
$self->create_related(
'session_tokens',
{
token => $token,
},
);
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;
}
}
2017-02-24 19:27:43 +00:00
1;