Commit a07f9299 authored by Leigh Stoller's avatar Leigh Stoller

Add GetCreator() method.

parent a0a463e6
......@@ -2132,6 +2132,26 @@ sub GetProject($)
return $project;
}
#
# Load the Creator
#
sub GetCreator($)
{
my ($self) = @_;
# Must be a real reference.
return undef
if (! ref($self));
my $creator = User->Lookup($self->owner_uid());
if (! defined($creator)) {
print("*** WARNING: Could not lookup creator object for $self!\n");
return undef;
}
return $creator;
}
#
# Lookup by origin, as for portal created leases.
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment