[-
$r = shift ;
-]
[$ if $fdat{-update_item} $]
[= edit1 =] [+ $r->{category_set}{category} +]
[$ elsif $fdat{-delete_item} $]
[= del1 =]
[$ else $]
[= add1 =] [+ $r->{category_set}{category} +]
[$ endif $]
|
[$ if $fdat{-delete_item} && !$r->{error} $]
[= del2 =]
[= back_to_index =]
[$ endif $]
[$ if ($item_set = $r->{item_set}) $] [# && (ref ($item_set) ne 'ARRAY' || @$item_set > 0) $]#]
[= show2 =]
Status: [+ eval { $r -> gettext ($item_set->{state} ? 'display' : 'hide') } +]
[-
$ct = $r->{category_texts};
$cy = $r->{category_types};
$cf = $r->{category_fields};
-]
[- $rec = $item_set->[$row] -]
[+ $rec -> {name} +] |
[$ foreach $type (@$cf) $]
[$ if $txt = $ct->{$type . '_text'} $]
[+ $txt +]: |
[$ if $cy->{$type} =~ /pulldown/ $]
[+ $r->app->get_title($r,$type,$fdat{$type.'_'.$rec->{language_id}}) +]
[$ else $]
[- @txt = split (/\n/, $rec -> {$type}) -][$ foreach $t (@txt) $][+ $t +] [$ endforeach $]
[$ endif $]
|
[$endif$]
[$endforeach$]
|
[$ if $udat{user_email} $]
[- $tt = $r->{category_set}{table_type} -]
Edit
[$ endif $]
[$ endif $]
[#
[! use Data::Dumper; !]
[- $DBIx::Recordset::FetchsizeWarn = 0; -]
[+ Dumper $r->{error},\%fdat,[keys %$r],[@{$r->{category_fields}}],{%{$r->{category_texts}}},{%{$r->{category_set}}},$r->{item_set} +]
#]