[-
$r = shift ;
$set = $r -> {item_set} ;
$$set -> Reset ;
$tt = $r->{category_set}{table_type};
$cy = $r->{category_types};
$cf = $r->{category_fields};
$cfnl = $r->{category_fields_nolang};
$title_type = $r->{category_title_type};
$fdat{-mode} = $udat{-displaymode} = $fdat{-mode} || $udat{-displaymode} ;
-]
[$ sub show_field $]
[* my ($type, $rec) = @_ ; *]
[$ if $r->{category_types}{$type} =~ /url/ $]
[+ $rec -> {$type} +]
[$ elsif $cy->{$type} =~ /pulldown/ $]
[+ $r->app->get_title($r,$type,$rec->{$type}) +]
[$ else $]
[- $txt = $rec -> {$type}; -]
[$ if $fdat{-mode} eq 'shortlist' $][-
$txt =~ s/\s+/ /gom;
if ( length ($txt) > 85 ) {
$txt = substr ($txt, 0, 80) . " ..." ;
}
-][+ $txt +]
[$ else $][-
@txt = split (/\n/, $txt);
-][$ foreach $t (@txt) $][+ $t +]
[$ endforeach $]
[$ endif $]
[$ endif $]
[$endsub$]
[$ sub show_edit $]
[* my ($rec) = @_ ; *]
[[
[+ $rec->{email} +] | [+ $date +]
[$ if ($r->{user_id} && $r->{user_id} == $rec->{user_id}) || $r->{user_admin} $]
|
[+ $r -> gettext($r->{item_set}{state} ? 'display' : 'hide') +]
|
View
|
Edit
[$ endif $]
|
Top
]
[$endsub$]
[= displaymode =]: [[[= shortlist =]] [[[= longlist =]] [[[= table =]]
[+ $r -> {category_set}{category} +] ([= items_of =] [+ $r -> {user_email} +][+ $r->{user_admin}?"[admin]":'' +]) |
[= add_item =] |
[+ $r->{category_texts}{$type.'_text'} +] | [$endif$] [$ endforeach $]||
[- show_field($type, $rec) -] | [$endif$] [$ endforeach $][- show_edit($rec) -] | |
[$ if $cy->{$title_type} =~ /pulldown/ $] [+ $r->app->get_title($r,$title_type,$rec->{$title_type}) +] [$ else $] [+ $rec -> {$title_type} +] [$ endif $] | [- show_edit($rec) -] | |
[+ $r->{category_texts}{$type.'_text'} +] | [- show_field($type, $rec) -] |