[Pkg-ocaml-maint-commits] r6279 - in /trunk/tools/ocaml_transition_monitor: ocaml-status.css ocaml_transition_monitor.mll

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

Author: dogguy-guest
Date: Fri Feb 27 10:43:00 2009
New Revision: 6279

URL: http://svn.debian.org/wsvn/?sc=1&rev=6279
Log:
relooking

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml-status.css
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

Modified: trunk/tools/ocaml_transition_monitor/ocaml-status.css
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml-status.css?rev=6279&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml-status.css (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml-status.css Fri Feb 27 10:43:00 2009
@@ -19,6 +19,10 @@
 div.status table a {
   text-decoration: none;
 }
+div.status table {
+  padding: 0px;
+  border-spacing: 1px;
+}
 div.footer {
   margin-top: 2em;
   font-size: 60%;
@@ -36,7 +40,3 @@
   background: Cornsilk;
 }
 
-td {
-  border-style: solid;
-  border-width: 1px;
-}

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=6279&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Fri Feb 27 10:43:00 2009
@@ -222,6 +222,11 @@
       (fun (pkg, status) -> tr
          (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];
+            small [pcdata "[";
+                    a ~a:[a_href (uri_of_string ("http://buildd.debian.org/~luk/status/package.php?p="^pkg))]
+                      [pcdata "buildd"];
+                    pcdata "]"
+                   ];
              br ();
              small [
                pcdata "(";
@@ -229,14 +234,9 @@
                  [pcdata (sprintf "%s" ((M.find pkg sources_map).sversion))];
                pcdata ")";
              ];
-             br ();
-             small [pcdata "[";
-                    a ~a:[a_href (uri_of_string ("http://buildd.debian.org/~luk/status/package.php?p="^pkg))]
-                      [pcdata "buildd"];
-                    pcdata "]";
-                   ]])
+             ])
          ((*(td ~a:[a_class [string_of_status (source_status status)]] [pcdata ((M.find pkg sources_map).sversion)])
-          ::*)(List.map (fun x -> let x = string_of_status x in td ~a:[a_class [x]] [pcdata x]) status)))
+          ::*)(List.map (fun x -> let x = string_of_status x in td ~a:[a_class [x]] [small [pcdata x]]) status)))
       status
     in
     let summary = tablex
@@ -252,6 +252,7 @@
     let footer = [
       p [pcdata "Last generated: ";
          span ~a:[a_class ["timestamp"]] [pcdata date];
+         pcdata " (page currently rebuilt every 6 hours)";
          br ();
          pcdata "Contact: ";
          a_link "mailto:steph at glondu.net" "Stéphane Glondu";