Added assigning users to import values

This commit is contained in:
Tom Bloor 2017-11-13 19:00:34 +00:00
parent 9096bef00d
commit 72929bf86b
8 changed files with 233 additions and 6 deletions

View file

@ -128,6 +128,18 @@ sub name {
}
}
sub full_name {
my $self = shift;
if ( defined $self->entity->customer ) {
return $self->entity->customer->full_name;
} elsif ( defined $self->entity->organisation ) {
return $self->entity->organisation->name;
} else {
return;
}
}
# TODO Deprecate this sub?
sub type {
my $self = shift;

View file

@ -13,7 +13,7 @@ sub get_values {
'values',
undef,
{
order_by => { -asc => 'id' },
order_by => { '-asc' => 'id' },
},
);
}
@ -40,4 +40,17 @@ sub get_orgs {
);
}
sub get_lookups {
my $self = shift;
my $id = shift;
return $self->find($id)->search_related(
'lookups',
undef,
{
order_by => { '-asc' => 'id' },
},
);
}
1;