[Pkg-ocaml-maint-commits] r6348 - in /trunk/tools/ocaml_transition_monitor: ocaml_transition_monitor.js ocaml_transition_monitor.mll

[glondu-guest at users.alioth.debian.org]

Author: glondu-guest
Date: Wed Mar 18 15:50:33 2009
New Revision: 6348

URL: http://svn.debian.org/wsvn/?sc=1&rev=6348
Log:
Do not show headers of empty rounds

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js?rev=6348&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js Wed Mar 18 15:50:33 2009
@@ -26,6 +26,13 @@
     } else {
         $(".src").filter(".unknown").parent().hide();
     }
+    for (i = 0; i < nb_rounds; i++) {
+        if ($(".round"+i).filter(":visible").length > 0) {
+            $("#header"+i).show();
+        } else {
+            $("#header"+i).hide();
+        }
+    }
     $("#count").html(" ("+$(".src").filter(":visible").length+")");
 };
 

Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?rev=6348&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Wed Mar 18 15:50:33 2009
@@ -393,9 +393,11 @@
       let a_link href contents =
         a ~a:[a_href (uri_of_string href)] [pcdata contents]
 
-      let format_package pkg = tr
+      let format_package i pkg = tr
         (td
-           ~a:[a_class [(class_of_status (M.find pkg summary_status))^" src"]; a_id pkg]
+           ~a:[a_class [class_of_status (M.find pkg summary_status);
+                        "src";
+                        sprintf "round%d" i]; a_id pkg]
            [a
               ~a:[a_href (uri_of_string ("http://packages.qa.debian.org/"^pkg));
                   a_title
@@ -408,7 +410,7 @@
               [pcdata pkg];
             small [
               pcdata " [ ";
-              a_link ("https://buildd.debian.org/pkg.cgi?pkg="^pkg) "buildd";
+              a_link ("https://buildd.debian.org/~luk/status/package.php?p="^pkg) "buildd";
               pcdata " ] "
             ];
             small [
@@ -426,12 +428,12 @@
            (M.find pkg sources_status))
 
       let format_section i section =
-        let thead = tr
+        let thead = tr ~a:[a_id (sprintf "header%d" i)]
           (th [pcdata "source ";
                small [pcdata (sprintf " (round %d)" i)];
               ])
           (List.map (fun arch -> th [small [pcdata arch]]) architectures) in
-        thead::(List.map format_package section)
+        thead::(List.map (format_package i) section)
 
       let summary_contents = List.fold_left
         (fun accu section -> section at accu)
@@ -460,9 +462,14 @@
            pcdata ", from which I shamelessly copied this page's CSS.";
           ]]
 
+      let nb_columns = List.length architectures + 1
+      let nb_rounds = List.length sections
+      let init_js = sprintf "var nb_columns = %d; var nb_rounds = %d;" nb_columns nb_rounds
+
       let html = html ~a:[a_xmlns `W3_org_1999_xhtml]
         (head (title (pcdata page_title))
            [link ~a:[a_rel [`Stylesheet]; a_href (uri_of_string (basename^".css"))] ();
+            script ~contenttype:"text/javascript" (pcdata init_js);
             script ~contenttype:"text/javascript" ~a:[a_src (uri_of_string "http://code.jquery.com/jquery-latest.js")] (pcdata "");
             script ~contenttype:"text/javascript" ~a:[a_src (uri_of_string (basename^".js"))] (pcdata "");
 	    meta ~content:"text/html;charset=utf-8" ~a:[a_http_equiv "Content-Type"] ();