- adding new files for common results display

webtools/litmus/common_results.cgi

@@ -0,0 +1,92 @@
+#!/usr/bin/perl -w
+# -*- mode: cperl; c-basic-offset: 8; indent-tabs-mode: nil; -*-
+
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is Litmus.
+#
+# The Initial Developer of the Original Code is
+# the Mozilla Corporation.
+# Portions created by the Initial Developer are Copyright (C) 2005
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#   Chris Cooper <ccooper@deadsquid.com>
+#   Zach Lipton <zach@zachlipton.com>
+#
+# ***** END LICENSE BLOCK *****
+
+use strict;
+$|++;
+
+use Litmus;
+use Litmus::Auth;
+use Litmus::Error;
+use Litmus::DB::Testresult;
+use Litmus::FormWidget;
+use diagnostics;
+
+use CGI;
+use Time::Piece::MySQL;
+
+
+my $c = new CGI;
+print $c->header();
+
+my $results;
+if ($c->param and $c->param('status')) {
+  if ($c->param('status') =~ /pass/i or
+      $c->param('status') =~ /fail/i or
+      $c->param('status') =~ /unclear/i) {
+    $results = Litmus::DB::Testresult->getCommonResults($c->param('status'));
+  } else {
+    internalError("You must provide a valid status type: pass|fail|unclear");
+    exit 1;
+  }                                                      
+} else {
+  internalError("You must provide a status type: pass|fail|unclear");
+  exit 1;
+}
+
+my $title;
+if ($c->param('status') eq 'pass') {
+  $title = "Most Commonly Passed Testcases";
+} elsif ($c->param('status') eq 'fail') {
+  $title = "Most Common Failures";
+} elsif ($c->param('status') eq 'unclear') {
+  $title = "Most Frequently Unclear";
+} 
+
+my $vars = {
+            title => $title,
+            status => $c->param('status'),
+           };
+
+# Only include results if we have them.
+if ($results and scalar @$results > 0) {
+    $vars->{results} = $results;
+}
+
+$vars->{"defaultemail"} = Litmus::Auth::getCookie();
+
+Litmus->template()->process("reporting/common_results.tmpl", $vars) ||
+  internalError(Litmus->template()->error());
+
+exit 0;
+
+
+
+
+
+

webtools/litmus/templates/en/default/reporting/common_results.tmpl

@@ -0,0 +1,18 @@
+[% INCLUDE global/html_header.tmpl includeselects=1 %]
+[% INCLUDE global/litmus_header.tmpl %]
+
+<div id="page">
+
+[% INCLUDE sidebar/sidebar.tmpl %]
+
+  <div id="content">
+
+    <h1 class="firstHeading">[% title %]</h1>
+    [% INCLUDE reporting/common_results_table.tmpl %]
+
+  </div> <!--END content-->
+
+</div> <!--END page-->
+
+[% INCLUDE global/litmus_footer.tmpl %]
+[% INCLUDE global/html_footer.tmpl %]

webtools/litmus/templates/en/default/reporting/common_results_table.tmpl

@@ -0,0 +1,31 @@
+<table class="test-results">
+  <tr>
+    <td class="header"># of Results</td>
+    <td class="header">Testcase ID#</td>
+    <td class="header">Summary</td>
+    <td class="header">Most Recent Result</td>
+  </tr>
+<tr>
+
+[% IF results %]
+  [% FOREACH result=results %]
+<tr class="[% status %]">
+  <td align="center"><a href="search_results.cgi?order_by_created=DESC&amp;result_status=[% status %]&amp;test_id=[% result.test_id %]">[% result.num_results %]</a></td>
+  <td align="center"><a href="show_test.cgi?id=[% result.test_id %]">[% result.test_id %]</a></td>
+  <td align="left">[% result.summary %]</td>
+  <td align="center"><a href="single_result.cgi?id=[% result.max_id %]">[% result.most_recent %]</a></td>
+</tr>
+  [% END %]
+[% ELSE %]
+  <tr>
+    <td class="no-results" colspan="4">No test results match the search criteria.</td>
+  </tr>
+[% END %]
+
+</table>
+</form>
+
+
+
+
+