- <TR>
- <TD ALIGN="right">Credits by employee: </TD>
-%
-% my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit")
-% or die dbh->errstr;
-% $sth->execute or die $sth->errstr;
-% my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref};
-%
-
-
- <TD><SELECT NAME="otaker">
- <OPTION VALUE="">all</OPTION>
-% foreach my $otaker ( @otakers ) {
-
- <OPTION VALUE="<% $otaker %>"><% $otaker %></OPTION>
-% }
-
- </SELECT>
- </TD>
- </TR>
+
+ <% include( '/elements/tr-select-otaker.html',
+ 'label' => 'Credits by employee: ',
+ 'otakers' => \@otakers,
+ )
+ %>
+