[-
$r = shift ;
-]
<table width="100%">
<tr bgcolor="#fefcad">
<td><font size="4">
[$ if $fdat{-update_item} $]
[= edit1 =] [+ $r->{category_set}{category} +]
[$ elsif $fdat{-delete_item} $]
[= del1 =]
[$ elsif $fdat{-add_item} $]
[= add1 =] [+ $r->{category_set}{category} +]
[$ else $]
[# [= show1 =] #][+ $r->{category_set}{category} +]
[$ endif $]
</font></td>
</tr>
</table>
[$ if ($item_set = $r->{item_set}) $] [# && (ref ($item_set) ne 'ARRAY' || @$item_set > 0) $]#]
[$ if $fdat{-update_item} $]
[= edit2 =]
[$ elsif $fdat{-delete_item} $]
[= del2 =]
[$ elsif $fdat{-add_item} $]
[= add2 =]
[$ else $]
[= show2 =]
[$ endif $]
[$ if $fdat{-delete_item} && !$r->{error} $]
<P><A HREF="addsel.epl">[= back_to_index =]</A></P>
[$ endif $]
<br>
[-
$ct = $r->{category_texts};
$cy = $r->{category_types};
$cf = $r->{category_fields};
$cfnl = $r->{category_fields_nolang};
$rec = $item_set->[0] ;
$email = $rec -> {email} ;
$date = $item_set -> {modtime} ;
$date =~ /^(\d+)-(\d+)-(\d+)/ ;
$date = $r -> param -> language eq 'de'?"$3.$2.$1":"$1-$2-$3" ;
$status = eval { $r -> gettext ($item_set->{state} ? 'display' : 'hide') } ;
-]
[# <pre>[- use Data::Dumper -][+ Dumper ($cfnl, $rec) +]</pre> #]
[$if $cfnl && @$cfnl $]
<table width="100%">
<tr>
<td>
<table>
[$ foreach $type (@$cfnl) $]
[$ if $txt = $ct->{$type . '_text'} $]
[$ if $cy->{$type} =~ /showstatic/ $]
[- @txt = split (/\n/, $txt) -][$ foreach $t (@txt) $][+ $t +]<br>[$ endforeach $]
[$ elsif $cy->{$type} !~ /static/ $]
<tr>
<td valign=top>[+ $txt +]:</td><td>
[$ if $cy->{$type} =~ /pulldown/ $]
[+ $r->app->get_title($r,$type,$rec->{$type}) +]
[$ elsif $cy->{$type} =~ /checkboxrow/ $]
[-
%selected = map { $_ => 1 } split ("\t", $rec->{$type});
#warn "selected checkboxes: ", Data::Dumper->Dumper (\%selected), "\n";
if ($type =~ /^(.*?)_id$/) {
$table = $1 ;
} else {
$table = $type;
}
$table =~ s/^.*__// ;
$poss = $r->app->get_titles($r,$table);
$i = 0;
$moreThanOne = 0;
-]
[$ while $t = ($poss->[$i++]) $]
[# - #warn "checkboxrow[$i] = ", Data::Dumper->Dumper ($t), "\n"; - #]
[+ $selected{$t->{id}} ? ($moreThanOne++ ? ", " : "") . $t->{title} : "" +]
[$ endwhile $]
[$ elsif $cy->{$type} =~ /checkbox/ $]
<!-- Todo: Internationalisierung per Tabelle ... -->
[+ $r -> param -> language eq 'de'?($rec->{$type}?'Ja':'Nein'):($rec->{$type}?'Yes':'No') +]
[$ else $]
[- @txt = split (/\n/, $rec -> {$type}) -][$ foreach $t (@txt) $][+ $t +]<br>[$ endforeach $]
[$ endif $]
</td>
</tr>
[$endif$]
[$endif$]
[$endforeach$]
</table>
</td>
</tr>
</table>
[$endif$]
[$if $cf && @$cf $]
<table width="100%">
<tr bgcolor="#fefcad">
[- $rec = $item_set->[$row] -]
<td><font size=3><b>[+ $rec -> {name} +]</b></font></td>
</tr>
<tr>
<td>
<table>
[$ foreach $type (@$cf) $]
[$ if $cy->{$type} !~ /static/ $]
[$ if $txt = $ct->{$type . '_text'} $]
<tr>
<td valign=top>[+ $txt +]:</td>
<td>
[$ if $cy->{$type} =~ /pulldown/ $]
[+ $r->app->get_title($r,$type,$rec->{$type}) +]
[$ elsif $cy->{$type} =~ /checkboxrow/ $]
[-
%selected = map { $_ => 1 } split ("\t", $rec->{$type});
if ($type =~ /^(.*?)_id$/) {
$table = $1 ;
} else {
$table = $type;
}
$table =~ s/^.*__// ;
$poss = $r->app->get_titles($r,$table);
$i = 0;
$moreThanOne = 0;
-]
[$ while $t = ($poss->[$i++]) $]
[- warn "checkboxrow[$i] = ", Data::Dumper->Dumper ($t), "\n"; -]
[+ $selected{$t->{id}} ? ($moreThanOne++ ? ", " : "") . $t->{title} : "" +]
[$ endwhile $]
[$ elsif $cy->{$type} =~ /checkbox/ $]
<!-- Todo: Internationalisierung per Tabelle ... -->
[$ if $rec->{$type} $]
Ja
[$ else $]
Nein
[$ endif $]
[$ else $]
[- @txt = split (/\n/, $rec-> {$type}) -]
[$ foreach $t (@txt) $]
[+ $t +]<br>
[$ endforeach $]
[$ endif $]
</td>
</tr>
[$endif$]
[$endif$]
[$endforeach$]
</table>
</td>
</tr>
</table>
[$endif$]
<hr>
[$ if $udat{user_email} $]
[- $tt = $r->{category_set}{table_type} -]
<A HREF="add.epl?category_id=[+ $fdat{category_id} +]">[New]</A>
<A HREF="add.epl?[+ $tt +]_id=[+ $fdat{"${tt}_id"} +]&-edit_item=1&category_id=[+ $fdat{category_id} +]">[Edit]</A>
<A HREF="list.epl?category_id=[+ $fdat{category_id} +]">[Overview]</A>
[$ endif $]
Owner: [+ $email +]
Status: [+ $status +]
[+ $date +]
<br>
[$ endif $]
<br><br>
[#
[! use Data::Dumper; !]
[- $DBIx::Recordset::FetchsizeWarn = 0; -]
<PRE>
[+ Dumper $r->{error},\%fdat,[keys %$r],[@{$r->{category_fields}}],{%{$r->{category_texts}}},{%{$r->{category_set}}},$r->{item_set} +]
</PRE>
#]