Index: trunk/tools/czartool/CzarDb.pm
===================================================================
--- trunk/tools/czartool/CzarDb.pm	(revision 28715)
+++ trunk/tools/czartool/CzarDb.pm	(revision 28719)
@@ -72,4 +72,23 @@
        $query->execute;
 }
+
+###########################################################################
+#
+# Sets priority for this label
+#
+###########################################################################
+sub setLabelPriority {
+    my ($self, $label, $priority) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+     UPDATE current_labels 
+         SET priority = $priority 
+         WHERE label LIKE '$label' 
+         AND server LIKE 'stdscience';
+SQL
+
+    $query->execute;
+}
+
 ###########################################################################
 #
@@ -79,4 +98,7 @@
 sub updateCurrentLabels {
     my ($self, $server, $labels) = @_;
+
+    my $size = scalar @{$labels};
+    if ($size < 1) {return;}
 
     my $query = $self->{_db}->prepare(<<SQL);
@@ -181,4 +203,5 @@
 
         my ($timestamp, $pending, $faults, $processed) = @row;
+    #    print  "'$timestamp' '$pending' '$faults' '$processed'\n";
         print $tempFile "$timestamp $pending $faults $processed\n";
     }
@@ -298,5 +321,5 @@
 
     my $currentRevision = -1;
-    my $latestRevision = 6;
+    my $latestRevision = 7;
 
     while ($currentRevision != $latestRevision) {
@@ -311,4 +334,5 @@
         elsif ($currentRevision == 4) {$self->createRevision_5();}
         elsif ($currentRevision == 5) {$self->createRevision_6();}
+        elsif ($currentRevision == 6) {$self->createRevision_7();}
     }
 }
@@ -476,4 +500,24 @@
 #######################################################################################
 # 
+# Create revision 7 of the database 
+#
+#######################################################################################
+sub createRevision_7 {
+    my ($self) = @_;
+
+    print "* Creating revision 7 of '$self->{_dbName}'\n";
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    ALTER TABLE current_labels 
+        ADD COLUMN priority INT NOT NULL DEFAULT 0;
+SQL
+
+    $query->execute;
+
+    $self->setRevision(7);
+}
+
+#######################################################################################
+# 
 # Sets current revision of ippToPsps database
 #