Changeset 530 for trunk/cgi-bin/IPDB.pm

Timestamp:

10/25/12 17:59:15 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move most SQL for node handling into IPDB.pm. See #34.
Tweak "new assignment" and "edit block" templates a little to match
and for consistency.

File:

• trunk/cgi-bin/IPDB.pm (modified) (3 diffs)

trunk/cgi-bin/IPDB.pm

@@ -31 +31 @@
         &getParent &getRoutedCity
         &allocateBlock &deleteBlock &getBlockData
-        &getNodeList
+        &getNodeList &getNodeName &getNodeInfo
         &mailNotify
         );
@@ -45 +45 @@
                 &getParent &getRoutedCity
                 &allocateBlock &deleteBlock &getBlockData
-                &getNodeList
+                &getNodeList &getNodeName &getNodeInfo
                 &mailNotify
                 )]
@@ -1057 +1057 @@
 
 
+## IPDB::getNodeName()
+# Get node name from the ID
+sub getNodeName {
+  my $dbh = shift;
+  my $nid = shift;
+
+  my ($nname) = $dbh->selectrow_array("SELECT node_name FROM nodes WHERE node_id = ?", undef, ($nid) );
+  return $nname;
+} # end getNodeName()
+
+
+## IPDB::getNodeInfo()
+# Get node name and ID associated with a block
+sub getNodeInfo {
+  my $dbh = shift;
+  my $block = shift;
+
+  my ($nid, $nname) = $dbh->selectrow_array("SELECT nodes.node_id,node_name FROM nodes INNER JOIN noderef".
+        " ON nodes.node_id=noderef.node_id WHERE noderef.block = ?", undef, ($block) );
+  return ($nid, $nname);
+} # end getNodeInfo()
+
+
 ## IPDB::mailNotify()
 # Sends notification mail to recipients regarding an IPDB operation