Changeset 28715 for trunk/tools/czartool/CzarDb.pm

Timestamp:

Jul 26, 2010, 12:06:32 PM (16 years ago)

Author:

rhenders

Message:

Checking for Db server error when grabbing labels

File:

• trunk/tools/czartool/CzarDb.pm (modified) (2 diffs)

trunk/tools/czartool/CzarDb.pm

@@ -34 +34 @@
 ###########################################################################
 sub getCurrentLabels {
-    my ($self, $server) = @_;
+    my ($self, $server, $labels) = @_;
 
     my $query = $self->{_db}->prepare(<<SQL);
@@ -43 +43 @@
 SQL
 
-    $query->execute;
-
-    return $query->fetchall_arrayref();
+
+    if (!$query->execute) {
+
+        print "WARNING: getCurrentLabels() failed\n";
+        return 0;
+    }
+
+    ${$labels} = $query->fetchall_arrayref();
+
+    return 1;
 }