operator standalone fix and adding example db.sql

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

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});

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/){