Request-Modul für die Benutzerdaten

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

lib/VShop/Request/Profile.pm
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;
}

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003