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

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

Author: dogguy-guest
Date: Fri Feb 27 15:10:22 2009
New Revision: 6281

URL: http://svn.debian.org/wsvn/?sc=1&rev=6281
Log:
Set charset to utf8, using utf8 characters for the status

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=6281&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Fri Feb 27 15:10:22 2009
@@ -44,6 +44,10 @@
 
   type status = Unknown | Up_to_date | Outdated
   let string_of_status = function
+    | Unknown -> " "
+    | Up_to_date -> "✔"
+    | Outdated -> "✘"
+  let class_of_status = function
     | Unknown -> "unknown"
     | Up_to_date -> "good"
     | Outdated -> "bad"
@@ -220,27 +224,27 @@
     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"]; a_id pkg]
+         (td ~a:[a_class [(class_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 "(";
-               a ~a:[a_href (uri_of_string ("http://packages.debian.org/changelogs/pool/main/"^(String.sub pkg 0 1)^"/"^pkg^"/current/changelog"))]
-                 [pcdata (sprintf "%s" ((M.find pkg sources_map).sversion))];
-               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]] [small [pcdata x]]) status)))
+            small [
+              pcdata "(";
+              a ~a:[a_href (uri_of_string ("http://packages.debian.org/changelogs/pool/main/"^(String.sub pkg 0 1)^"/"^pkg^"/current/changelog"))]
+                [pcdata (sprintf "%s" ((M.find pkg sources_map).sversion))];
+              pcdata ")";
+            ];
+            ])
+         (List.map (fun x ->
+		      let x = class_of_status x and xx = string_of_status x
+		      in td ~a:[a_class [x]] [small [pcdata xx]]) status))
       status
     in
     let summary = tablex
-      ~thead:(thead (tr (th [pcdata "source"; span ~a:[a_id "count"] []]) (List.map (fun arch -> th [pcdata arch]) architectures)) [])
+      ~thead:(thead (tr (th [pcdata "source"; span ~a:[a_id "count"] []]) (List.map (fun arch -> th [small [pcdata arch]]) architectures)) [])
       (match all_sources with x::xs -> tbody x xs | _ -> invalid_arg "there must be at least one package")
       []
     in
@@ -275,6 +279,7 @@
          [link ~a:[a_rel [`Stylesheet]; a_href (uri_of_string "ocaml-status.css")] ();
           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 "ocaml_transition_monitor.js")] (pcdata "");
+	  meta ~content:"text/html;charset=utf-8" ~a:[a_http_equiv "Content-Type"] ();
          ])
       (body [h1 [pcdata page_title];
              div