]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/on-line/html/theory/control.html
ocaml 3.09 transition
[helm.git] / helm / on-line / html / theory / control.html
index 637c563da4f4f832a78d140152931379d3d16ac2..b855a6a842086991ff7af39c038eec50bed19ed6 100644 (file)
@@ -12,22 +12,43 @@ td.back { background-color: #e6e6fa; color: brown }
 #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">
  <div class="center">
- <img src="http://helm.cs.unibo.it/helm/icons/section.png" />
- <h2><subst:base_CICURI/></h2>
+ <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">
-  <a href="http://helm.cs.unibo.it">HELM home</a>
+   <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>