Gerald Richter > Embperl > [+

Download:
Embperl-2.5.0.tar.gz

Annotate this POD

CPAN RT

New  4
Open  2
View/Report Bugs
Source  

NAME ^

[+ $r -> {category_set}{category} +]

[$ while ($rec = $$set -> Next) $]

[- $date = $rec -> {modtime} ; $date =~ /^(\d+)-(\d+)-(\d+)/ ; $date = $r -> param -> language eq 'de'?"$3.$2.$1":"$2/$3/$1" ; -]

[+ $rec -> {heading} +] ^

[# Without the if-then-else this goes wrong if description is empty #] [$ if $rec -> {description} $] [+ $rec -> {description} +] [[[+ $date +]] [$ else $] [[[+ $date +]] [$ endif $]

[+ $rec -> {url} +]

[$ if ($r->{user_id} && $r->{user_id} == $rec->{user_id}) || $r->{user_admin} $]Edit{item_id} +]&-edit_item=1&category_id=[+ $rec->{category_id} +]> | Status: [+ $r -> gettext ($r->{item_set}{state} ? 'display' : 'hide') +][$ endif $]

[$ endwhile $]

syntax highlighting: