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

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

Author: dogguy-guest
Date: Thu Feb 26 21:11:20 2009
New Revision: 6268

URL: http://svn.debian.org/wsvn/?sc=1&rev=6268
Log:
Disable unknown by default and add id field for source cell

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=6268&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.js Thu Feb 26 21:11:20 2009
@@ -17,5 +17,6 @@
   $("#good").click(function () { $(".src").filter(".good").parent().toggle(); update(); });
   $("#bad").click(function () { $(".src").filter(".bad").parent().toggle(); update(); });
   $("#unknown").click(function () { $(".src").filter(".unknown").parent().toggle(); update(); });
+  $(".src").filter(".unknown").parent().hide();
   update();
 });

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=6268&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Thu Feb 26 21:11:20 2009
@@ -220,7 +220,7 @@
     let status = List.map (fun pkg -> (pkg, status pkg)) all_sources in
     let all_sources = List.map
       (fun (pkg, status) -> tr
-         (td ~a:[a_class [(string_of_status (source_status status))^" src"]]
+         (td ~a:[a_class [(string_of_status (source_status status))^" src"]; a_id pkg]
             [a ~a:[a_href (uri_of_string ("http://packages.qa.debian.org/"^pkg))] [pcdata pkg];
              br ();
              small [pcdata (sprintf "(%s)" ((M.find pkg sources_map).sversion))];
@@ -278,7 +278,7 @@
                  br ();
                  input ~a:[a_input_type `Checkbox; a_checked `Checked; a_id "bad"] (); pcdata "bad";
                  br ();
-                 input ~a:[a_input_type `Checkbox; a_checked `Checked; a_id "unknown"] (); pcdata "unknown";
+                 input ~a:[a_input_type `Checkbox; a_id "unknown"] (); pcdata "unknown";
                ];
              div ~a:[a_class ["status"]] [summary];
              div ~a:[a_class ["footer"]] footer])