roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 14:06:26 +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

2
copri4/main/robots.txt
View file

@ -1,2 +0,0 @@
User-agent: *
Disallow: /

0
copri4/main/src/Mod/APIshareeio.pm Normal file → Executable file
View file

23
copri4/main/src/Mod/DBtank.pm
View file

@ -123,11 +123,10 @@ sub update_operatorsloop {
c_id => "$adrc_id",
};
my $dbh_primary = $self->dbconnect_extern($self->{primary}->{sharee_primary}->{database}->{dbname});
my $source_primary = $dbh_primary->get_info( $GetInfoType{SQL_DATABASE_NAME} );
my $record_primary = { c_id => 0 };
$record_primary = $self->fetch_record($dbh_primary,$authref) if($adrc_id && $adrc_id > 0);
$bw->log("update_operatorsloop by copri_instance-dbname: $dbname | owner: $record_primary->{owner} | get_info-dbname: $source_primary","","");
$bw->log("update_operatorsloop by copri_instance-dbname: $dbname | owner: $record_primary->{owner}","","");
my $rows = 0;
if($record_primary->{c_id}){
@ -165,7 +164,7 @@ sub update_operatorsloop {
%$record_primary,
table => "contentadr",
};
$bw->log("--> save_account update_operatorsloop $sharee_operator by $source_primary",$update->{c_id},"");
$bw->log("--> save_account update_operatorsloop $sharee_operator",$update->{c_id},"");
$bw->log("UPDATE adr from record_primary to operator on loop $sharee_operator",$record_primary->{c_id},"");
$rows = $self->update_record($dbh_operator,$update,$record_primary);
@ -385,12 +384,24 @@ sub collect_node {
return ($nodes,$rows);
}
#
#only used by dead_relation
sub collect_relation {
my $self = shift;
my $dbh = shift || $dbh_intern;
my $main_id = shift || "";
my $sth = $dbh->prepare("SELECT * FROM relation");
my $where = shift || "1=1";
my $sth = $dbh->prepare("SELECT * FROM relation where $where");
my $rc = $sth->execute();
my $rel = $sth->fetchall_hashref("rel_id");
return $rel;
}
#not used
sub collect_relct {
my $self = shift;
my $dbh = shift || $dbh_intern;
my $ref = shift;
my $sth = $dbh->prepare("SELECT * FROM relation rel, $ref->{table} c where rel.content_id > 0 and rel.template_id=224 and rel.content_id=c.c_id order by rel.content_id");
my $rc = $sth->execute();
my $rel = $sth->fetchall_hashref("rel_id");
return $rel;

2
copri4/main/src/Mod/Payment.pm
View file

@ -56,7 +56,7 @@ sub managemandate_main {
my $ctt = shift || "";
my $owner = shift || 0;
my $payoneret = "";
my $payone_conf = $dbt->{operator}->{$varenv->{dbname}}->{payone_conf} || $dbt->{payone_conf};
my $payone_conf = $dbt->{operator}->{$varenv->{dbname}}->{payone_conf} || {};
if($ctadr->{c_id}){
my $lastname = $ctadr->{txt01};

4
copri4/main/src/Tpl/Address3.pm
View file

@ -377,10 +377,10 @@ EOF
}
$ctt->{txt23} = $q->unescapeHTML("$ctt->{txt23}") if($ctt->{txt23});
print $q->Tr(),"\n";
print $q->td({-class=>'tdval5',-colspan=>'2'},$q->textarea(-class=>'etxt',-name=>'txt23', -default=>"$ctt->{txt23}", -rows=>8, -columns=>90)),"\n";
print $q->td({-class=>'tdval5',-colspan=>'2'},$q->textarea(-class=>'etxt',-name=>'txt23', -default=>"$ctt->{txt23}", -rows=>8, -columns=>65)),"\n";
$ctt->{txt12} = $q->unescapeHTML($ctt->{txt12}) || "";
print $q->td({-class=>'tdval5',-colspan=>'2'},$q->textarea(-class=>'etxt',-name=>'txt12', -default=>"$ctt->{txt12}", -rows=>8, -columns=>70)),"\n";
print $q->td({-class=>'tdval5',-colspan=>'2'},$q->textarea(-class=>'etxt',-name=>'txt12', -default=>"$ctt->{txt12}", -rows=>8, -columns=>65)),"\n";
print $q->Tr(),"\n"; $line_count1++;
my @line_txt12 = split(/\n/,$ctt->{txt12});

14
copri4/main/src/Tpl/Liste3.pm
View file

@ -239,6 +239,18 @@ sub tpl(){
@tpl_order = split /,/,$tpl->{tpl_order};
}
elsif($node_meta->{node_name} =~ /Mahnung/){
$R::detail_search="search";
$searchref->{txt19} = "%Mahnung";
$R::todo="Filter";
$message .= "";
$offset=0;
$limit=1000;
$tplids = "209,218";
my $tpl = $dbt->get_tpl($dbh,209);
@tpl_order = split /,/,$tpl->{tpl_order};
}
elsif(!$R::detail_search && -f $hashfile && $node_meta->{node_name} =~ /letzte Suche/){
$R::todo="Filter";
$message .= ">>> es wurden die letzten Suchparameter oder Filter geladen <<<";
@ -545,7 +557,7 @@ sub tpl(){
foreach(@tpl_order){
$h++;
my ($key,$val,$size) = split /=/,$_;
if($size ne "select"){
if($size !~ /select/){
if($size =~ /area/){
$size = "5em";
}elsif($key =~ /int0|c_id|ct_name/){

2
copri4/main/startup.pl
View file

@ -1,2 +0,0 @@
use lib qw(/var/www/copri4/main/src);
1;