ocaml 3.09 transition

[helm.git] / helm / on-line / html / theory / control.html
diff --git a/helm/on-line/html/theory/control.html b/helm/on-line/html/theory/control.html

index d399941914ad0ab383bc9f70007143785f3f9acc..b855a6a842086991ff7af39c038eec50bed19ed6 100644 (file)
--- a/helm/on-line/html/theory/control.html
+++ b/helm/on-line/html/theory/control.html
@@ -1,7 +1,8 @@
-<html>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
+"http://www.w3.org/TR/REC-html40/loose.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xmlns:subst="http://www.cs.unibo.it/helm/subst">
  
  <head>
-<title>???</title>
  
  <style type="text/css">
  #normal { background-color: #e6e6fa; font-family: sans-serif }
@@ -9,34 +10,55 @@ td.head { font-weight: bold; background-color: #e6e6fa; color: brown }
  td.back { background-color: #e6e6fa; color: brown }
  #indent { margin-left: 1cm; margin-right: 1cm }
  #centered { text-align: center }
+li     { padding-bottom: 1ex }
+div.center { text-align: center }
+h2.uri { margin-top: 0ex; margin-bottom: 0ex }
  </style>
  
-<script language="JavaScript" src="../../javascript/defaults.js"></script>
-<script language="JavaScript" src="../../javascript/utils.js"></script>
-<script language="JavaScript" src="../../javascript/control.js"></script>
+<script>
+ var interfaceURL = "<subst:interfaceURL/>";
+ var processorURL = "<subst:processorURL/>";
+ var profile = "<subst:profile/>";
+ var url = "<subst:url/>";
+</script>
  
  </head>
  
  <body id="normal">
- <h1>Theory: 
-  &quot;<script>document.write(extractParam(unescape(getParam('url')),'param.CICURI'))</script>&quot;
- &nbsp;&nbsp;&nbsp;<font size="+1">[Annotations have no meaning for theories, yet]</font>
- </h1>
- <table>
-  <tr>
-   <td>
-    View its metadata
-   </td>
-   <td>(Not implemented, yet. Coming soon.)</td>
-  </tr>
-  <tr>
-   <td>
-    Proof-check it
-   </td>
-   <td>
-    (Not ported to V7, yet. Coming soon.)
-   </td>
-  </tr>
- </table>
+ <div class="center">
+ <small>
+ User:
+   <uwobo:profileCtrlOptionList xmlns:uwobo="http://helm.cs.unibo.it/uwobo"
+    type="theory"/>
+ <br />
+ [<a href="http://helm.cs.unibo.it" target="_top">HELM home</a>]
+ <script>
+   document.write('[<a target="_top" href="' + processorURL +
+     'apply?keys=SPK&amp;param.processorURL=' + escape(processorURL) +
+     '&amp;param.profile=' + escape(profile) +
+     '&amp;xmluri=' + interfaceURL + 'html/configuration.html' +
+     '">configuration</a>]');
+ </script>
+ </small>
+ </div>
+ <hr />
+ <div class="center">
+   <script>
+     document.write('&lt;a target="result" style="color:black; text-decoration:none" href="' + url + '&amp;param.toplevel=true">');
+     document.write('<img style="border-style:none" src="' + interfaceURL + '/icons/theory.png" />');
+   </script>
+ <h2 class="uri"><subst:base_CICURI/></h2>
+  <script>document.write('&lt;/a>');</script>
+ </div>
+<!--
+ <ul>
+   <li>
+     <script>
+       var url = "<subst:url/>";
+       document.write('<a href="' + url + '" target="_blank">Open theory in new window</a>');
+     </script>
+   </li>
+ </ul>
+-->
  </body>
  </html>