Merge pull request #37 from Pear-Trading/TBSliver/Login-Info
Added extra info to login return
This commit is contained in:
commit
df7f1de1a6
5 changed files with 31 additions and 34 deletions
|
@ -149,8 +149,17 @@ sub name {
|
|||
} elsif ( defined $self->organisation_id ) {
|
||||
return $self->organisation->name;
|
||||
} else {
|
||||
return undef;
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
sub type {
|
||||
my $self = shift;
|
||||
|
||||
if ( defined $self->customer_id ) {
|
||||
return "customer";
|
||||
}
|
||||
return "organisation";
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
Reference in a new issue