roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 05:56:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

operator standalone fix and adding example db.sql

Browse source
This commit is contained in:
ragu 2022-11-17 20:36:53 +01:00
parent 5b32d2b7f5
commit 941f8a04aa
17 changed files with 44 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

8
copri4/shareeapp-operator/src/Tpl/Anmelden.pm
View file

@ -9,7 +9,6 @@ use CGI ':standard';
use Lib::Config;
use Mod::Buttons;
use Mod::Libenz;
use Mod::Libenzdb;
use Mod::DBtank;
use Mod::APIfunc;
use Mod::Pricing;
@ -33,12 +32,11 @@ sub tpl(){
my $q = new CGI;
my $cf = new Config;
my $lb = new Libenz;
my $db = new Libenzdb;
my $dbt = new DBtank;
my $apif = new APIfunc;
my $but = new Buttons;
my $pri = new Pricing;
my $dbh = "";
my $script = $q->script_name();
my $user_agent = $q->user_agent();
@ -51,14 +49,12 @@ sub tpl(){
$path = "$script" . "$path_info";
$script="";
}
my %ib = $but->ibuttons_arch();
my $tpl = $db->get_tpl($node_meta->{tpl_id});
my $tpl = $dbt->get_tpl($dbh,$node_meta->{tpl_id});
my @tpl_order = split /,/,$tpl->{tpl_order};
my $coo = $q->cookie(-name=>'domcookie') || "";
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);
my $bgcolor1 = "009899";#sharee
#my $bgcolor1 = "e2001a";
$bgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{bgcolor1} if($dbt->{website}->{$varenv->{syshost}}->{bgcolor1});
$bgcolor1 = $dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1} if($dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1});

3
copri4/shareeapp-operator/src/Tpl/Contact.pm
View file

@ -9,7 +9,6 @@ use CGI ':standard';
use Lib::Config;
use Mod::Buttons;
use Mod::Libenz;
use Mod::Libenzdb;
use Mod::DBtank;
use Encode;
use Data::Dumper;
@ -34,7 +33,6 @@ sub tpl(){
my $cf = new Config;
my $but = new Buttons;
my $lb = new Libenz;
my $db = new Libenzdb;
my $dbt = new DBtank;
my $lang = "de";
@ -47,7 +45,6 @@ sub tpl(){
$script="";
}
my $user_agent = $q->user_agent();
my %ib = $but->ibuttons_arch();
my @tpl_order = split /,/,$node_meta->{tpl_order};
my $main_ids = $node_meta->{main_id};
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);

11
copri4/shareeapp-operator/src/Tpl/FormEdit.pm
View file

@ -13,7 +13,6 @@ use DateTime::Format::Pg;
use Lib::Config;
use Mod::Buttons;
use Mod::Libenz;
use Mod::Libenzdb;
use Mod::DBtank;
use Mod::APIfunc;
use Mod::Pricing;
@ -39,7 +38,6 @@ sub tpl(){
my $q = new CGI;
my $cf = new Config;
my $lb = new Libenz;
my $db = new Libenzdb;
my $dbt = new DBtank;
my $apif = new APIfunc;
my $pri = new Pricing;
@ -55,7 +53,6 @@ sub tpl(){
}
my $dbh = "";#$dbt->dbconnect();
my $user_agent = $q->user_agent();
my %ib = $but->ibuttons_arch();
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);
my $red = "red";
@ -109,8 +106,6 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit
$cttpos_count++;
}
#$ctt = $db->collect_content2("contenttrans","int10",$ctrel->{c_id}) if($ctrel->{c_id});
#
#loop operator hash to get invoices for each operator
my $ctt_all = {};
my $ctadrcoupon = {};
@ -147,15 +142,15 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit
my $tpl_id = $node_meta->{tpl_id};
#$tpl_id = "302004" if($viewsel[1] =~ /Mieten/ && $ctrel->{c_id});
my $tpl = $db->get_tpl($tpl_id);
my $tpl = $dbt->get_tpl($dbh,$tpl_id);
my $tpl01 = $tpl;#If nothing else, because of tpl_name Title in split_lates
my $tpl02 = "";
my @split_lates = ("$tpl->{tpl_order}");
my $template01 = "$tpl_id" . "001";
my $template02 = "$tpl_id" . "002";
if($tpl_id < 999){
$tpl01 = $db->get_tpl($template01);
$tpl02 = $db->get_tpl($template02);
$tpl01 = $dbt->get_tpl($dbh,$template01);
$tpl02 = $dbt->get_tpl($dbh,$template02);
@split_lates = ("$tpl01->{tpl_order}","$tpl02->{tpl_order}");
}
my $now_dt = strftime "%Y-%m-%d %H:%M", localtime;

1
copri4/shareeapp-operator/src/Tpl/Karte.pm
View file

@ -1 +0,0 @@
../../../main/src/Tpl/Karte.pm

1
copri4/shareeapp-operator/src/Tpl/Listing.pm
View file

@ -47,7 +47,6 @@ sub tpl(){
$script="";
}
my $user_agent = $q->user_agent();
my %ib = $but->ibuttons_arch();
my @tpl_order = split /,/,$node_meta->{tpl_order};
my $main_ids = $node_meta->{main_id};
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);

14
copri4/shareeapp-operator/src/Tpl/PayoneSelect.pm
View file

@ -8,9 +8,7 @@ use warnings;
use POSIX;
use CGI ':standard';
use Lib::Config;
use Mod::Buttons;
use Mod::Libenz;
use Mod::Libenzdb;
use Mod::DBtank;
use Tpl::AccountSubmenu;
use Tpl::PayoneSEPA;
use Tpl::PayoneCCclient;
@ -34,16 +32,14 @@ sub tpl(){
my $q = new CGI;
my $cf = new Config;
my $lb = new Libenz;
my $db = new Libenzdb;
my $but = new Buttons;
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;
@ -54,12 +50,10 @@ sub tpl(){
}
my $time = time;
my $now_dt = strftime "%Y-%m-%d %H:%M", localtime;
my %ib = $but->ibuttons_arch();
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);
my $ctrel = $users_sharee if(ref($users_sharee) eq "HASH" && $users_sharee->{c_id});
my $tpl = $db->get_tpl($node_meta->{tpl_id});
my $tpl = $dbt->get_tpl($dbh,$node_meta->{tpl_id});
print "<div id='Contentapp'>\n";