Minor adjustments

[buildfarm-server.git] / cgi-bin / show_status.pl

diff --git a/cgi-bin/show_status.pl b/cgi-bin/show_status.pl
index e1a6ef6dd73ca2cab91ef9b5bc32f9c38fbe04d1..ac947c887b3e0de1adb2d32c6c247d547d2fce10 100755 (executable)
--- a/cgi-bin/show_status.pl
+++ b/cgi-bin/show_status.pl
@@ -1,5 +1,13 @@
 #!/usr/bin/perl
 
+=comment
+
+Copyright (c) 2003-2010, Andrew Dunstan
+
+See accompanying License file for license details
+
+=cut 
+
 use strict;
 use DBI;
 use Template;
@@ -34,14 +42,15 @@ elsif ($sortby eq 'compiler')
        $sort_clause = "lower(compiler), compiler_version,";
 }
 
-my $db = DBI->connect($dsn,$dbuser,$dbpass) or die("$dsn,$dbuser,$dbpass,$!");
+my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0}) 
+    or die("$dsn,$dbuser,$dbpass,$!");
 
 my $statement =<<EOS;
 
 
   select timezone('GMT'::text, now())::timestamp(0) without time zone - b.snapshot AS when_ago, b.*
   from dashboard_mat b
-  order by branch = 'HEAD' desc,
+  order by branch = 'master' desc,
         branch desc, $sort_clause 
         snapshot desc