Index: trunk/cgi-bin/IPDB.pm
===================================================================
--- trunk/cgi-bin/IPDB.pm	(revision 936)
+++ trunk/cgi-bin/IPDB.pm	(revision 937)
@@ -3572,9 +3572,12 @@
 ## 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()