[Pkg-ocaml-maint-commits] r6294 - /trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

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

Author: glondu-guest
Date: Sat Feb 28 23:21:43 2009
New Revision: 6294

URL: http://svn.debian.org/wsvn/?sc=1&rev=6294
Log:
Add tooltips with build dependencies on links to PTS

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

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=6294&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Sat Feb 28 23:21:43 2009
@@ -323,7 +323,8 @@
            (fun accu bin -> M.add bin src accu)
            accu spkg.sbins)
       sources_map M.empty in
-    let sections = topo_split (dep_graph sources_map src_of_bin) in
+    let dgraph = dep_graph sources_map src_of_bin in
+    let sections = topo_split dgraph in
     let status pkg = List.map
       (fun x ->
          try if M.find pkg x then Up_to_date else Outdated
@@ -332,11 +333,18 @@
     let format_section_body section = List.map
       (fun (pkg, status) -> tr
          (td ~a:[a_class [(class_of_status (source_status status))^" src"]; a_id pkg]
-            [a_link ("http://packages.qa.debian.org/"^pkg) pkg;
-             small [pcdata " [ ";
-                    a_link ("http://buildd.debian.org/~luk/status/package.php?p="^pkg) "buildd";
-                    pcdata " ] "
-                   ];
+            [a ~a:[a_href (uri_of_string ("http://packages.qa.debian.org/"^pkg));
+                   a_title
+                     (let deps = S.elements (M.find pkg dgraph) in
+                      if deps <> [] then
+                        "dependencies: "^(String.concat ", " deps)
+                      else
+                        "no dependencies")] [pcdata pkg];
+             small [
+               pcdata " [ ";
+               a_link ("http://buildd.debian.org/~luk/status/package.php?p="^pkg) "buildd";
+               pcdata " ] "
+             ];
              small [
                pcdata " ( ";
                a_link