Changeset 28719 for trunk/tools/czartool/Gpc1Db.pm

Timestamp:

Jul 27, 2010, 2:42:17 PM (16 years ago)

Author:

rhenders

Message:

Loads of stuff

File:

• trunk/tools/czartool/Gpc1Db.pm (modified) (1 diff)

trunk/tools/czartool/Gpc1Db.pm

@@ -73 +73 @@
 ###########################################################################
 #
+# Returns priority for this label
+#
+###########################################################################
+sub getPriority {
+    my ($self, $label) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT priority 
+        FROM Label 
+        WHERE label LIKE '$label' 
+SQL
+
+        $query->execute;
+    my $priority = scalar $query->fetchrow_array();
+    if (!$priority) {return 50000;} # assume labels not given priority in gpc1 Db have highest priority
+    return $priority;
+}
+
+###########################################################################
+#
 # Returns count of exposures with this state for this label
 #