sharee.bike/copri4/shareeapp-operator/src/Tpl/PayoneSelect.pm

55 lines
1.2 KiB
Perl
Raw Normal View History

2021-12-30 12:05:56 +01:00
package PayoneSelect;
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
use strict;
use warnings;
use POSIX;
use CGI ':standard';
use Tpl::AccountSubmenu;
use Tpl::PayoneSEPA;
use Tpl::PayoneCCclient;
sub new {
my $class = shift;
my $self = {};
bless($self,$class);
return $self;
}
#Template
sub tpl(){
my $q = shift;
2021-12-30 12:05:56 +01:00
my $node_meta = shift;
my $users_dms = shift || "";
my $varenv = shift;
my $users_sharee = shift || "";
2023-01-17 20:43:36 +01:00
my $feedb = shift || "";
2021-12-30 12:05:56 +01:00
my $dbt = new DBtank;
2021-12-30 12:05:56 +01:00
my $submenu = new AccountSubmenu;
my $payDebit = new PayoneSEPA;
2021-12-30 12:05:56 +01:00
my $payCC = new PayoneCCclient;
print "<div id='Contentapp'>\n";
2021-12-30 12:05:56 +01:00
$submenu->tpl($node_meta,$users_dms,$varenv,$users_sharee,$feedb);
2021-12-30 12:05:56 +01:00
#Selected payment-type
if(ref($users_sharee) eq "HASH" && $users_sharee->{int03}){
if($users_sharee->{int03} == 1){
$payDebit->tpl("309",$node_meta,$users_dms,$varenv,$users_sharee,$feedb);
}elsif($users_sharee->{int03} == 2){
$payCC->tpl("310",$node_meta,$users_dms,$varenv,$users_sharee,$feedb);
}elsif($users_sharee->{int03} == 3){
$payDebit->tpl("313",$node_meta,$users_dms,$varenv,$users_sharee,$feedb);
2021-12-30 12:05:56 +01:00
}
}
2021-12-30 12:05:56 +01:00
print "</div>\n";
2021-12-30 12:05:56 +01:00
}
1;