Changeset 326 for trunk/dns.cgi

Timestamp:

05/02/12 17:41:48 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Move SQL for clone-this-user dropdown into DNSDB.pm. See #1

File:

• trunk/dns.cgi (modified) (1 diff)

trunk/dns.cgi

@@ -1828 +1828 @@
 
 sub fill_clonemelist {
-  my $sth = $dbh->prepare("SELECT username,user_id FROM users WHERE group_id=$curgroup");
-  $sth->execute;
-
   # shut up some warnings, but don't stomp on caller's state
   local $webvar{clonesrc} = 0 if !defined($webvar{clonesrc});
 
-  my @clonesrc;
-  while (my ($username,$uid) = $sth->fetchrow_array) {
-    my %row = (
-        username => $username,
-        uid => $uid,
-        selected => ($webvar{clonesrc} == $uid ? 1 : 0)
-        );
-    push @clonesrc, \%row;
-  }
-  $page->param(clonesrc => \@clonesrc);
+  my $clones = getUserDropdown($dbh, $curgroup, $webvar{clonesrc});
+  $page->param(clonesrc => $clones);
 }