+
+
+
Index: openacs-4/packages/latest/www/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/menu.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/latest/www/menu.tcl 13 Jul 2006 03:16:39 -0000 1.1
@@ -0,0 +1,60 @@
+# /lastest/www/menu.tcl
+ad_page_contract {
+ Left Menu
+ @author Hector Amado (hr_amado@viaro.net)
+ @creation-date 24-03-2006
+
+} {
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_maybe_redirect_for_registration]
+
+# Communities that I belong to
+db_multirow -extend {} communities select_communities "
+ select dotlrn_communities_all.community_id,
+ dotlrn_community__url(dotlrn_communities_all.community_id) as url,
+ pretty_name
+ from
+ dotlrn_communities_all, dotlrn_member_rels_approved
+ where
+ dotlrn_communities_all.community_id = dotlrn_member_rels_approved.community_id and
+ dotlrn_member_rels_approved.user_id = :user_id and archived_p='f'
+" {
+}
+
+# List of pkg_ids
+set communities_list [db_list communities_all_select "
+ select dotlrn_communities_all.package_id
+ from
+ dotlrn_communities_all, dotlrn_member_rels_approved
+ where
+ dotlrn_communities_all.community_id = dotlrn_member_rels_approved.community_id and
+ dotlrn_member_rels_approved.user_id = :user_id and archived_p='f'
+"]
+
+
+set packages_names [list]
+set objects [list]
+set packages [list]
+
+foreach community $communities_list {
+ set snode [site_node::get_node_id_from_object_id -object_id $community]
+ foreach package [site_node::get_children -all -node_id $snode -element package_id] {
+ if {![empty_string_p $package] } {
+ lappend packages $package
+ }
+ }
+}
+
+
+if {![llength $packages] == 0 } {
+ set pkgs_ids [join $packages ,]
+ latest::forums -pkgs_ids $pkgs_ids
+ latest::fs -pkgs_ids $pkgs_ids
+ latest::asm -pkgs_ids $pkgs_ids
+ latest::lors -pkgs_ids $pkgs_ids
+}
+
Index: openacs-4/packages/latest/www/navigator.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/navigator.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/latest/www/navigator.adp 13 Jul 2006 03:16:39 -0000 1.1
@@ -0,0 +1,10 @@
+
+
+ Navitator Viaro-Latest
+
+
+Select an activity type that you want to see the latest information.
+Navigator Viaro-Latest
+
+
+
Index: openacs-4/packages/latest/www/resources/contents_bg.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/resources/contents_bg.gif,v
diff -u -N
Binary files differ
Index: openacs-4/packages/latest/www/resources/ico_collapse.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/resources/ico_collapse.gif,v
diff -u -N
Binary files differ
Index: openacs-4/packages/latest/www/resources/ico_expand.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/resources/ico_expand.gif,v
diff -u -N
Binary files differ
Index: openacs-4/packages/latest/www/resources/ico_hide.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/resources/ico_hide.gif,v
diff -u -N
Binary files differ
Index: openacs-4/packages/latest/www/resources/ico_show.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/resources/ico_show.gif,v
diff -u -N
Binary files differ
Index: openacs-4/packages/latest/www/resources/mktree.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/resources/mktree.js,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/latest/www/resources/mktree.js 13 Jul 2006 03:16:43 -0000 1.1
@@ -0,0 +1,258 @@
+// JavaScript Document
+// ===================================================================
+// Author: Matt Kruse
+// WWW: http://www.mattkruse.com/
+//
+// NOTICE: Matt kindly gave OpenACS permission to incorporate his code.
+// Details are here: http://openacs.org/forums/message-view?message_id=284521
+// I'm leaving in his original notice below. AG.
+//
+// NOTICE: You may use this code for any purpose, commercial or
+// private, without any further permission from the author. You may
+// remove this notice from your final code if you wish, however it is
+// appreciated by the author if at least my web site address is kept.
+//
+// You may *NOT* re-distribute this code in any way except through its
+// use. That means, you can include it in your product, or your web
+// site, or any other form where the code is actually being used. You
+// may not put the plain javascript up on your site for download or
+// include it in your javascript libraries for download.
+// If you wish to share this code with others, please just point them
+// to the URL instead.
+// Please DO NOT link directly to my .js files from your site. Copy
+// the files to your server and use them there. Thank you.
+// ===================================================================
+
+// HISTORY
+// ------------------------------------------------------------------
+// December 9, 2003: Added script to the Javascript Toolbox
+// December 10, 2003: Added the preProcessTrees variable to allow user
+// to turn off automatic conversion of UL's onLoad
+// March 1, 2004: Changed it so if a
has a class already attached
+// to it, that class won't be erased when initialized. This allows
+// you to set the state of the tree when painting the page simply
+// by setting some
's class name as being "liOpen" (see example)
+// March 29, 2005: Added cookie-managed state (AG).
+/*
+This code is inspired by and extended from Stuart Langridge's aqlist code:
+ http://www.kryogenix.org/code/browser/aqlists/
+ Stuart Langridge, November 2002
+ sil@kryogenix.org
+ Inspired by Aaron's labels.js (http://youngpup.net/demos/labels/)
+ and Dave Lindquist's menuDropDown.js (http://www.gazingus.org/dhtml/?id=109)
+*/
+
+// Automatically attach a listener to the window onload, to convert the trees
+addEvent(window,"load",convertTrees);
+
+// Utility function to add an event listener
+function addEvent(o,e,f){
+ if (o.addEventListener){ o.addEventListener(e,f,true); return true; }
+ else if (o.attachEvent){ return o.attachEvent("on"+e,f); }
+ else { return false; }
+}
+
+// utility function to set a global variable if it is not already set
+function setDefault(name,val) {
+ if (typeof(window[name])=="undefined" || window[name]==null) {
+ window[name]=val;
+ }
+}
+
+// Full expands a tree with a given ID
+function expandTree(treeId) {
+ var ul = document.getElementById(treeId);
+ if (ul == null) { return false; }
+ expandCollapseList(ul,nodeOpenClass);
+}
+
+// Fully collapses a tree with a given ID
+function collapseTree(treeId) {
+ var ul = document.getElementById(treeId);
+ if (ul == null) { return false; }
+ expandCollapseList(ul,nodeClosedClass);
+}
+
+// Expands enough nodes to expose an LI with a given ID
+function expandToItem(treeId,itemId) {
+ var ul = document.getElementById(treeId);
+ if (ul == null) { return false; }
+ var ret = expandCollapseList(ul,nodeOpenClass,itemId);
+ if (ret) {
+ var o = document.getElementById(itemId);
+ if (o.scrollIntoView) {
+ o.scrollIntoView(false);
+ }
+ }
+}
+
+// Performs 3 functions:
+// a) Expand all nodes
+// b) Collapse all nodes
+// c) Expand all nodes to reach a certain ID
+function expandCollapseList(ul,cName,itemId) {
+ if (!ul.childNodes || ul.childNodes.length==0) { return false; }
+ // Iterate LIs
+ for (var itemi=0;itemi