mostly working transaction manager
fixed many bugs
This commit is contained in:
parent
6174d6995e
commit
ca9278190e
10 changed files with 211 additions and 89 deletions
|
|
@ -63,7 +63,9 @@ The content handler for this package.
|
|||
sub handler {
|
||||
my ($session) = @_;
|
||||
my $output = undef;
|
||||
my $function = "www_".$session->form->get("shop");
|
||||
my $shop = $session->form->get("shop");
|
||||
return $output unless ($shop);
|
||||
my $function = "www_".$shop;
|
||||
if ($function ne "www_" && (my $sub = __PACKAGE__->can($function))) {
|
||||
$output = $sub->($session);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue