mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-05-05 17:26:54 +02:00
tarif_elements cms language fix
This commit is contained in:
ragu
parent
b92f2c6b5c
commit
41bd55d6c2
|
|
@ -68,7 +68,7 @@ my $response = {
|
|||
apiserver => "$apiserver",
|
||||
response => "$respreq",
|
||||
uri_primary => "$dbt->{primary}->{sharee_primary}->{primaryApp}",
|
||||
copri_version => "4.1.23.18",
|
||||
copri_version => "4.1.23.19",
|
||||
user_id => "",
|
||||
authcookie => "",
|
||||
new_authcoo => "0",
|
||||
|
|
|
|||
|
|
@ -262,7 +262,7 @@ sub selector_class(){
|
|||
my $column = shift;
|
||||
my $class = shift || "";
|
||||
my $style = shift || "";
|
||||
my $sel = shift || "";
|
||||
my $sel = shift || 0;
|
||||
my @selval = @_;
|
||||
|
||||
my @selopt = ();
|
||||
|
|
|
|||
|
|
@ -24,6 +24,7 @@ sub new {
|
|||
}
|
||||
|
||||
sub mobox(){
|
||||
my $varenv = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift;
|
||||
my $return = shift || "";
|
||||
|
|
@ -35,7 +36,6 @@ sub mobox(){
|
|||
my $dbt = new DBtank;
|
||||
$q->import_names('R');
|
||||
my @keywords = $q->param;
|
||||
my %varenv = $cf->envonline();
|
||||
my $script = $q->script_name();
|
||||
my $path = $q->path_info();
|
||||
my $lang = "de";
|
||||
|
|
@ -52,7 +52,7 @@ sub mobox(){
|
|||
my $rows = $address_wc + $table_wc;
|
||||
|
||||
my $height = "600";
|
||||
if($varenv{orga} eq "dms"){
|
||||
if($varenv->{orga} eq "dms"){
|
||||
$rows = $rows - 0;
|
||||
}else{
|
||||
$rows = $rows - 10;
|
||||
|
|
@ -67,13 +67,13 @@ print<<EOF
|
|||
background: $bg_color;
|
||||
}
|
||||
.ui-dialog > .ui-widget-header {
|
||||
color:$varenv{color};
|
||||
color:$varenv->{color};
|
||||
font-weight:normal;
|
||||
border:1px solid $bg_color2;
|
||||
background: $bg_color2;
|
||||
}
|
||||
.ui-widget-overlay {
|
||||
background: #666 url("$varenv{metahost}/external/jquery-ui-1.12.1/images/ui-bg_diagonals-thick_20_666666_40x40.png") 50% 50% repeat;
|
||||
background: #666 url("$varenv->{metahost}/external/jquery-ui-1.12.1/images/ui-bg_diagonals-thick_20_666666_40x40.png") 50% 50% repeat;
|
||||
opacity: .5;
|
||||
filter: Alpha(Opacity=50);
|
||||
}
|
||||
|
|
@ -103,9 +103,9 @@ EOF
|
|||
print "<div id='dialog-form' style='text-align:center;margin:0;padding:2px;max-width:1200px;' title='Terminal – Faktura $debug'>";
|
||||
|
||||
if(looks_like_number($users_dms->{c_id4trans}) && looks_like_number($users_dms->{tpl_id4trans})){
|
||||
if($table eq "contenttrans" && $varenv{orga} eq "dms"){
|
||||
if($table eq "contenttrans" && $varenv->{orga} eq "dms"){
|
||||
require "Tpl/Address3.pm";
|
||||
&Address3::tpl($node_meta,$users_dms,$return);
|
||||
&Address3::tpl($varenv,$node_meta,$users_dms,$return);
|
||||
}
|
||||
}else{
|
||||
print $q->div({-style=>"padding:0.1em;margin:0em;background-color:white;font-size:0.81em;"}, "Ein neues Formular kann im COPRI Hauptfenster geöffnet werden (Code: $users_dms->{c_id4trans} && $users_dms->{tpl_id4trans})",
|
||||
|
|
|
|||
|
|
@ -21,6 +21,7 @@ sub new {
|
|||
}
|
||||
|
||||
sub mobox3(){
|
||||
my $varenv = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift;
|
||||
my $feedb = shift || {};
|
||||
|
|
@ -31,7 +32,6 @@ sub mobox3(){
|
|||
my $but = new Buttons;
|
||||
$q->import_names('R');
|
||||
my @keywords = $q->param;
|
||||
my %varenv = $cf->envonline();
|
||||
my $script = $q->script_name();
|
||||
my $path = $q->path_info();
|
||||
my $coo = $q->cookie(-name=>'domcookie');
|
||||
|
|
@ -69,7 +69,7 @@ print<<EOF
|
|||
background: $bg_color2;
|
||||
}
|
||||
.ui-widget-overlay {
|
||||
background: #666 url("$varenv{metahost}/external/jquery-ui-1.12.1/images/ui-bg_diagonals-thick_20_666666_40x40.png") 50% 50% repeat;
|
||||
background: #666 url("$varenv->{metahost}/external/jquery-ui-1.12.1/images/ui-bg_diagonals-thick_20_666666_40x40.png") 50% 50% repeat;
|
||||
opacity: .5;
|
||||
filter: Alpha(Opacity=50);
|
||||
}
|
||||
|
|
@ -114,7 +114,7 @@ EOF
|
|||
#}
|
||||
elsif(($R::node2edit && $R::node2edit =~ /editpart/) || ($R::base_edit && $R::base_edit !~ /delete/)){
|
||||
require "Tpl/BaseEdit.pm";
|
||||
&BaseEdit::tpl($node_meta,$users_dms,$feedb);
|
||||
&BaseEdit::tpl($varenv,$node_meta,$users_dms,$feedb);
|
||||
}
|
||||
else{
|
||||
print $q->div("Zugriff verweigert.");
|
||||
|
|
|
|||
|
|
@ -417,7 +417,7 @@ sub fetch_rentalfeed {
|
|||
$ctpos->{int17} =~ s/\./,/ if($lang eq "de");
|
||||
$return->{rental_description}->{tarif_elements}->{$td} = ["$td_template->{$td}->{int17}","$ctpos->{int17} € / 24 $varenv_prim->{cms}->{'unit-hour'}->{txt}"];
|
||||
}elsif($td_template->{$td}->{time02} && $ctpos->{time02} =~ /[1-9]/){
|
||||
if($further_freedtime_available == 1 || ($ctpos->{int10} == 3 && $ctpos->{time02})){
|
||||
if($varenv->{orga} eq "dms" || $further_freedtime_available == 1 || ($ctpos->{int10} == 3 && $ctpos->{time02})){
|
||||
$time_unit = $dbt->time_format($varenv_prim,$ctpos->{time02});
|
||||
$time_unit .= " / $varenv_prim->{cms}->{'unit-day'}->{txt}" if($dbt->{operator}->{$varenv->{dbname}}->{project} ne "Konstanz");
|
||||
$return->{rental_description}->{tarif_elements}->{$td} = ["$td_template->{$td}->{time02}","$time_unit"];
|
||||
|
|
|
|||
|
|
@ -52,6 +52,7 @@ sub printpre(){
|
|||
my $pkey = $R::pkey || "";
|
||||
my $debug = 0;#print line to doc if debug
|
||||
|
||||
$varenv{cms} = $dbt->fetch_cms($dbh,{ lang => $lang });
|
||||
my $api_file = "/var/www/copri4/shareeconf/apikeys.cfg";
|
||||
my $aconf = Config::General->new($api_file);
|
||||
my %apikeyconf = $aconf->getall;
|
||||
|
|
|
|||
|
|
@ -28,6 +28,7 @@ sub new {
|
|||
|
||||
#Template
|
||||
sub tpl(){
|
||||
my $varenv = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift;
|
||||
my $return = shift || "";
|
||||
|
|
@ -40,7 +41,6 @@ sub tpl(){
|
|||
my $but = new Buttons;
|
||||
my $transp = new TransPositionen;
|
||||
my $trin = new TransInvoices;
|
||||
my %varenv = $cf->envonline();
|
||||
my $lang = "de";
|
||||
my %ib = $but->ibuttons();
|
||||
my $line_count1 = 0;
|
||||
|
|
@ -65,7 +65,7 @@ sub tpl(){
|
|||
c_id => $users_dms->{c_id4trans},
|
||||
};
|
||||
$ctt = $dbt->fetch_record($dbh,$pref);
|
||||
my $praefix = "$ctt->{txt00}-$varenv{praefix}";
|
||||
my $praefix = "$ctt->{txt00}-$varenv->{praefix}";
|
||||
my $warn_time = $ctt->{warn_time} || "";
|
||||
$warn_time = $lb->time4de($warn_time,0) if($warn_time);
|
||||
|
||||
|
|
@ -150,7 +150,7 @@ EOF
|
|||
$journalhead = "<br /><span style='color:silver;font-size:0.81em;'>Journal</span>" if($ctt->{template_id} == 209);
|
||||
$set_main_id=$main_id if($ctt->{main_id} > "300000");
|
||||
print $q->hidden(-name=>'set_main_id', -override=>'1', -value=>"$set_main_id");
|
||||
print $q->span({-style=>'margin:0em 0.5em 0 0.5em;padding:0.2em 1em;background-color:white;border:solid thin gray;position:absolute;left:3px;'}, "$ctt->{txt00} $varenv{praefix}-$ctt->{ct_name} $journalhead");
|
||||
print $q->span({-style=>'margin:0em 0.5em 0 0.5em;padding:0.2em 1em;background-color:white;border:solid thin gray;position:absolute;left:3px;'}, "$ctt->{txt00} $varenv->{praefix}-$ctt->{ct_name} $journalhead");
|
||||
|
||||
print "<span style='margin:0 0.2em;position:absolute;left:280px;'>\n";
|
||||
#print $q->b({-style=>'padding:0 1em;'}, "\# $ctt->{ct_name}"), "\n";
|
||||
|
|
@ -175,7 +175,7 @@ EOF
|
|||
print $q->hidden(-name=>'template_id', -override=>'1', -value=>"$ctt->{template_id}");
|
||||
print $q->hidden(-name=>'main_id', -override=>'1', -value=>"$ctt->{main_id}");
|
||||
print $q->hidden(-name=>'rel_id', -override=>'1', -value=>"$ctt->{rel_id}");
|
||||
}elsif(looks_like_number($ctt->{int01}) && ! -f "$varenv{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
|
||||
}elsif(looks_like_number($ctt->{int01}) && ! -f "$varenv->{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
|
||||
print $q->span({-style=>'margin:0 0.2em;position:absolute;right:3px;'}, $but->singlesubmit3("ct_trans","print_pdf","","","")),"\n";
|
||||
}
|
||||
print $q->span({-style=>'margin:0 0.2em;padding:0.3em;font-size:0.81em;position:absolute;right:100px;'}, "$buchen_users->{txt01} / $invoice_time "),"\n";
|
||||
|
|
@ -192,7 +192,7 @@ EOF
|
|||
print $q->hidden(-name=>'close_time', -override=>'1', -value=>"$ctt->{close_time}");
|
||||
|
||||
print $q->end_form,"\n";
|
||||
print $q->div({-style=>'position:fixed;bottom:2%;right:1%;z-index:10;font-size:13px;'}," (c_id: $ctt->{c_id} | rel_id: $ctt->{rel_id} | tpl_id: $ctt->{tpl_id})"),"\n" if($users_dms->{u_id} eq $varenv{superu_id});
|
||||
print $q->div({-style=>'position:fixed;bottom:2%;right:1%;z-index:10;font-size:13px;'}," (c_id: $ctt->{c_id} | rel_id: $ctt->{rel_id} | tpl_id: $ctt->{tpl_id})"),"\n" if($users_dms->{u_id} eq $varenv->{superu_id});
|
||||
##########
|
||||
|
||||
#Relationen
|
||||
|
|
@ -217,7 +217,7 @@ EOF
|
|||
$journal = "<span style='color:silver;background-color:white;'>Journal </span>" if($ctt_rel->{$id}->{template_id} == 209);
|
||||
my $rel_opos = "";
|
||||
$rel_opos = "<span style='color:red'>•</span>" if($ctt_rel->{$id}->{int14});
|
||||
print $q->div({-style=>"position:absolute;top:$toppx;right:10px;font-size:0.91em;background-color:$rel_color"}, "$journal ", $q->a({-class=>"linknav",-href=>"/$dbt->{shareedms_conf}->{parent_node}/Faktura/$ctt_rel->{$id}->{node_name}?ct_trans=open\&c_id4trans=$ctt_rel->{$id}->{c_id}\&tpl_id4trans=$ctt_rel->{$id}->{template_id}\&owner=$users_dms->{u_id}",-title=>"Faktura Terminal öffnen"},"[ $rel_opos $ctt_rel->{$id}->{txt00} $varenv{praefix}-$ctt_rel->{$id}->{ct_name} ]")),"\n";
|
||||
print $q->div({-style=>"position:absolute;top:$toppx;right:10px;font-size:0.91em;background-color:$rel_color"}, "$journal ", $q->a({-class=>"linknav",-href=>"/$dbt->{shareedms_conf}->{parent_node}/Faktura/$ctt_rel->{$id}->{node_name}?ct_trans=open\&c_id4trans=$ctt_rel->{$id}->{c_id}\&tpl_id4trans=$ctt_rel->{$id}->{template_id}\&owner=$users_dms->{u_id}",-title=>"Faktura Terminal öffnen"},"[ $rel_opos $ctt_rel->{$id}->{txt00} $varenv->{praefix}-$ctt_rel->{$id}->{ct_name} ]")),"\n";
|
||||
$top += 22;
|
||||
}
|
||||
}
|
||||
|
|
@ -386,9 +386,9 @@ EOF
|
|||
|
||||
#operator invoices else position accounting
|
||||
if($ctt->{template_id} == 208 || $ctt->{int10} == 2){
|
||||
$line_count2 = $trin->tpl($node_meta,$users_dms,$set_main_id,$ctt,$return);
|
||||
$line_count2 = $trin->tpl($varenv,$node_meta,$users_dms,$set_main_id,$ctt,$return);
|
||||
}else{
|
||||
$line_count2 = $transp->tpl($node_meta,$users_dms,$set_main_id,$ctt,$return);
|
||||
$line_count2 = $transp->tpl($varenv,$node_meta,$users_dms,$set_main_id,$ctt,$return);
|
||||
}
|
||||
|
||||
print "</td></tr>\n";
|
||||
|
|
|
|||
|
|
@ -16,6 +16,7 @@ use Mod::Buttons;
|
|||
use Date::Calc qw(:all);
|
||||
use Mod::Libenz;
|
||||
use Mod::Basework;
|
||||
use Scalar::Util qw(looks_like_number);
|
||||
use Mod::DBtank;
|
||||
use Mod::APIfunc;
|
||||
use Mod::Pricing;
|
||||
|
|
@ -30,6 +31,7 @@ sub new {
|
|||
|
||||
#Template
|
||||
sub tpl(){
|
||||
my $varenv = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift;
|
||||
my $feedb = shift || {};
|
||||
|
|
@ -44,7 +46,6 @@ sub tpl(){
|
|||
my $but = new Buttons;
|
||||
my %ib = $but->ibuttons();
|
||||
|
||||
my %varenv = $cf->envonline();
|
||||
my $lang = "de";
|
||||
my $dbh = "";
|
||||
|
||||
|
|
@ -190,13 +191,13 @@ sub tpl(){
|
|||
$occupied_style = "color:#ff1493" if($cttpos->{int10} == 2 ||$cttpos->{int10} == 3 || $cttpos->{int10} == 6);
|
||||
|
||||
if($cttpos->{int35} && $cttpos->{start_time} && $cttpos->{end_time}){
|
||||
($pricing,$counting) = $pri->counting_rental(\%varenv,$cttpos);
|
||||
($pricing,$counting) = $pri->counting_rental($varenv,$cttpos);
|
||||
|
||||
my $dbh_primary = $dbt->dbconnect_extern($dbt->{primary}->{sharee_primary}->{database}->{dbname});
|
||||
my %varenv_prim = ();
|
||||
$varenv_prim{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $q->escapeHTML($lang) });
|
||||
|
||||
$rental_feed = $pri->fetch_rentalfeed(\%varenv_prim,\%varenv,$cttpos,$counting);
|
||||
$rental_feed = $pri->fetch_rentalfeed(\%varenv_prim,$varenv,$cttpos,$counting);
|
||||
$gesamt = $pri->round($pricing->{total_price});
|
||||
$gesamt = sprintf('%.2f', $gesamt);
|
||||
}else{
|
||||
|
|
@ -285,7 +286,7 @@ sub tpl(){
|
|||
print $q->td({-style=>"background-color:#a7a18f;border-bottom: 1px solid silver;text-align:right;font-size:11px;"}, "$u_name / $dbmtime");
|
||||
|
||||
#if($node_meta->{tpl_id} !~ /199|221/){
|
||||
if(($node_meta->{tpl_id} =~ /198|205|210|219|224|225|228|229/) || ($node_meta->{tpl_id} == 202 && $varenv{dbname} eq $dbt->{primary}->{sharee_primary}->{database}->{dbname}) || ($node_meta->{tpl_id} == 194 && !$ctrel->{int11})){
|
||||
if(($node_meta->{tpl_id} =~ /198|205|210|219|224|225|228|229/) || ($node_meta->{tpl_id} == 202 && $varenv->{dbname} eq $dbt->{primary}->{sharee_primary}->{database}->{dbname}) || ($node_meta->{tpl_id} == 194 && !$ctrel->{int11})){
|
||||
print $q->td({-style=>"background-color:#a7a18f;padding-right:10px;border-bottom: 1px solid silver;text-align:right;"},$but->singlesubmit7("$edit","remove_chk4rel","$ib{remove_chk4rel}","margin:0 5px;"));
|
||||
}
|
||||
print $q->end_table;
|
||||
|
|
@ -323,7 +324,7 @@ sub tpl(){
|
|||
my $year = strftime "%Y", localtime;
|
||||
my ($nyear,$nmonth,$nday) = Add_Delta_YMD($year,$month,$day, 0,0,-28);
|
||||
my $toppx = $top . "px";
|
||||
print $q->div({-style=>"position:absolute;top:$toppx;right:20px;"}, $q->span({-style=>"background-color:#86cbd7"},$q->a({-class=>"linknav",-href=>"/$dbt->{shareedms_conf}->{parent_node}/Mietjournal/?detail_search=1&barcode=$ctrel->{barcode}&start_date_time=$nday.$nmonth.$nyear",-title=>"Mietjournal der letzten 4 Wochen"},"[ Mietjournal zu Rad $dbt->{operator}->{$varenv{dbname}}->{oprefix}$ctrel->{barcode} ]"))),"\n";
|
||||
print $q->div({-style=>"position:absolute;top:$toppx;right:20px;"}, $q->span({-style=>"background-color:#86cbd7"},$q->a({-class=>"linknav",-href=>"/$dbt->{shareedms_conf}->{parent_node}/Mietjournal/?detail_search=1&barcode=$ctrel->{barcode}&start_date_time=$nday.$nmonth.$nyear",-title=>"Mietjournal der letzten 4 Wochen"},"[ Mietjournal zu Rad $dbt->{operator}->{$varenv->{dbname}}->{oprefix}$ctrel->{barcode} ]"))),"\n";
|
||||
$top += 22;
|
||||
#}else{
|
||||
#print $q->div({-style=>"position:absolute;top:$top;right:20px;"},"no valid users path definition: $tpath"),"\n";
|
||||
|
|
@ -331,7 +332,7 @@ sub tpl(){
|
|||
###
|
||||
|
||||
#just for checking if ct_name or barcode still available
|
||||
if($varenv{orga} eq "dms"){
|
||||
if($varenv->{orga} eq "dms"){
|
||||
print<<EOF
|
||||
<style>
|
||||
.ui-autocomplete {
|
||||
|
|
@ -380,7 +381,7 @@ EOF
|
|||
#Mietjournal edit
|
||||
if($node_meta->{ct_table} eq "contenttranspos" && $node_meta->{tpl_id} == 221){
|
||||
my ($key,$des,$size,$postdes) = split /=/,$_;
|
||||
$des .= " ($key)" if($users_dms->{u_id} eq $varenv{superu_id});
|
||||
$des .= " ($key)" if($users_dms->{u_id} eq $varenv->{superu_id});
|
||||
my $prefix = $cttpos->{txt12};
|
||||
$prefix = "S3X" if($prefix eq "SX");
|
||||
|
||||
|
|
@ -419,13 +420,15 @@ EOF
|
|||
}
|
||||
#pos end station
|
||||
elsif($key eq "int04" && "$size" eq "select" && $node_meta->{tpl_id} == 221){
|
||||
my @_valxx = ("");
|
||||
my @_valxx = ("null:");
|
||||
my $end_station = "null";
|
||||
$end_station = $cttpos->{int04} if(looks_like_number($cttpos->{int04}));
|
||||
foreach my $rid (sort { $station_all->{$a}->{int04} <=> $station_all->{$b}->{int04} } keys (%$station_all)){
|
||||
push (@_valxx, "$station_all->{$rid}->{int04}:$station_all->{$rid}->{int04} - $station_all->{$rid}->{txt01}");
|
||||
}
|
||||
print $q->Tr();
|
||||
print $q->td({-class=>'left_italic_cms',-colspan=>'1'},"$des");
|
||||
print $q->td({-class=>'content1_cms',-colspan=>'1'},"$prefix",$but->selector_class("$key","eselect2","width:250px;",$cttpos->{int04},@_valxx));
|
||||
print $q->td({-class=>'content1_cms',-colspan=>'1'},"$prefix",$but->selector_class("$key","eselect2","width:250px;","$end_station",@_valxx));
|
||||
|
||||
}
|
||||
elsif($key eq "int04"){
|
||||
|
|
@ -564,7 +567,7 @@ EOF
|
|||
elsif($key =~ /txt\d/ && $tplkey =~ /int\d/){
|
||||
$j++;
|
||||
my $desc_num = "$des $j";
|
||||
$desc_num .= " ($key:$tplkey)" if($users_dms->{u_id} eq $varenv{superu_id});
|
||||
$desc_num .= " ($key:$tplkey)" if($users_dms->{u_id} eq $varenv->{superu_id});
|
||||
my $desc_key = "";
|
||||
my $desc_name = "";
|
||||
my $desc_size = "";
|
||||
|
|
@ -584,7 +587,7 @@ EOF
|
|||
my $w = $size . "em";
|
||||
$w = "15em" if($size eq "readonly");
|
||||
my $seldes = $des;
|
||||
$des .= " ($key)" if($users_dms->{u_id} eq $varenv{superu_id});
|
||||
$des .= " ($key)" if($users_dms->{u_id} eq $varenv->{superu_id});
|
||||
|
||||
if($key =~ /txt25/ && $node_meta->{tpl_id} == 225 && $size eq "readonly"){
|
||||
my %station_filter_hash = ();
|
||||
|
|
@ -632,7 +635,7 @@ EOF
|
|||
$ct_name = "";
|
||||
}
|
||||
my $oprefix = "";
|
||||
$oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}-" if($node_meta->{tpl_id} == 224 || $node_meta->{tpl_id} == 228);
|
||||
$oprefix = "$dbt->{operator}->{$varenv->{dbname}}->{oprefix}-" if($node_meta->{tpl_id} == 224 || $node_meta->{tpl_id} == 228);
|
||||
print $q->Tr();
|
||||
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
||||
#CMS Textkey readonly
|
||||
|
|
@ -644,7 +647,7 @@ EOF
|
|||
}
|
||||
elsif($key eq "barcode"){
|
||||
my $oprefix = "";
|
||||
$oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}" if($node_meta->{tpl_id} == 205);
|
||||
$oprefix = "$dbt->{operator}->{$varenv->{dbname}}->{oprefix}" if($node_meta->{tpl_id} == 205);
|
||||
print $q->Tr();
|
||||
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
||||
print $q->td({-class=>'content1_cms',-colspan=>1}, "$oprefix", $q->textfield(-class=>'etxt',-style=>"width:$w;",-id=>"json_select",-name=>"$key",-value=>"$ctrel->{$key}", -override=>'1',-size=>"25",-maxlength=>50),$q->span({-id=>'log'},"")),"\n";
|
||||
|
|
@ -680,11 +683,11 @@ EOF
|
|||
}
|
||||
#bike station
|
||||
elsif($key eq "int04" && "$size" eq "select" && $node_meta->{tpl_id} == 205){
|
||||
my @_valxx = ("");
|
||||
my @_valxx = ();
|
||||
foreach my $rid (sort { $station_all->{$a}->{int04} <=> $station_all->{$b}->{int04} } keys (%$station_all)){
|
||||
push (@_valxx, "$station_all->{$rid}->{int04}:$station_all->{$rid}->{int04} - $station_all->{$rid}->{txt01}");
|
||||
}
|
||||
my $oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}";
|
||||
my $oprefix = "$dbt->{operator}->{$varenv->{dbname}}->{oprefix}";
|
||||
print $q->Tr();
|
||||
print $q->td({-class=>'left_italic_cms',-colspan=>'1'},"$des");
|
||||
print $q->td({-class=>'content1_cms',-colspan=>'1'},"$oprefix",$but->selector_class("$key","eselect","width:250px;",$ctrel->{int04},@_valxx));
|
||||
|
|
@ -692,7 +695,7 @@ EOF
|
|||
}
|
||||
elsif($key eq "int04"){
|
||||
my $oprefix = "";
|
||||
$oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}" if($node_meta->{tpl_id} == 225 || $node_meta->{tpl_id} == 205);
|
||||
$oprefix = "$dbt->{operator}->{$varenv->{dbname}}->{oprefix}" if($node_meta->{tpl_id} == 225 || $node_meta->{tpl_id} == 205);
|
||||
print $q->Tr();
|
||||
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
||||
print $q->td({-class=>'content1_cms',-colspan=>1}, "$oprefix", $q->textfield(-class=>'etxt',-style=>"width:$w;",-name=>"$key",-value=>"$ctrel->{$key}", -override=>'1',-size=>"25",-maxlength=>50),"");
|
||||
|
|
@ -742,7 +745,7 @@ EOF
|
|||
elsif($key =~ /int18/ && "$size" eq "select" && $node_meta->{tpl_id} == 210){#sharing_type
|
||||
my @_lock_valxx = ();
|
||||
#delete hidden-lv if not LV
|
||||
delete $dbt->{copri_conf}->{sharing_type}->{4} if($varenv{syshost} ne "shareedms-lv");
|
||||
delete $dbt->{copri_conf}->{sharing_type}->{4} if($varenv->{syshost} ne "shareedms-lv");
|
||||
foreach my $s_key (sort keys (%{ $dbt->{copri_conf}->{sharing_type} })) {
|
||||
push @_lock_valxx, "$s_key:$dbt->{copri_conf}->{sharing_type}->{$s_key}";
|
||||
}
|
||||
|
|
@ -842,7 +845,7 @@ EOF
|
|||
}
|
||||
|
||||
#sharee user_group Tarif-2.0 (tarif.c_ids)
|
||||
elsif($key =~ /txt30/ && $varenv{dbname} ne $dbt->{primary}->{sharee_primary}->{database}->{dbname}){
|
||||
elsif($key =~ /txt30/ && $varenv->{dbname} ne $dbt->{primary}->{sharee_primary}->{database}->{dbname}){
|
||||
my @_valxx = ("");
|
||||
foreach my $rid (sort { $tariff_all->{$a}->{barcode} <=> $tariff_all->{$b}->{barcode} } keys (%$tariff_all)){
|
||||
if($tariff_all->{$rid}->{ct_name}){
|
||||
|
|
@ -859,7 +862,7 @@ EOF
|
|||
else{
|
||||
#Operator letzt Auswahl/Zuweisung
|
||||
if($key eq "txt19" && $node_meta->{tpl_id} == 202){
|
||||
if($varenv{dbname} eq $dbt->{primary}->{sharee_primary}->{database}->{dbname}){
|
||||
if($varenv->{dbname} eq $dbt->{primary}->{sharee_primary}->{database}->{dbname}){
|
||||
my @_valxx = ("");
|
||||
foreach my $key (sort keys (%{ $dbt->{operator} })) {
|
||||
push (@_valxx,$key);
|
||||
|
|
@ -872,7 +875,7 @@ EOF
|
|||
}
|
||||
else{
|
||||
my @_valxx = ("");
|
||||
@_valxx = split(/,/,$varenv{$seldes}) if($varenv{$seldes});
|
||||
@_valxx = split(/,/,$varenv->{$seldes}) if($varenv->{$seldes});
|
||||
my $selsize = "80px";
|
||||
print $q->Tr();
|
||||
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
||||
|
|
@ -906,12 +909,12 @@ EOF
|
|||
}
|
||||
print $q->td({-class=>'content1_cms', -colspan=>'3'},$q->textarea(-id=>"$key", -class=>"etxt", -style=>"border: 1px solid silver;$h $w", -name=>"$key", -override=>'1',-default=>"$ctrel->{$key}")),"\n";
|
||||
}
|
||||
elsif($key =~ /txt15/ && $varenv{dbname} ne $dbt->{primary}->{sharee_primary}->{database}->{dbname} && $node_meta->{tpl_id} == 202){
|
||||
elsif($key =~ /txt15/ && $varenv->{dbname} ne $dbt->{primary}->{sharee_primary}->{database}->{dbname} && $node_meta->{tpl_id} == 202){
|
||||
my $bonus_record = { c_id => 0, ct_name => "" };
|
||||
|
||||
#check after saving to see if matches
|
||||
if($varenv{dbname} eq "sharee_kn"){
|
||||
$bonus_record->{ct_name} = $lb->grep_filecontent("$dbt->{copri_conf}->{basedir}/$dbt->{operator}->{$varenv{dbname}}->{dir_app}/ftp/SWK_codes/got_last.csv","$ctrel->{txt15}") if($ctrel->{txt15});
|
||||
if($varenv->{dbname} eq "sharee_kn"){
|
||||
$bonus_record->{ct_name} = $lb->grep_filecontent("$dbt->{copri_conf}->{basedir}/$dbt->{operator}->{$varenv->{dbname}}->{dir_app}/ftp/SWK_codes/got_last.csv","$ctrel->{txt15}") if($ctrel->{txt15});
|
||||
}
|
||||
if(!$bonus_record->{ct_name}){
|
||||
my $pref_cc = {
|
||||
|
|
|
|||
|
|
@ -33,6 +33,7 @@ sub new {
|
|||
#Template
|
||||
sub tpl(){
|
||||
my $self = shift;
|
||||
my $varenv = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift;
|
||||
my $set_main_id = shift;
|
||||
|
|
@ -47,7 +48,6 @@ sub tpl(){
|
|||
my $apif = new APIfunc;
|
||||
my $but = new Buttons;
|
||||
my $pri = new Pricing;
|
||||
my %varenv = $cf->envonline();
|
||||
my %ib = $but->ibuttons();
|
||||
my $today = strftime "%d.%m.%Y",localtime;
|
||||
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
|
||||
|
|
@ -97,7 +97,7 @@ sub tpl(){
|
|||
else{
|
||||
($cttpos,$rows) = $dbt->collect_contenttrans($dbh,$ctt->{content_id});
|
||||
#int9x are not in db
|
||||
if($varenv{dbname} eq "sharee_sx"){
|
||||
if($varenv->{dbname} eq "sharee_sx"){
|
||||
@tpl_order = ("c_id=ID","int01=Netto Erlös","state=Zahlungsart","int94=Disagio","int02=Gutschrift");
|
||||
}else{
|
||||
@tpl_order = ("c_id=ID","int01=Netto Erlös","state=Zahlungsart","int94=Disagio","int95=Transaktion","int96=Zahlungsmeldung","int97=Kreditkarte Zuordnung","int02=Gutschrift");
|
||||
|
|
@ -119,7 +119,7 @@ sub tpl(){
|
|||
foreach (@tpl_order){
|
||||
my ($key,$val) = split /=/,$_;
|
||||
$tc++ if($val);
|
||||
$val .= " ($key)" if($users_dms->{u_id} eq $varenv{superu_id});
|
||||
$val .= " ($key)" if($users_dms->{u_id} eq $varenv->{superu_id});
|
||||
print $q->th("$val"),"\n";
|
||||
}
|
||||
|
||||
|
|
@ -137,7 +137,7 @@ sub tpl(){
|
|||
|
||||
foreach my $id (sort { $cttpos->{$b}->{c_id} <=> $cttpos->{$a}->{c_id} } keys(%$cttpos)){
|
||||
|
||||
my $oac = $pri->operator_accounting2calc(\%varenv,$cttpos->{$id},$ctf_operator);
|
||||
my $oac = $pri->operator_accounting2calc($varenv,$cttpos->{$id},$ctf_operator);
|
||||
$sum_operatorcredit += $oac->{int02};#Abrechnung Gutschrift
|
||||
$sum_netto += $oac->{int100};#Operator invoice (TeilRad Gebühren netto)
|
||||
$sum_all += $oac->{int99};#capture brutto
|
||||
|
|
@ -228,7 +228,7 @@ sub tpl(){
|
|||
$ctf->{$key} = $lb->newline($ctf->{$key},"","");
|
||||
$ctt->{state} =~ s/\(payone.*//;
|
||||
if($des =~ /$ctt->{state}/){
|
||||
$payment_text = "($key) " if($users_dms->{u_id} eq $varenv{superu_id});
|
||||
$payment_text = "($key) " if($users_dms->{u_id} eq $varenv->{superu_id});
|
||||
if($sum_netto < 0){
|
||||
$payment_text .= "$ctf->{txt58}";
|
||||
}else{
|
||||
|
|
@ -357,11 +357,11 @@ sub tpl(){
|
|||
|
||||
print $q->end_form;
|
||||
|
||||
my $praefix = "$ctt->{txt00}-$varenv{praefix}";
|
||||
my $praefix = "$ctt->{txt00}-$varenv->{praefix}";
|
||||
print $q->div({-style=>"clear:both;height:0.1px;"},""),"\n";
|
||||
if($ctt->{txt30}){
|
||||
print $q->div({-style=>"padding:0.5em;font-size:0.81em;width:98%;text-align:right;"}, "$ctt->{txt30}"),"\n";
|
||||
}elsif( -f "$varenv{pdf}/$praefix-$ctt->{ct_name}.pdf" ){
|
||||
}elsif( -f "$varenv->{pdf}/$praefix-$ctt->{ct_name}.pdf" ){
|
||||
print $q->start_form(),"\n";
|
||||
print $q->hidden(-name=>'offset', -override=>'1', -value=>"$R::offset") if($R::offset);
|
||||
print $q->hidden(-name=>'limit', -override=>'1', -value=>"$R::limit") if($R::limit);
|
||||
|
|
@ -370,8 +370,8 @@ sub tpl(){
|
|||
print $q->end_form;
|
||||
}
|
||||
|
||||
if( -f "$varenv{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
|
||||
print $q->div({-style=>'padding:0.5em;font-size:0.81em;width:98%;text-align:right;'}, "Download: ", $q->a({-href=>"$varenv{wwwhost}/FileOut?file=$praefix-$ctt->{ct_name}.pdf&sessionid=$coo", -target=>"_blank" , -type=>'application/octet-stream', -style=>'text-decoration:underline;'}), "$praefix-$ctt->{ct_name}.pdf"),"\n";
|
||||
if( -f "$varenv->{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
|
||||
print $q->div({-style=>'padding:0.5em;font-size:0.81em;width:98%;text-align:right;'}, "Download: ", $q->a({-href=>"$varenv->{wwwhost}/FileOut?file=$praefix-$ctt->{ct_name}.pdf&sessionid=$coo", -target=>"_blank" , -type=>'application/octet-stream', -style=>'text-decoration:underline;'}), "$praefix-$ctt->{ct_name}.pdf"),"\n";
|
||||
}
|
||||
|
||||
$db->updater("contenttrans","c_id","$ctt->{content_id}","txt20","$accounting_start - $accounting_end","","","","","no_time") if(!$int05 && $accounting_start && $accounting_end);
|
||||
|
|
|
|||
|
|
@ -33,6 +33,7 @@ sub new {
|
|||
#Template
|
||||
sub tpl(){
|
||||
my $self = shift;
|
||||
my $varenv = shift;
|
||||
my $node_meta = shift;
|
||||
my $users_dms = shift;
|
||||
my $set_main_id = shift;
|
||||
|
|
@ -47,7 +48,6 @@ sub tpl(){
|
|||
my $apif = new APIfunc;
|
||||
my $but = new Buttons;
|
||||
my $pri = new Pricing;
|
||||
my %varenv = $cf->envonline();
|
||||
my %ib = $but->ibuttons();
|
||||
my $today = strftime "%d.%m.%Y",localtime;
|
||||
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
|
||||
|
|
@ -178,10 +178,10 @@ EOF
|
|||
my $rental_feed = {};
|
||||
|
||||
if($cttpos->{$id}->{int35} && $cttpos->{$id}->{start_time} && $cttpos->{$id}->{end_time}){
|
||||
$pri->count_freedrental($q,\%varenv,$ctt->{int10},$cttpos->{$id},1);
|
||||
($pricing,$counting) = $pri->counting_rental(\%varenv,$cttpos->{$id});
|
||||
$pri->count_freedrental($q,$varenv,$ctt->{int10},$cttpos->{$id},1);
|
||||
($pricing,$counting) = $pri->counting_rental($varenv,$cttpos->{$id});
|
||||
|
||||
$rental_feed = $pri->fetch_rentalfeed(\%varenv,\%varenv,$cttpos->{$id},$counting);
|
||||
$rental_feed = $pri->fetch_rentalfeed($varenv,$varenv,$cttpos->{$id},$counting);
|
||||
$sum_parts19 += $pricing->{total_price};
|
||||
$gesamt = $pri->round($pricing->{total_price});
|
||||
$gesamt = sprintf('%.2f', $gesamt);
|
||||
|
|
@ -632,12 +632,12 @@ EOF
|
|||
}
|
||||
print $q->end_form;
|
||||
|
||||
my $praefix = "$ctt->{txt00}-$varenv{praefix}";
|
||||
my $praefix = "$ctt->{txt00}-$varenv->{praefix}";
|
||||
print $q->div({-style=>"clear:both;height:0.1px;"},""),"\n";
|
||||
if($ctt->{txt30}){
|
||||
$ctt->{txt30} = $lb->newline($ctt->{txt30},"","");
|
||||
print $q->div({-style=>"padding:0.5em;font-size:0.81em;width:98%;text-align:right;"}, "$ctt->{txt30}"),"\n";
|
||||
}elsif( -f "$dbt->{copri_conf}->{basedir}/$varenv{syshost}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf" ){
|
||||
}elsif( -f "$dbt->{copri_conf}->{basedir}/$varenv->{syshost}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf" ){
|
||||
print $q->start_form(),"\n";
|
||||
print $q->hidden(-name=>'c_id4trans', -override=>'1', -value=>"$ctt->{content_id}"),"\n";
|
||||
print $q->hidden(-name=>'tpl_id4trans', -override=>'1', -value=>"$ctt->{template_id}"),"\n";
|
||||
|
|
@ -647,16 +647,16 @@ EOF
|
|||
print $q->end_form;
|
||||
}
|
||||
|
||||
if( -f "$varenv{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
|
||||
print $q->div({-style=>'padding:0.5em;font-size:0.91em;width:98%;text-align:right;'}, "PDF download: ", $q->a({-href=>"$varenv{wwwhost}/FileOut?file=$praefix-$ctt->{ct_name}.pdf&sessionid=$coo", -target=>"_blank" , -type=>'application/octet-stream', -style=>'text-decoration:underline;'}, "$praefix-$ctt->{ct_name}.pdf")),"\n";
|
||||
if( -f "$varenv->{basedir}/pdfinvoice/$praefix-$ctt->{ct_name}.pdf"){
|
||||
print $q->div({-style=>'padding:0.5em;font-size:0.91em;width:98%;text-align:right;'}, "PDF download: ", $q->a({-href=>"$varenv->{wwwhost}/FileOut?file=$praefix-$ctt->{ct_name}.pdf&sessionid=$coo", -target=>"_blank" , -type=>'application/octet-stream', -style=>'text-decoration:underline;'}, "$praefix-$ctt->{ct_name}.pdf")),"\n";
|
||||
}
|
||||
|
||||
#copri-Ticket-mailing, eMail send by select cms_message_key
|
||||
if("$varenv{praefix}-$ctt->{ct_name}" =~ /\d+/){
|
||||
$varenv{cms} = $dbt->fetch_cms($dbh,{ lang => 'de', ct_name => 'email-invoice%' });
|
||||
if("$varenv->{praefix}-$ctt->{ct_name}" =~ /\d+/){
|
||||
my $email_invoice_cms = $dbt->fetch_cms($dbh,{ lang => 'de', ct_name => 'email-invoice%' });
|
||||
my @_valxx = ("email CMS-Text select");
|
||||
foreach my $rid (sort { $varenv{cms}->{$a}->{ct_name} cmp $varenv{cms}->{$b}->{ct_name} } keys (%{$varenv{cms}})){
|
||||
push (@_valxx, "$varenv{cms}->{$rid}->{ct_name}:$varenv{cms}->{$rid}->{ct_name}");
|
||||
foreach my $rid (sort { $email_invoice_cms->{$a}->{ct_name} cmp $email_invoice_cms->{$b}->{ct_name} } keys (%{$email_invoice_cms})){
|
||||
push (@_valxx, "$email_invoice_cms->{$rid}->{ct_name}:$email_invoice_cms->{$rid}->{ct_name}");
|
||||
}
|
||||
|
||||
print $q->start_form(),"\n";
|
||||
|
|
|
|||
|
|
@ -239,6 +239,10 @@
|
|||
2 = "CreditCard"
|
||||
3 = "Prepaid"
|
||||
</payment_type>
|
||||
<access>
|
||||
0 = "nein"
|
||||
1 = "ja"
|
||||
</access>
|
||||
<permission>
|
||||
0 = "keine"
|
||||
1 = "lesen"
|
||||
|
|
|
|||
|
|
@ -340,9 +340,9 @@ sub tplselect(){
|
|||
&Failure::tpl($varenv,$users_dms->{u_id},$feedb_req);
|
||||
}else{
|
||||
if(($R::ct_trans !~ /close/) && ($ct_table =~ /contenttrans/) && ($R::ct_trans || $R::trans2edit || $R::ctpos_activ || $R::select_part || $R::set_main_id)){
|
||||
&Modalbox::mobox($node_meta,$users_dms,$feedb_req);
|
||||
&Modalbox::mobox($varenv,$node_meta,$users_dms,$feedb_req);
|
||||
}elsif(($R::ct_trans !~ /close/) && ($ct_table =~ /content$|contentadr|contentuser|contentpos|users$|contenttranspos/ && ($R::ct_trans || $R::rel_edit || $R::base_edit)) || ($R::node2edit && $R::node2edit =~ /edit/)){
|
||||
&Modalbox3::mobox3($node_meta,$users_dms,$feedb_req) if($R::rel_edit !~ /delete|save/ && $R::ct_trans !~ /delete/ && $R::base_edit !~ /delete|save_pos/ && !$R::service_id);
|
||||
&Modalbox3::mobox3($varenv,$node_meta,$users_dms,$feedb_req) if($R::rel_edit !~ /delete|save/ && $R::ct_trans !~ /delete/ && $R::base_edit !~ /delete|save_pos/ && !$R::service_id);
|
||||
}
|
||||
}
|
||||
#prio feedback on data request
|
||||
|
|
|
|||
Loading…
Reference in a new issue