<%perl> if (!defined($session{'userid'})) { $m->out("

You need to be logged in for this.

"); return; } my $query = $dbh->prepare("SELECT * FROM users WHERE userid=?"); $query->execute($session{'userid'}); my $result = $query->fetchrow_hashref; % if (defined($email)) {

Updating your user information.

<%perl> $dbh->do("UPDATE users SET url=?, email=?, personal=? WHERE userid=?", undef, $url, $email, $personal, $session{'userid'});

You can go back to your page

% } else { <%perl> my $query = $dbh->prepare("SELECT * FROM users WHERE userid=?"); $query->execute($session{'userid'}); my $result = $query->fetchrow_hashref;

Edit data for <% $result->{'username'} %>.

Email Address:
Url:
Personal:
% } <%init> our($dbh,%session); $r->content_type("text/html; charset=utf-8"); <%method title> Edit User Data <%args> $url => undef $email => undef $personal => undef