[- use File::Basename ; use Data::Dumper ; $DBIx::Recordset::Debug = 3; $maxrow = 30 ; $r = shift ; $ct = $r->{category_texts}; $cy = $r->{category_types}; $cf = $r->{category_fields}; $cr = $r->{category_remarks}; $cfnl = $r->{category_fields_nolang}; @langs = ([{'id' => ''}, $cfnl]) ; while ($rec = ${$r -> {language_set}} -> Next) { push @langs, [$rec, $cf] ; } -] [$ if $r -> {category_set}{headline} !~ /^\s+$/$]
[$if $r -> {category_set}{headline} $] [+ $r -> {category_set}{headline} +] [$else$] [$ if $r -> {edit} $][= edit1 =] [$ else $][= add1 =] [$ endif $] [+ $r -> {category_set}{category} +] [$endif$] |
[+ Data::Dumper->Dump( [ {%fdat}, $r->{edit}, $r->{category_set}{add_info}, $r->{action_prefix}, $r->{category_set}{category}, $r->{user_admin}, [keys %$r], $r->{category_fields}, $r->{category_texts}, $state, $item_set, # ${$r->{category_set}}, # ${$r->{language_set}}, # $r->{item_set}, ],[qw[ fdat edit add_info action_prefix category user_admin r_keys category_fields category_texts state category_set language_set item_set ] ] ) +]#]