mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-06-01 21:36:36 +02:00
75 lines
1.7 KiB
Perl
Executable file
75 lines
1.7 KiB
Perl
Executable file
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 Lib::Config;
|
|
use Mod::DBtank;
|
|
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 $node_meta = shift;
|
|
my $users_dms = shift || "";
|
|
my $mode = shift || "";
|
|
my $varenv = shift;
|
|
my $users_sharee = shift || "";
|
|
my $feedb = shift || "";
|
|
|
|
my $q = new CGI;
|
|
my $cf = new Config;
|
|
my $dbt = new DBtank;
|
|
my $submenu = new AccountSubmenu;
|
|
my $paySEPA = new PayoneSEPA;
|
|
my $payCC = new PayoneCCclient;
|
|
|
|
$q->import_names('R');
|
|
my @keywords = $q->param;
|
|
my $dbh = "";
|
|
my $script = $q->script_name();
|
|
my $path_info = $q->path_info();
|
|
my $path = $path_info;
|
|
#with meta_host,
|
|
if("$varenv->{metahost}"){
|
|
$path = "$script" . "$path_info";
|
|
$script="";
|
|
}
|
|
my $time = time;
|
|
my $now_dt = strftime "%Y-%m-%d %H:%M", localtime;
|
|
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);
|
|
|
|
my $ctrel = $users_sharee if(ref($users_sharee) eq "HASH" && $users_sharee->{c_id});
|
|
my $tpl = $dbt->get_tpl($dbh,$node_meta->{tpl_id});
|
|
|
|
print "<div id='Contentapp'>\n";
|
|
|
|
#subMenue--------
|
|
$submenu->tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
|
|
#-----------------
|
|
|
|
#Selected Payment
|
|
if($ctrel->{int03} == 1 || $ctrel->{int03} == 3){
|
|
$paySEPA->tpl("309",$node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
|
|
}elsif($ctrel->{int03} == 2){
|
|
$payCC->tpl("310",$node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
|
|
}
|
|
|
|
print "</div>\n";
|
|
|
|
}
|
|
1;
|