bayern invoice layout

This commit is contained in:
ragu 2022-07-08 07:32:42 +02:00
parent 3bb934ee18
commit c2238c9932
5 changed files with 97 additions and 91 deletions

View file

@ -99,12 +99,12 @@ sub tpl(){
my ($key,$des,$size) = split /=/,$_;
$size = "60" if($key =~ /ct_name|txt|img/ && !$size);
$ct->{$key} = $q->unescapeHTML("$ct->{$key}");
$ct->{$key} = $lb->newline($ct->{$key});
$des .= " ($key)" if($users_dms->{u_id} eq $varenv{superu_id});
my $value = "";
if($R::config2edit){
$ct->{$key} = $lb->newline($ct->{$key},"","1");
if($size eq "area"){
$value = "<textarea class='etxtarea' name='$key' rows=2 cols=60>$ct->{$key}</textarea>";
$value = "<textarea class='etxtarea' name='$key' rows=8 cols=60>$ct->{$key}</textarea>";
}elsif($size =~ /\w\+\w/){
my ($a,$b) = split /\+/,$size;
my $a_checked;
@ -120,7 +120,7 @@ sub tpl(){
$value = "<input class='etxt' type='text' name='$key' value='$ct->{$key}' size=$size maxlength=200>";
}
}else{
$value = "$ct->{$key}";
$value = $lb->newline($ct->{$key},"","");
}
print $q->Tr();
if($key =~ /ct_name/){