use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n<tr><td class=atkHeader>\"Affiliate program\" tag group</td></tr>\n<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=100\%>\n<tr>\n	<td class=atkEditorLeft><b>#{</b><b>Affprog.id}</b></td>\n	<td class=atkEditorRight>Affiliate program ID</td>\n</tr>\n<tr>\n	<td class=atkEditorLeft><b>#{</b><b>Affprog.title}</b></td>\n	<td class=atkEditorRight>Affiliate program title</td>\n</tr>\n</table></td></tr>\n<tr><td class=atkEditorControl>&nbsp;</td></tr>\n</table>  \n");}