From c1e2f536974812f05b8d3534ad2bf9c9ba40c24d Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Mon, 29 Mar 2010 09:18:23 +0000
Subject: RT#884: search customers by signup time of day

---
 httemplate/elements/select-user.html | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 httemplate/elements/select-user.html

(limited to 'httemplate/elements/select-user.html')

diff --git a/httemplate/elements/select-user.html b/httemplate/elements/select-user.html
new file mode 100644
index 000000000..bdb92e70f
--- /dev/null
+++ b/httemplate/elements/select-user.html
@@ -0,0 +1,30 @@
+<SELECT NAME="usernum">
+
+% unless ( $opt{'multiple'} || $opt{'disable_empty'} ) {
+  <OPTION VALUE="">all</OPTION>
+% }
+
+% foreach my $otaker ( @{ $opt{'otakers'} } ) { 
+    <OPTION VALUE="<% shift(@{$opt{'usernums'}}) %>"><% $otaker %></OPTION>
+% } 
+
+</SELECT>
+
+<%init>
+
+my %opt = @_;
+
+unless ( $opt{'otakers'} ) {
+
+  my $sth = dbh->prepare("SELECT username,usernum FROM access_user".
+                       " WHERE disabled = '' or disabled IS NULL")
+    or die dbh->errstr;
+  $sth->execute or die $sth->errstr;
+  for($sth->fetchall_arrayref) {
+    $opt{'otakers'} = [ map { $_->[0] } @$_ ];
+    $opt{'usernums'} = [ map { $_->[1] } @$_ ];
+  }
+
+}
+
+</%init>
-- 
cgit v1.2.1