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 7d5f6c13b9a3578bc6490af771e64b4e705c4ae9..b855a6a842086991ff7af39c038eec50bed19ed6 100644 (file)
--- a/helm/on-line/html/theory/control.html
+++ b/helm/on-line/html/theory/control.html
@@ -10,18 +10,47 @@ 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 }
-h2     { 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">
- <h2><subst:base_CICURI/></h2>
+ <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>
@@ -30,15 +59,6 @@ li   { padding-bottom: 1ex }
       </script>
     </li>
   </ul>
-<!--
-  <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>
  -->
  </body>
  </html>