sub insert {
# -------------------------------------------------------------------
# Insert is called whenever a new user is created. You should add the
# user to your application, and return 1 on success, 0 on error and have
# the error message stored in $Community::error.
#
my ($app, $user) = @_;

_setup($app) or return;
my $user_ins = {
Username => $user->{comm_username},
Password => ' ',
Email => $user->{comm_email},
Name => "$user->{prof_first_name} $user->{prof_last_name}",
ReceiveMail => $user->{prof_ReceiveMail},
Newsletter => $user->{prof_Newsletter},
Status => 'Registered'
};

sub update {
# -------------------------------------------------------------------
# Update is called whenever a community user information is changed.
#
my ($app, $user) = @_;
_setup($app) or return;

comm_debug("Updating user |$user->{comm_username}| to new email address |$user->{comm_email}|");
my $ok = $Links::DB->table('Users')->update(
{
Email => $user->{comm_email},
Name => "$user->{prof_first_name} $user->{prof_last_name}",
ReceiveMail => $user->{prof_ReceiveMail},
Newsletter => $user->{prof_Newsletter}
},
{
Username => $user->{comm_username}
}
);