roko.li/sharee.bike
4
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2024-05-18 23:06:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

SubListe sortierung fix

Browse source
This commit is contained in:
ragu 2022-09-28 13:28:45 +02:00
parent 72dcd2ec13
commit 5c98c8b8a5
10 changed files with 105 additions and 119 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
copri4/main/src/Mod/APIfunc.pm
View file

@ -1307,8 +1307,10 @@ sub booking_update(){
#end-Station
$update_pos->{int04} = "$stations_raw->{$id}->{int04}";
$update_cc->{int04} = "$stations_raw->{$id}->{int04}";
$update_pos->{int24} = "1";
$update_pos->{int10} = "$state_key";
#if($lock_state eq "locked"){
$update_pos->{int24} = "1";
$update_pos->{int10} = "$state_key";
#}
$update_pos->{txt11} = "$sig_book->{rentalId}" if($sig_book->{rentalId});
$update_cc->{txt06} = "$gps";#end content coordinates
$update_pos->{txt06} = "$gps";#end pos coordinates
@ -1336,6 +1338,7 @@ sub booking_update(){
$rows = $dbt->update_record($dbh,$update_pos,$record_pos);
if($rows > 0){
#if($rows > 0 && $lock_state eq "locked"){
$booking_values->{response_state} = "OK: available bike " . $q->param('bike');
$booking_values->{response_text} = "Danke! Die Miete Fahrrad Nr. " . $q->param('bike') . " wurde beendet.";
$ct_state = $state_key;

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

@ -103,7 +103,7 @@ sub sig_available {
if(ref($response_in) eq "HASH"){
foreach my $resp (@{ $response_in->{items} }) {
print FILE "response_in loop $dbt->{operator}->{$varenv->{dbname}}->{operatorApp}\n" . $q->param('request') . "\n" . Dumper($resp) . "\n";
print FILE "$now_dt response_in loop $dbt->{operator}->{$varenv->{dbname}}->{operatorApp}\n" . $q->param('request') . "\n" . Dumper($resp) . "\n";
if(ref($resp->{site}) eq "HASH" && $dbt->{operator}->{$varenv->{dbname}}->{operatorApp} && $q->param('request') eq "stations_available"){

6
copri4/main/src/Mod/Indexsharee.pm
View file

@ -548,7 +548,8 @@ sub handler {
c_id => $R::confirm_userid,
txt34 => "ilike::$confirm_code%",
};
my $confirmed_email = $dbt->fetch_record($dbh,$authref);
my $confirmed_email = { c_id => 0 };
$confirmed_email = $dbt->fetch_record($dbh,$authref);
#($api_return,$users_sharee) = $apif->auth_verify($q,"",$R::confirm_code);
if($confirmed_email->{c_id}){
@ -577,7 +578,8 @@ sub handler {
c_id => $R::confirm_userid,
txt34 => "ilike::%$confirm_smscode",
};
my $confirmed_sms = $dbt->fetch_record($dbh,$authref);
my $confirmed_sms = { c_id => 0 };
$confirmed_sms = $dbt->fetch_record($dbh,$authref);
#($api_return,$users_sharee) = $apif->auth_verify($q,"",$R::confirm_smscode);
if($confirmed_sms->{c_id}){

8
copri4/main/src/Mod/Libenzdb.pm
View file

@ -1314,7 +1314,7 @@ sub search_jsonadr(){
$sth = $dbh->prepare("SELECT ct.c_id AS id ,ct.$mjkey AS name FROM $table ct, relation rel WHERE ct.c_id=rel.content_id and rel.template_id=$template_id and $sel");
}else{
my $sel = "txt01 ilike '%$search%'";
$sth = $dbh->prepare("SELECT ct.txt01 || ', ' || ct.txt08 AS value, ct.txt01 AS vorname_name, ct.c_id FROM $table ct, relation rel WHERE ct.c_id=rel.content_id and rel.template_id=$template_id and $sel");
$sth = $dbh->prepare("SELECT ct.txt01 || ', ' || ct.c_id AS value, ct.txt01 AS vorname_name, ct.c_id FROM $table ct, relation rel WHERE ct.c_id=rel.content_id and rel.template_id=$template_id and $sel");
}
my $rc = $sth->execute();
my $rows = $sth->rows;
@ -1786,8 +1786,10 @@ sub csv2xls(){
#with c_ids over tpl_ids. ct4tpl
sub collect_cid(){
my $self = shift;
my ($table,$lang,$tpl_id,$rel_id,$barcode,$column2,$content2) = @_;
my $where = "where ct.c_id=rel.content_id and rel.lang='$lang' and rel.template_id='$tpl_id'";
my ($table,$lang,$tplids,$rel_id,$barcode,$column2,$content2) = @_;
$tplids =~ s/,$//;
my $where = "where ct.c_id=rel.content_id and rel.lang='$lang' and rel.template_id IN ($tplids)";
if($barcode && $barcode =~ /^\d+$/){
$where .= " and ct.barcode='$barcode'";
}elsif($rel_id){

7
copri4/main/src/Mod/Prelib.pm
View file

@ -586,12 +586,17 @@ sub save_relation {
if($_ =~ /template_id/ && $valxx){
$u_rows = $dbt->update_one($dbh,$update_relation,"template_id=$valxx");
}
if($_ =~ /int|n_sort|owner|node_public/){
if($_ =~ /int|n_sort|owner/){
$valxx =~ s/,/./;
$valxx = "null" if(!$valxx && $valxx ne "0");#for empty
$valxx = "0" if($valxx eq "0");
$u_rows = $dbt->update_one($dbh,$update_node,"$_=$valxx") if($valxx =~ /^\d+$|null|0/);
}
if($_ =~ /node_public/){
$valxx = "t" if($valxx eq "1" || $valxx eq "t");
$valxx = "f" if(!$valxx || $valxx eq "f");
$u_rows = $dbt->update_one($dbh,$update_node,"$_='$valxx'");
}
if($_ =~ /txt01/){
$u_rows = $dbt->update_one($dbh,$update_node,"$_='$valxx'");
}

6
copri4/main/src/Mod/Prelogic.pm
View file

@ -570,7 +570,8 @@ sub preinit(){
my $c_id = $users_dms->{c_id4trans} || "";#Document id
return "failure::Abbruch, die Aktion konnte keinem Dokument zugeordnet werden. Arbeiten Sie mit mehreren Browser-Tabs? Bitte multiple COPRI Tabs schließen und anschließend das Verkauf-Terminal neu öffnen." if(!$c_id);
my $table = "contenttrans"; my $ctt;
my $table = "contenttrans";
my $ctt = { c_id => 0 };
my $rel = $db->get_rel4tpl("",$lang,$users_dms->{c_id4trans},$users_dms->{tpl_id4trans});
$ctt = $db->get_content1("contenttrans",$rel->{content_id});
my ($node,$ct_exist);
@ -643,12 +644,15 @@ sub preinit(){
#after delete preauth after 0€ capture sets new TXID and increment reference
$ctt->{payone_reset} = $R::payone_reset;
$ctt->{int01} = 0;
$ctt->{sequence} = $ctt->{int18} || 1;
$ctt->{sequence}++;
if($ctadr->{int03} == 1 && $ctt->{txt16} && $R::state =~ /SEPA/){#SEPA 0
my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
}
if($ctadr->{int03} == 2 && $ctt->{txt16} && $R::state =~ /Kreditkarte/){#CC 0
my $payoneret = $payone->captureCC_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
}
$ctt = $db->get_content1("contenttrans",$ctt->{c_id});
}
if($ctadr->{int03} == 1 && $ctadr->{ct_name} =~ /\w{2}-\d+/){

6
copri4/main/src/Tpl/Calorin.pm
View file

@ -182,13 +182,13 @@ sub tpl(){
barcode => $q->escapeHTML("$R::barcode"),
ct_txt06 => $q->escapeHTML("$R::ct_txt06"),#PLZ
ct_ct_name => $q->escapeHTML("$R::ct_ct_name"),
owner => $q->escapeHTML("$R::owner"),
}
}
$search = { %$search,
start_date_time => "$start_date_time",
end_date_time => "$end_date_time",
start_date_time => "$start_date_time",
end_date_time => "$end_date_time",
owner => $q->escapeHTML("$R::owner"),
} if(!$R::cttpos_id && !$R::ct_id);
#$search->{barcode} = $q->escapeHTML("$R::barcode") if($R::base_edit eq "save_pos" && $R::barcode);

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

@ -229,44 +229,53 @@ sub tpl(){
}
my $searchref = {};
my $tplids = "$tpl_id," || 0;
my $opos = "";
#Filter OPOS
if($path =~ /OPOS/){
#Faktura actions
if($node_meta->{template_id} =~ /209|218/){
$tplids = "209,218";#Faktura defaults
if($path =~ /OPOS/){
$R::detail_search="suchen";
$searchref->{int14} = ">=1";
$R::todo="Filter";
$message .= ">>> Offene Payone Posten (Fehlgeschlagene Geldeinzüge) <<<";
$offset=0;
$limit=10000;
}
$tplids = "209,218";
}
if($path =~ /langzeit/){
if($path =~ /langzeit/){
$R::detail_search="suchen";
$searchref->{long_rent}="1 day";
$R::todo="Filter";
$message .= ">>> langzeit Mieten (größer 1 Tag) sollten vor Faktura überprüft werden <<<";
$offset=0;
$limit=10000;
}
}
if(!$v_journal && !$R::detail_search && -f $hashfile && ($path =~ /letzte Suche/ || ($limit > $varenv{limit}))){
if(!$R::detail_search && -f $hashfile && $path =~ /letzte Suche/){
$R::todo="Filter";
$message .= ">>> es wurden die letzten Suchparameter oder Filter geladen <<<";
$offset=0;
$limit=10000;
}
$tplids = "209,218";
}
my $opos = "";
if($node_meta->{node_name} eq "Tagesbericht"){
if($node_meta->{node_name} eq "Tagesbericht"){
$offset=0;
$limit = "1000";
$R::detail_search="suchen";
$v_journal = $node_meta->{node_name};
$opos="null";
$tpl_id = 218;
}
#on search take also journal
if($R::detail_search eq "suchen"){
$tplids = "209,218";
}
}
my $max_timestamp = "";
$max_timestamp = "$1.$2.$3" if($ctf->{txt80} =~ /(\d{2})\.(\d{2})\.(\d{4})$/);
my $max_sum = $ctf->{int03} || "";
@ -281,7 +290,7 @@ sub tpl(){
$message=$R::message if($R::message);
#CSV
my $export;
my $export = "";
my $ck4ex = "@R::ck4ex" || "";
$export = "check4export" if($R::ck4ex);
if($export || $R::ck4ex){
@ -290,7 +299,7 @@ sub tpl(){
}
#path-line
my $redirect;
my $redirect = "";
$redirect = "(redirected)" if($R::redirected);
#top of bootstrap
my $header_style = "";
@ -309,8 +318,6 @@ sub tpl(){
}
print $q->start_form(-name=>'searchform');
print $q->hidden(-name=>'todo', -value=>"Mindermenge") if($R::todo && $R::todo =~ /Mindermenge/);
print $q->hidden(-name=>'todo', -value=>"Waren-Summe") if($R::todo && $R::todo =~ /Waren-Summe/);
print $q->hidden(-name=>'offset', -value=>"$offset");
print $q->hidden(-name=>'main_id', -value=>"$node_meta->{main_id}");
print $q->hidden(-name=>'kind_of_trans', -value=>"$node_meta->{node_name}");
@ -318,7 +325,6 @@ sub tpl(){
print $q->hidden(-name=>'owner', -value=>"$users_dms->{u_id}");
print $q->hidden(-name=>'template_id', -value=>"$node_meta->{template_id}");
my $tplids = "$tpl_id," || 0;
$tplids = "205,224,225,210,226,227,228,229" if(($table !~ /contentadr|contenttrans|contenttver|contentnel/) && !$export);
$tplids = 205 if($path =~ /Waren$/);#Defaults to only Verleih_list
@ -326,17 +332,18 @@ sub tpl(){
my $s_ct_name = $q->escapeHTML($R::s_ct_name) || "";
my $s_barcode = $q->escapeHTML($R::s_barcode) || "";
#mandanten-modul abhängige rekursive suche
my $main_ids = "";
if($v_journal && $v_journal =~ /Verkaufsjournal/){
$main_ids = $dbt->{shareedms_conf}->{invoicejournal};
$tplids = 209;
}else{
$main_id = $dbt->{shareedms_conf}->{faktura} if($v_journal && $v_journal =~ /bericht/ || $R::todo);#starts at root
}elsif($node_meta->{template_id} =~ /209|218/){
$main_id = $dbt->{shareedms_conf}->{faktura} if($node_meta->{node_name} eq "Faktura" || $R::todo);
# if($v_journal && $v_journal =~ /bericht/ || $R::todo);#starts at root
$main_ids = "$main_id,";
my $excluded = "journal";#case is defined
$excluded = "Storno" if($R::todo && $R::todo eq "Filter");
$main_ids .= $db->collect_noderec($main_id,$lang,"$excluded");
$main_ids .= $db->collect_noderec($main_id,$lang,"nothing");
}else{
$main_ids = "$main_id,";
$main_ids .= $db->collect_noderec($main_id,$lang,"nothing");
}
$main_ids =~ s/,$//;
@ -345,18 +352,12 @@ sub tpl(){
$limit=10000;
}
#Waren-nodes für Umsatz-Auswertung
my $w_nodes = "";
my $verleih_nodes = "";
my $relnod = "";
$relnod = $db->collect_rel4nodes($main_ids,"","","rel_id");
#Faktura/Verkaufsjournal menue (ex. Verleihjournal)
my $j_exist = $db->get_node4multi("300011",$lang);
#nur für node_name in tabelle
my $nodes;
my $nodes = "";
if($main_ids){
$nodes = $db->collect_node2($main_ids);
}else{
@ -417,9 +418,10 @@ sub tpl(){
#$ctrel = $db->get_ctrel("contenttrans","",$lang,"",$users_dms->{c_id4trans},$users_dms->{tpl_id4trans});
#without limit it will takes only one dataset
if(($R::rel_id && $R::rel_id =~ /^\d+$/) || ($c_id4trans && $c_id4trans =~ /^\d+$/)){
if($node_meta->{ct_table} eq "contenttrans" && $c_id4trans && $c_id4trans =~ /^\d+$/){
#if(($R::rel_id && $R::rel_id =~ /^\d+$/) || ($c_id4trans && $c_id4trans =~ /^\d+$/)){
#if((($R::rel_id && $R::rel_id =~ /^\d+$/) || ($c_id4trans && $c_id4trans =~ /^\d+$/)) && ($limit > $varenv{limit})){
$ct4rel = $db->collect_cid($table,$lang,$tpl_id,$R::rel_id,$R::barcode,"c_id",$c_id4trans);
$ct4rel = $db->collect_cid($table,$lang,$tplids,$R::rel_id,$R::barcode,"c_id",$c_id4trans);
}
#Suchen
@ -510,10 +512,11 @@ sub tpl(){
}
}
print $q->div({-style=>'background-color:silver;height:10px;'},"&nbsp;"),"\n";
my $hstyle = "border-right: solid thin gray;border-bottom: solid thin gray;";
if($v_journal && $v_journal =~ /journal/){
print $q->hidden(-name=>'s_kontext', -value=>"Beleg"),"\n";
print $q->div({-style=>"background-color:silver;$hstyle"},$but->singlesubmit1("detail_search","xxxxxxxxx","",""),"\n");
}
print $q->hidden(-name=>'mandant_main_id', -value=>"$dbt->{shareedms_conf}->{parent_id}"),"\n";
print $q->hidden(-name=>'tpl_id4trans', -value=>"$node_meta->{tpl_id}"),"\n";
@ -561,7 +564,7 @@ sub tpl(){
#1. Search-fields
my $h=0;
my $s_val;
my $s_val = "";
foreach(@tpl_order){
$h++;
my ($key,$val,$size) = split /=/,$_;
@ -1296,46 +1299,6 @@ sub tpl(){
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1"},"");
}
print $q->Tr();
print $q->td({-style=>"background-color:silver;"},""),"\n";
print $q->td({-class=>'tdsum',-colspan=>"$m",-style=>'background-color:#eaeaec;'},"Bar Summe");
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1",-style=>'background-color:#eaeaec;'},"$sum_bar €");
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1"},"");
if($v_journal eq "Tagesbericht" || ($v_journal && $R::s_start_mtime !~ /\d+[\.|,]\d+[\.|,]\d+/)){
print $q->Tr();
print $q->td({-style=>"background-color:silver;"},""),"\n";
$sum_start = "$ctf->{int01}" if($sum_start == "0");
my $sum_start_text = "(Kassenbestand Übernahme vom Vortag)" if(!$sum_start);
$sum_start = $last_ab->{int01} if(!$sum_start);
print $q->td({-class=>'tdsum',-colspan=>"$m",-style=>'background-color:#eaeaec;'},$q->span({-style=>'color:silver;font-weight:normal;'},"$sum_start_text"),"Anfangs Kassenbestand");
if($close_time){
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1",-style=>'background-color:#eaeaec;'},"$sum_start €");
}else{
print $q->td({-class=>'tdsum',-colspan=>"1",-style=>'background-color:#eaeaec;'}, $q->textfield(-class=>'etxt',-style=>'text-align:right;',-name=>"sum_start",-override=>'1',-default=>"$sum_start",-size=>"5",-maxlength=>10),"\n");
}
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1"},"");
print $q->Tr();
print $q->td({-style=>"background-color:silver;"},""),"\n";
print $q->td({-class=>'tdsum',-colspan=>"$m",-nowrap=>"1",-style=>'background-color:#eaeaec;'},"Tatsächlicher Kassenbestand");
$sum_kasse = "$varenv{sum_start}" if($sum_kasse == "0");
if($close_time){
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1",-style=>'background-color:#eaeaec;'},"$sum_kasse €");
}else{
print $q->td({-class=>'tdsum',-colspan=>"1",-style=>'background-color:#eaeaec;'},$q->textfield(-class=>'etxt',-style=>'text-align:right;',-name=>"sum_kasse",-override=>'1',-default=>"$sum_kasse",-size=>"5",-maxlength=>10),"\n");
}
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1"},"");
my $sum_diff = $sum_kasse - $sum_start - $sum_bar;
$sum_diff = $lb->round($sum_diff);
$sum_diff = $lb->cashme($sum_diff);
print $q->Tr();
print $q->td({-style=>"background-color:silver;"},""),"\n";
print $q->td({-class=>'tdsum',-colspan=>"$m",-style=>'background-color:#eaeaec;'},$q->span({-style=>'color:silver;font-weight:normal;'},"($sum_kasse - $sum_start - $sum_bar = $sum_diff)"),"Kassenbestand - Bar Summe = Differenz");
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1",-style=>'background-color:#eaeaec;'},"$sum_diff €");
print $q->td({-class=>'tdsum',-colspan=>"1",-nowrap=>"1"},"");
}
###
if($users_dms->{u_id}){
if($v_journal =~ /bericht/ && $j_exist->{main_id}){
print $q->Tr();
@ -1351,15 +1314,9 @@ sub tpl(){
print $q->end_table;
print $q->hidden(-name=>'tpl_id',-override=>'1', -value=>"$tpl_id");
print "<div id='jump_bottom' style='clear:both;border:0px dotted silver;height:35px;'>\n";
#if($R::detail_search !~ /suchen/ && $rows > $limit && $nr > 0){
#print $q->div({-style=>'float:left;padding:6px 0 0 20px;'},"Datensätze pro Seite:",$q->textfield(-style=>'height:16px;',-name=>"limit",-default=>"$limit",-size=>"3",-maxlength=>10)),"\n";
#print $q->div({-style=>'float:left;padding:7px 0 0 10px;'},$but->singlesubmit3("detail_search","reload_search","$varenv{metahost}/img/refresh.png","height:14px;","Tabelle neu laden")),"\n";
#}
print $q->end_form;
my $offset_nr = $offset + $nr;
#my $counter = $node_meta->{int10} || $rows;
my $counter = $rows;
print $q->div({-style=>'float:left;padding:6px 0 0 10px;'},"Zeile: $offset - $offset_nr / $counter");
@ -1368,14 +1325,14 @@ sub tpl(){
print $q->a({-class=>"linknav1",-href=>"?go=backward_list;offset=$offset;limit=$limit",-title=>'backward'},"&larr; ") if($offset >= $limit);
print $q->a({-class=>"linknav1",-href=>"?go=forward_list;offset=$offset;limit=$limit",-title=>'forward'}," &rarr;") if($counter >= $limit-10); #if($rows > $limit && $nr > 0);
print "</div>\n";
print "</div>\n";
print $q->div({-style=>''}, "&nbsp;"),"\n";
print $q->div({-style=>'padding:6px 0 6px 20px;text-decoration:underline;'}, "Symbol Legende"),"\n";
if($table eq "contentadr"){
print $q->div({-style=>'padding:0 20px;font-style:italic;'}, $q->span({-style=>'padding:0.1em 0.8em;',-style=>'color:red;'},"&bull;"), "Der Verleih ist nicht freigeschaltet"),"\n";
}elsif($table eq "contenttrans"){
print $q->div({-style=>'padding:0 20px;font-style:italic;'}, $q->span({-style=>'padding:0.1em 0.8em;',-style=>'color:red;'},"&bull;"), "payone error"),"\n";
}elsif($table eq "content"){
#print $q->div({-style=>'padding:0 20px;font-style:italic;'}, $q->span({-style=>'padding:0.1em 0.8em;'},$q->img({-src=>"$varenv{metahost}/glyphicons/glyphicons-512-copy.png", -style=>'height:1.3em;'})), "Artikel zur Rechnung hinzufügen ( Orange unterlegte Faktura Rechnung )"),"\n";
}elsif($table eq "content" && $node_meta->{tpl_id} =~ /205|225/){
print $q->div({-style=>'padding:0 20px;font-style:italic;'}, $q->span({-style=>'padding:0.1em 0.8em;'},$q->img({-src=>"$varenv{metahost}/glyphicons/glyphicons-440-wrench.png", -style=>'height:1.3em;'})), "Service-Wartung"),"\n";
}
print $q->div({-style=>'padding:0.5em;'}, "&nbsp;"),"\n";

62
copri4/main/src/Tpl/SubListe.pm
View file

@ -122,8 +122,6 @@ sub tpl(){
my $main_ids = $parent_node4rel->{main_id};
my $tpl_ids = $parent_node4rel->{template_id};
my $rows = 0;
my $scol = "mtime";
my $table = "content";
$searchref->{table_pos} = "contentpos";
if($node_meta->{tpl_id} == 199){
@ -133,6 +131,13 @@ sub tpl(){
$main_ids = $node_meta->{main_id};
$tpl_ids = $node_meta->{tpl_id};
}
elsif($node_meta->{tpl_id} >= 400 && $node_meta->{tpl_id} < 500){
$table = "content";
$searchref->{table_pos} = "contentpos";
$searchref->{template_id_pos} = "$node_meta->{tpl_id}";
$tpl_ids = "205";
#$main_ids = $node_meta->{main_id};
}
elsif($node_meta->{tpl_id} > 600 && $node_meta->{tpl_id} < 700){
$table = "contentadr";
$searchref->{table_pos} = "contentadrpos";
@ -183,6 +188,17 @@ EOF
}
my @tpl_order = split /,/,$node_meta->{tpl_order};
my $rows = 0;
my $scol = "mtime";
#table columne check for col_sort
if($users_dms->{col_sort}){
my $tinfo = $db->table_info($table);
foreach (keys(%$tinfo)){
$scol = "$users_dms->{col_sort}" if("$users_dms->{col_sort}" eq "$tinfo->{$_}->{attname}");
}
$db->users_up("col_sort","0",$users_dms->{owner}) if("$scol" ne "$users_dms->{col_sort}");
}
#print Dumper($node_meta);
my $hashfile = "$varenv{logdir}/$users_dms->{u_id}-$searchref->{table_pos}-searchhash";
@ -206,7 +222,7 @@ EOF
#trying to save hashref
if($R::detail_search && ref($searchref) eq "HASH"){
store $searchref, $hashfile;
}elsif($keycount > 0 && !$R::detail_search && -f $hashfile){
}elsif($keycount > 0 && !$R::detail_search && -f $hashfile && !$R::col_sort && !$R::sort_updown){
$searchref = {};
$searchref = retrieve($hashfile);
}
@ -246,16 +262,9 @@ EOF
my $search = "search";
print $q->Tr(),"\n";
print $q->td({-style=>"background-color:silver;$hstyle"},$but->singlesubmit1("detail_search","$search","","")),"\n";
print $q->td({-style=>"$hstyle"},"&nbsp;"),"\n";
#https://tinkwwp.copri4.de/APIjsonserver?request=service_done&bike=202&work_id=txt11&work_val=aaa&authcookie=1842_ad720ed63bd40039e4abe8a9ad7315e1_34567890
#disabled
if(1==2 && $node_meta->{tpl_id} >= 400 && $node_meta->{tpl_id} < 500){
print $q->td({-style=>"$hstyle"}, $but->singlesubmit2glyph("$edit","$new_key","$ib{$new_key}","background-color:$node_meta->{bg_color};")),"\n";
}else{
print $q->td({-style=>"$hstyle"},"&nbsp;"),"\n";
}
#1. Search-fields
#1. Search-fields
my $s_val = "";
foreach(@tpl_order){
my ($key,$val,$size) = split /=/,$_;
@ -296,23 +305,21 @@ EOF
my $new_key="new_dmsusers";
print "<th style='$hstyle;width:250px;'>\n";
print $but->singlesubmit2glyph("$edit","$new_key","$ib{$new_key}","background-color:$node_meta->{bg_color};"),"\n";
#print $q->hidden(-name=>'c_id4trans', -override=>'1', -value=>"$ctx->{c_id}"),"\n";
#from json_selectadr
print $but->singlesubmit2glyph("$edit","$new_key","$ib{$new_key}","background-color:$node_meta->{bg_color};"),"\n";
print $q->hidden(-id=>'c_idadr', -name=>"c_idadr", -override=>'1'),"\n";
print $q->hidden(-id=>'vorname_name', -name=>"vorname_name", -override=>'1'),"\n";
print $q->textfield(-style=>'border:1px solid grey;height:25px;width:80%;',-id=>"json_selectadr",-name=>"json_selectadr", -placeholder=>'Neuer DMS-Account', -value=>""),"\n";
print "</th>\n";
}elsif($node_meta->{tpl_id} != 199){
print $q->th({-style=>""},"&nbsp;"),"\n";
#print $q->th({-style=>""},"&nbsp;"),"\n";
my $sort_up = "up";
my $sort_down = "down";
$sort_up = "<b>$sort_up</b>" if($users_dms->{sort_updown} eq "up");
$sort_down = "<b>$sort_down</b>" if($users_dms->{sort_updown} eq "down");
print $q->th($q->a({-class=>"sortnav",-href=>"?sort_updown=up\&offset=$offset\&limit=$limit",-title=>'Aufsteigend sortieren'},"$sort_up"),"|",$q->a({-class=>"sortnav",-href=>"?sort_updown=down\&offset=$offset\&limit=$limit",-title=>'Absteigend sortieren'},"$sort_down")),"\n";
print $q->th({-style=>""},"&nbsp;"),"\n";
}
#my $sort_up = "up";
#my $sort_down = "down";
#$sort_up = "<b>$sort_up</b>" if($users_dms->{sort_updown} eq "up");
#$sort_down = "<b>$sort_down</b>" if($users_dms->{sort_updown} eq "down");
#print $q->th($q->a({-class=>"sortnav",-href=>"?sort_updown=up\&offset=$offset\&limit=$limit",-title=>'Aufsteigend sortieren'},"$sort_up"),"|",$q->a({-class=>"sortnav",-href=>"?sort_updown=down\&offset=$offset\&limit=$limit",-title=>'Absteigend sortieren'},"$sort_down")),"\n";
my $j = 0;
foreach (@tpl_order){
@ -331,9 +338,14 @@ EOF
$divstyle = "width:20px;white-space:nowrap;overflow:hidden;";
}
my $sort_title="| $val";
$val = "<b>$val</b>" if($key eq $users_dms->{col_sort});
$i++;
print $q->th({-style=>'padding:5px 0'},$q->div({-style=>"$divstyle"},$q->a({-class=>"sortnav",-href=>"?col_sort=$key\&offset=$offset\&limit=$limit",-title=>"$val"},"$val"))),"\n" if($key ne "u_id");
#$i++;
if($node_meta->{tpl_id} !~ /198|199/){
$val = "<b>$val</b>" if($key eq $users_dms->{col_sort});
print $q->th({-style=>'padding:5px 0'},$q->div({-style=>"$divstyle"},$q->a({-class=>"sortnav",-href=>"?col_sort=$key\&offset=$offset\&limit=$limit",-title=>"$val"},"$val"))),"\n" if($key ne "u_id");
}else{
print $q->th({-style=>'padding:5px 0'},$q->div({-style=>"$divstyle"},"$val")),"\n" if($key ne "u_id");
}
}#end Tableheader
@ -410,7 +422,7 @@ EOF
};
my $ctadr = $dbt->fetch_record($dbh,$adref);
print $q->td({-class=>"$tdclass",-style=>"$tdstyle $set_style width:300px;"},$q->a({-class=>"linknav3",-href=>"?node2edit=editpart\&u_id=$ct4rel->{$id}->{u_id}",-title=>"edit"},"$ctadr->{txt01} - $ctadr->{txt08} ($ct4rel->{$id}->{$key})")),"\n";
print $q->td({-class=>"$tdclass",-style=>"$tdstyle $set_style width:300px;"},$q->a({-class=>"linknav3",-href=>"?node2edit=editpart\&u_id=$ct4rel->{$id}->{u_id}",-title=>"edit"},"$ctadr->{txt01} ($ct4rel->{$id}->{$key})")),"\n";
}elsif($key eq "txt08" && $node_meta->{ct_table} eq "contentadrpos"){
my $subject = "sharee.bike feedback";
my $body = "Hallo $ct4rel->{$id}->{txt01},\%0A\%0Avielen Dank für Ihre Nachricht \"$ct4rel->{$id}->{txt02}\"";

1
copri4/shareedms-operator/src/Lib/Mlogic.pm
View file

@ -214,6 +214,7 @@ sub tpl(){
foreach my $id1 (sort {$node1->{$a}->{n_sort} <=> $node1->{$b}->{n_sort}} keys (%$node1)){
if($node1->{$id1}->{node_name} !~ /Firma|System/){
my $node2 = $db->collect_noderel($node1->{$id1}->{main_id},$lang,$users_dms->{u_id});
$topath = "/$viewsel[0]/$node->{$id}->{node_name}";
$mclass = "";
$mstyle = "";
if("$node1->{$id1}->{node_name}" eq "$viewsel[2]"){