[+ $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" ; -]
[# 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 $]
To install Embperl, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Embperl
CPAN shell
perl -MCPAN -e shell install Embperl
For more information on module installation, please visit the detailed CPAN module installation guide.