Index: openacs-4/packages/imsld/www/activity-frame.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/activity-frame.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/activity-frame.adp 23 Mar 2006 16:24:44 -0000 1.2
+++ openacs-4/packages/imsld/www/activity-frame.adp 31 Mar 2006 14:36:50 -0000 1.3
@@ -2,8 +2,113 @@
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+
+<style type="text/css">
+
+/*Nav bar styles*/
+
+ul.nav,
+.nav ul{
+margin: 0;
+padding: 0;
+cursor: default;
+list-style-type: none;
+display: inline;
+}
+
+ul.nav{
+display: table;
+}
+
+ul.block{
+width: 100%;
+table-layout: fixed;
+}
+
+ul.nav>li{
+display: table-cell;
+position: relative;
+padding: 2px 6px;
+}
+/*
+ul.nav>li:hover{
+padding-right: 1px;
+}*/
+
+ul.nav li>ul{
+display: none;
+position: absolute;
+max-width: 40ex;
+margin-left: -6px;
+margin-top: 2px;
+}
+
+ul.nav li:hover>ul{
+display : block;
+}
+
+.nav ul li a{
+display: block;
+padding: 2px 10px;
+}
+
+/*Menu styles*/
+
+ul.nav,
+.nav ul,
+.nav ul li a{
+background-color: #fff;
+color: #369;
+}
+
+ul.nav li:hover,
+.nav ul li a:hover{
+background-color: #369;
+color: #fff;
+}
+
+ul.nav li:active,
+.nav ul li a:active{
+background-color: #036;
+color: #fff;
+}
+
+ul.nav,
+.nav ul{
+border: 1px solid #369;
+}
+
+.nav a{
+text-decoration: none;
+}
+
+</style>
+
</head>
<body>
-@activities_list;noquote@
+
+@activities;noquote@
+
+<object data="index" type="text/html" id="object"></object>
+<!-- <iframe id="object"> -->
+
+<a href="#" onClick="objecturl('..')">hola</a>
</body>
+<script type="text/javascript">
+function resizeobject() {
+f = document.forms[0];
+o = document.getElementById('object');
+o.height = window.innerHeight - o.style.top - 50;
+o.width = window.innerWidth - o.style.left - 30;
+}
+window.onload = resizeobject;
+window.onresize = resizeobject;
+
+function objecturl(url1) {
+o = document.getElementById('object');
+o.data = url1;
+}
+
+</script>
+
</html>
Index: openacs-4/packages/imsld/www/activity-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/activity-frame.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/activity-frame.tcl 30 Mar 2006 17:30:31 -0000 1.2
+++ openacs-4/packages/imsld/www/activity-frame.tcl 31 Mar 2006 14:36:50 -0000 1.3
@@ -12,11 +12,12 @@
dom createDocument ul doc
set dom_root [$doc documentElement]
+$dom_root setAttribute class "nav"
set activity_item_id [content::revision::item_id -revision_id $activity_id]
imsld::process_activity_as_ul -activity_item_id $activity_item_id -dom_doc $doc -dom_node $dom_root
-set activities_list [$dom_root asXML]
+set activities [$dom_root asXML]
set page_title {}
set context [list]
Index: openacs-4/packages/imsld/www/environment-frame.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/environment-frame.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/environment-frame.adp 31 Mar 2006 14:36:50 -0000 1.1
@@ -0,0 +1,12 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+ <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+</head>
+<body>
+
+@environments;noquote@
+
+</body>
+
+</html>
Index: openacs-4/packages/imsld/www/environment-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/environment-frame.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/environment-frame.tcl 31 Mar 2006 14:36:50 -0000 1.1
@@ -0,0 +1,34 @@
+ad_page_contract {
+
+ This is the frame that contains the associated URLs of an environment
+
+ @author Eduardo P�rez Ureta <eduardo.perez@uc3m.es>
+ @creation-date 2006-03-03
+} -query {
+ activity_id:integer,notnull
+}
+
+set user_id [ad_conn user_id]
+
+dom createDocument ul doc
+set dom_root [$doc documentElement]
+
+set environments_node_ul [$doc createElement ul]
+set environments_node_li [$doc createElement li]
+set text [$doc createTextNode "Environments"]
+$environments_node_li appendChild $text
+set environments_node [$doc createElement ul]
+# FIX-ME: if the ul is empty, the browser shows the ul incorrectly
+
+set activity_item_id [content::revision::item_id -revision_id $activity_id]
+
+imsld::process_activity_environments_as_ul -activity_item_id $activity_item_id \
+ -dom_node $environments_node \
+ -dom_doc $doc
+
+$environments_node_ul appendChild $environments_node_li
+$environments_node_ul appendChild $environments_node
+set environments [$environments_node_ul asXML]
+
+set page_title {}
+set context [list]
Index: openacs-4/packages/imsld/www/imsld-frameset.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/Attic/imsld-frameset.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/imsld-frameset.adp 22 Mar 2006 15:26:37 -0000 1.2
+++ openacs-4/packages/imsld/www/imsld-frameset.adp 31 Mar 2006 14:36:50 -0000 1.3
@@ -10,6 +10,6 @@
<frame src="imsld-tree?imsld_id=@imsld_id@" name="toc">
<frame src="" name="info">
</frameset>
- <frame src="" name="content">
+ <frame src="" name="content" scrolling="no" frameborder=0>
</frameset>
</html>