%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; %perl> % if (defined($email)) {Updating your user information.
<%perl> $dbh->do("UPDATE users SET url=?, email=?, personal=? WHERE userid=?", undef, $url, $email, $personal, $session{'userid'}); %perl>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; %perl>Edit data for <% $result->{'username'} %>.
% } <%init> our($dbh,%session); $r->content_type("text/html; charset=utf-8"); %init> <%method title> Edit User Data %method> <%args> $url => undef $email => undef $personal => undef %args>