use warnings;
use FindBin;
-$0 = $FindBin::Script;
+local $0 = $FindBin::Script;
use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
use MAPS;
use MAPSWeb;
my $table_name = 'profile';
sub Body() {
- my $handle = FindUser($userid);
+ FindUser(userid => $userid);
- my ($fullname, $email, $password);
- ($_, $fullname, $email, $password) = GetUser($handle);
-
- $handle->finish;
+ my $rec = GetUser;
my %options = GetUserOptions($userid);
};
print start_table {
-align => 'center',
+ -bgcolor => 'white',
-id => $table_name,
-border => 1,
-cellspacing => 0,
textfield {-class => 'inputfield',
-size => 50,
-name => 'fullname',
- -value => $fullname}),
+ -value => $rec->{name}}),
td {-class => 'notetext'},'Specify your full name'
]) . "\n";
print Tr [
textfield {-class => 'inputfield',
-size => 50,
-name => 'email',
- -value => $email}),
+ -value => $rec->{email}}),
td {-class => 'notetext'},'Your email address is used if you are a ' .
i ("Tag & Forward") .
' user. This is the email address that MAPS will forward your email to after it tags it. This email address is also used in case you forget your password so that we can email you your password.'
submit (-name => 'submit',
-value => 'Update Profile'));
print end_form;
+
+ return;
} # Body
# Main
@scripts
);
+$userid //= $ENV{USER};
+
SetContext $userid;
NavigationBar $userid;