|
sub takeover { return 0; } sub title { return "Logout"; } sub process { my ($self, $session) = @_; $session->finish; my $msg = new VShop::Element::Text; $msg->add("Bye and thanks for visiting!"); return $msg; } sub nav { my ($self, $session) = @_; return undef unless defined $session->sessionid; my $form = new VShop::Element::Form($session, "Logout", button => "Logout", scale => -1); return $form; } |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |