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>\"User`s 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>UserAffprog.affprog_id}</b></td>\n	<td class=atkEditorRight>Affiliate program ID</td>\n</tr>\n<tr>\n	<td class=atkEditorLeft><b>#{</b><b>UserAffprog.affprog_title}</b></td>\n	<td class=atkEditorRight>Affiliate program title</td>\n</tr>\n<tr>\n	<td class=atkEditorLeft><b>#{</b><b>UserAffprog.user_id}</b></td>\n	<td class=atkEditorRight>User ID</td>\n</tr>\n<tr>\n	<td class=atkEditorLeft><b>#{</b><b>UserAffprog.sale_id}</b></td>\n	<td class=atkEditorRight>Sale ID (if any)</td>\n</tr>\n<tr>\n	<td class=atkEditorLeft><b>#{</b><b>UserAffprog.expires}</b></td>\n	<td class=atkEditorRight>Expiration date (can be empty)</td>\n</tr>\n</table></td></tr>\n<tr><td class=atkEditorControl>&nbsp;</td></tr>\n</table>  \n");}