Index: /trunk/tools/czartool/Pantasks.pm
===================================================================
--- /trunk/tools/czartool/Pantasks.pm	(revision 28843)
+++ /trunk/tools/czartool/Pantasks.pm	(revision 28844)
@@ -5,5 +5,4 @@
 
 package czartool::Pantasks;
-
 
 my @servers = (
@@ -23,16 +22,5 @@
 ###########################################################################
 #
-# Returns the server list as an array 
-#
-###########################################################################
-sub getServerList {
-    my ($self) = @_;
-
-    return \@servers;
-}
-
-###########################################################################
-#
-# Constructor
+# Constructor TODO put in check that we can run pantasks_client
 #
 ###########################################################################
@@ -43,4 +31,15 @@
     bless $self, $class;
     return $self;
+}
+
+###########################################################################
+#
+# Returns the server list as an array 
+#
+###########################################################################
+sub getServerList {
+    my ($self) = @_;
+
+    return \@servers;
 }
 
@@ -56,5 +55,4 @@
     return "stdscience";
 }
-
 
 ###########################################################################
@@ -173,3 +171,3 @@
     }
 }
-
+1;