Changeset 937 for trunk/cgi-bin

Timestamp:

12/23/22 12:47:58 (23 months ago)

Author:

Kris Deugau

Message:

/trunk

Update getNodeList() for pending reporting widget

File:

• trunk/cgi-bin/IPDB.pm (modified) (1 diff)

trunk/cgi-bin/IPDB.pm

@@ -3572 +3572 @@
 ## IPDB::getNodeList()
 # Gets a list of node ID+name pairs as an arrayref to a list of hashrefs
+# Takes an optional argument to flag a selected node for dropdown lists
 sub getNodeList {
   my $dbh = shift;
+  my $sel = shift || 0;
   
-  my $ret = $dbh->selectall_arrayref("SELECT node_id, node_name FROM nodes ORDER BY node_type,node_id",
-        { Slice => {} });
+  my $ret = $dbh->selectall_arrayref("SELECT node_id, node_name, node_id=? AS selected FROM nodes".
+        " ORDER BY node_name,node_type,node_id",
+        { Slice => {} }, ($sel) );
   return $ret;
 } # end getNodeList()