package VShop::Request::Profile;
use strict;
use warnings;
use TBI;
use VShop::Element::Form;
use VShop::Request::Base;
our @ISA = qw(VShop::Request::Base);
sub title { return "Your Record" }
sub main {
my ($self, $session) = @_;
my $form = new VShop::Element::Form($session, "Profile",
button => "Change",
defaults => {-size => 40},
title => "Login " . $session->login,
);
my $customers = TBI->open("Customer");
my %customer = $customers->fetch($session->login);
$form->hidden("login", $session->login);
$form->password("password1", "Old Password");
$form->password("password2", "New Password");
$form->textfield("name", "Full Name",
-default => $customer{name});
$form->textfield("email", "E-Mail Address",
-default => $customer{email});
$form->textfield("address", "Postal Address",
-default => $customer{address});
return $form;
}
|