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

Mietjournal parts edit and comment view

Browse source
This commit is contained in:
ragu 2022-09-15 17:06:08 +02:00
parent 009025103f
commit eb09d2d480
19 changed files with 247 additions and 170 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -89,13 +89,13 @@ sub tpl(){
if($dbt->{operator}->{$m_id}->{oprefix} eq $oprefix || $dbt->{operator}->{$m_id}->{project} eq $project){
print $q->div({-class=>"$content2"}," "),"\n";
my $sharee_operator = $dbt->{operator}->{$m_id}->{database}->{dbname};
my $sharee_operator = $dbt->{operator}->{$m_id}->{database}->{dbname} || "";
my $dbh_operator = $dbt->dbconnect_extern($sharee_operator);
$record_cc = $dbt->fetch_record($dbh_operator,$pref_cc);
#print Dumper($node_meta->{tpl_order}) . "<br />\n";
#Do it only if phone and email defined
if($record_cc->{txt07} && $record_cc->{txt08}){
#handmade activation to show only realy live operators on web contact
if($sharee_operator && $sharee_operator =~ /sharee_mak|sharee_sx|sharee_lec/){
foreach (@tpl_order){
my ($key,$des,$size) = split /=/,$_;
@ -120,8 +120,8 @@ sub tpl(){
$record_cc->{$key} =~ s/\\//g;
if($des =~ /hotline|e-Mail|zeiten/i){
print $q->div({-class=>"$content2"}, "$des: $record_cc->{$key}"),"\n";
print $q->div({-class=>"$content2"},"&nbsp;"),"\n" if($des =~ /e-Mail/i);
}else{
print $q->div({-class=>"$content2"},"&nbsp;"),"\n" if($key eq "txt01");
print $q->div({-class=>"$content2"}, "$record_cc->{$key}"),"\n";
}

2
copri4/shareeapp-operator/src/Tpl/PayoneSEPA.pm
View file

@ -143,7 +143,7 @@ sub tpl(){
$webtarget = "_self";
$dtext = "<br />(Der PDF download öffnet je nach System/Konfiguartion einen externen PDF-Viewer oder Webbrowser)";
}
print $q->div({-style=>'padding:10px;margin:10px 0;'},$q->a({-href=>"$varenv->{wwwhost}/FileOut?file=SEPA-Lastschriftmandat-$varenv->{praefix}-$ctadr->{ct_name}.pdf", -target=>"$webtarget" , -type=>'application/octet-stream', -style=>'text-decoration:underline;font-size:1.1em;'}, $q->img({-src=>"$varenv->{metahost}/glyphicons/file-any.png", -style=>'width:30px;'}), "SEPA-Lastschriftmandat.pdf"),"$dtext"),"\n";
print $q->div({-style=>'padding:10px;margin:10px 0;'},$q->a({-href=>"$varenv->{wwwhost}/FileOut?file=SEPA-Lastschriftmandat-$varenv->{praefix}-$ctadr->{ct_name}.pdf&sessionid=$coo", -target=>"$webtarget" , -type=>'application/octet-stream', -style=>'text-decoration:underline;font-size:1.1em;'}, $q->img({-src=>"$varenv->{metahost}/glyphicons/file-any.png", -style=>'width:30px;'}), "SEPA-Lastschriftmandat.pdf"),"$dtext"),"\n";
}else{
print $q->div({-style=>'padding:10px;margin:10px 0;border:1px solid silver;color:#c83434;'},"Es gibt ein Problem! Das SEPA Mandat konnte nicht eingeholt werden. Bitte wenden Sie sich bei Bedarf an den unter \"Kontakt\" hinterlegten Support."),"\n";
}