internationalization/localization, RT12515
[freeside.git] / httemplate / search / cust_main-otaker.cgi
1 <% include('/elements/header.html', 'Customer Search' ) %>
2
3 <FORM ACTION="cust_main.cgi" METHOD="GET">
4
5 Search for <B>Order taker</B>: 
6   <INPUT TYPE="hidden" NAME="otaker_on" VALUE="TRUE">
7 % my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_main")
8 %     or die dbh->errstr;
9 %   $sth->execute() or die $sth->errstr;
10 %   #my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref};
11 %
12
13 <SELECT NAME="otaker">
14 % my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { 
15
16   <OPTION><% $otaker->[0] %>
17 % } 
18
19 </SELECT>
20
21 <P><INPUT TYPE="submit" VALUE="Search">
22
23 </FORM>
24
25 <% include('/elements/footer.html') %>
26 <%init>
27
28 die "access denied"
29   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
30
31 </%init>