+
+ @cat_tree;noquote@
+
+
+
+
+
+
+
Index: openacs-4/packages/content-portlet/misc/admin/category-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/misc/admin/category-view.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/misc/admin/category-view.tcl 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,168 @@
+#
+
+ad_page_contract {
+
+
+
+ @author byron Haroldo Linares Roman (bhlr@byronLs-Computer.local)
+ @creation-date 2007-08-24
+ @arch-tag: 9EFDF2BF-FE25-4238-8A63-2FFDB9C7BD31
+ @cvs-id $Id: category-view.tcl,v 1.1 2007/10/24 22:50:25 victorg Exp $
+} {
+ tree_id:optional
+ package_id:optional
+ {new_cat 0}
+ {parent_cat 0}
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set ah_sources [ah::js_sources]
+if {![exists_and_not_null tree_id] && [exists_and_not_null package_id]} {
+ set tree_id [lindex [lindex [category_tree::get_mapped_trees $package_id] 0] 0]
+}
+
+
+
+set user_id [ad_maybe_redirect_for_registration]
+set package_id [ad_conn package_id]
+permission::require_permission -object_id $tree_id -privilege category_tree_write
+
+set tree_list [category_tree::get_tree $tree_id]
+array set tree [category_tree::get_data $tree_id]
+set class "liClosed"
+
+set tmp_level 1
+set title "\#content-portlet.edit_index\#"
+set context_bar [list [_ content-portlet.edit_index]]
+set return_url [ad_return_url]
+set root_add_link "category-add-edit?tree_id=${tree_id}&name=Root&mode=3&return_url=$return_url"
+
+set level_1_tree ""
+set level_2_tree ""
+set level_list [list]
+set aux_level 0
+set my_tmp_level 0
+set inplaceeditor_js ""
+
+set msg_fade [ah::effects -element "msg_div" \
+ -effect "Fade" \
+ -options "duration: 1.5"]
+
+set msg_fade_0 [ah::effects -element "msg_div" \
+ -effect "Fade" \
+ -options "duration: 0"]
+
+set msg_appear [ah::effects -element "msg_div" \
+ -effect "Appear" \
+ -options "duration: 0.5"]
+
+set msg2_fade [ah::effects -element "msg_div2" \
+ -effect "Fade" \
+ -options "duration: 1.5"]
+
+set msg2_appear [ah::effects -element "msg_div2" \
+ -effect "Appear" \
+ -options "duration: 0.5"]
+
+set msg2_fade_0 [ah::effects -element "msg_div2" \
+ -effect "Fade" \
+ -options "duration: 0"]
+
+
+set cat_tree "
+
+
+
+
+
+
+ +#content-portlet.unit_descirption# +
+- $tree(tree_name)
+
+
-
+ [lindex $tree_level 1]
+
+
+
![\"editar\"](\"/resources/acs-subsite/Edit12.gif\" "\\"\#content-portlet.edit_name\#\\"")
"
+ if {[content_category::valid_level_and_count -tree_id $tree_id -category_id [lindex $tree_level 0]]} {
+ append level_${tmp_level}_tree "
+ ![\"Agregar\"](\"/resources/acs-subsite/Add12.gif\" "\\"\#content-portlet.add_section\#\\"")
"
+ }
+ if {[content_category::delete_p -tree_id $tree_id -category_id [lindex $tree_level 0]]} {
+ append level_${tmp_level}_tree "
+ ![\"Eliminar\"](\"/resources/acs-subsite/delete12.gif\" "\\"\#content-portlet.delete_section\#\\"")
"
+ }
+ append level_${tmp_level}_tree ""
+
+ #ns_log notice "estoy en nivel $tmp_level"
+}
+
+
+
+append level_${tmp_level}_tree " \n"
+set aux_level 2
+set my_tmp_level $tmp_level
+for {set i 1} {$i < [expr ($tmp_level - $aux_level) + 1]} {incr i} {
+ set aux2_level [lindex $level_list [expr [llength $level_list] - $i]]
+ eval "append level_${aux2_level}_tree \"\n
![](\"/resources/acs-subsite/Add16.gif\")
\#content-portlet.add_unit\#\n" + + +foreach tree_level $tree_list { + + if { $tmp_level < [lindex $tree_level 3]} { + #ns_log notice "paso a nivel superior de $tmp_level a [lindex $tree_level 3]" + lappend level_list "$tmp_level" + set tmp_level [lindex $tree_level 3] + } elseif {$tmp_level > [lindex $tree_level 3]} { + #ns_log notice "paso a nivel inferior de $tmp_level a [lindex $tree_level 3]" + append level_${tmp_level}_tree "\n" + set aux_level [lindex $tree_level 3] + set my_tmp_level $tmp_level + for {set i 1} {$i < [expr ($tmp_level - $aux_level) + 1]} {incr i} { + set aux2_level [lindex $level_list [expr [llength $level_list] - $i]] + eval "append level_${aux2_level}_tree \"\n
- \n\$level_${my_tmp_level}_tree
- \n\$level_${my_tmp_level}_tree\n
- \n\$level_${my_tmp_level}_tree
- \n$level_2_tree
+
+
+ 
+$my_tree_name
" + } + set categories [list] + set pos 0 + set cattree(0) [::xowiki::CatTree new -volatile -orderby pos -name $my_tree_name] + foreach category_info [category_tree::get_tree $tree_id] { + foreach {cid category_label deprecated_p level} $category_info {break} + set c [::xowiki::Category new -orderby pos -category_id $cid -package_id $package_id \ + -level $level -label $category_label -pos [incr pos]] + set cattree($level) $c + set plevel [expr {$level -1}] + $cattree($plevel) add $c + set category($cid) $c + lappend categories $cid + #set itemobj [Object new -set name en:index -set title MyTitle -set prefix "" -set suffix ""] + #$cattree(0) add_to_category -category $c -itemobj $itemobj -orderby title + } + + set sql "category_object_map c, cr_items ci, cr_revisions r, xowiki_page p \ + where c.object_id = ci.item_id and ci.parent_id = $folder_id \ + and ci.content_type not in ('::xowiki::PageTemplate') \ + and category_id in ([join $categories ,]) \ + and r.revision_id = ci.live_revision \ + and p.page_id = r.revision_id + and ci.name not in ('es:header_page','es:index','es:indexe')" + + if {$except_category_ids ne ""} { + append sql \ + " and not exists (select * from category_object_map c2 \ + where ci.item_id = c2.object_id \ + and c2.category_id in ($except_category_ids))" + } + ns_log notice "--c category_ids=$category_ids" + if {$category_ids ne ""} { + foreach cid [split $category_ids ,] { + append sql " and exists (select * from category_object_map \ + where object_id = ci.item_id and category_id = $cid)" + } + } + + if {$count} { + db_foreach get_counts \ + "select count(*) as nr,category_id from $sql group by category_id" { + $category($category_id) set count $nr + set s [expr {$summary ? "&summary=$summary" : ""}] + $category($category_id) href [ad_conn url]?category_id=$category_id$s + $category($category_id) open_tree + } + append content [$cattree(0) render -tree_style $tree_style] + } else { + db_foreach get_pages \ + "select ci.item_id, ci.name, ci.content_type, r.title, category_id, p.page_order from $sql" { + if {$title eq ""} {set title $name} + set itemobj [Object new] + set prefix "" + set suffix "" + foreach var {name title prefix page_order suffix} {$itemobj set $var [set $var]} + $cattree(0) add_to_category \ + -category $category($category_id) \ + -itemobj $itemobj \ + -orderby page_order \ + -open_item [expr {$item_id == $open_item_id}] + } + append content [$cattree(0) render -tree_style $tree_style] + } + } + return $content +} + +set link "" +if {![info exists name]} {set name "Categories"} +# TODO new style includelets, based on ::xo::cc +set summary [expr {[ns_conn isconnected] ? [ns_queryget summary 0]} : 0] +foreach _ {category_ids except_category_ids} { + if {![info exists $_]} { + # TODO new style includelets, based on ::xo::cc + set $_ [expr {[ns_conn isconnected] ? [ns_queryget $_ ""] : ""}] + } +} + +set content [::xowiki::Page __render_html \ + -package_id [$__including_page set package_id] \ + -tree_name [expr {[info exists tree_name] ? $tree_name : ""}] \ + -tree_style [expr {[info exists tree_style] ? $tree_style : 1}] \ + -no_tree_name [info exists no_tree_name] \ + -count [info exists count] \ + -summary $summary \ + -open_page [expr {[info exists open_page] ? $open_page : ""}] \ + -category_ids $category_ids \ + -except_category_ids $except_category_ids \ + ] + +if {![info exists skin]} {set skin portlet-skin} +if {![string match /* $skin]} {set skin [file dir $__adp_stub]/$skin} +template::set_file $skin + Index: openacs-4/packages/content-portlet/misc/www/ges-view.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/misc/www/ges-view.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/content-portlet/misc/www/ges-view.adp 24 Oct 2007 22:50:25 -0000 1.1 @@ -0,0 +1,174 @@ +
+
+ Categories: @per_object_categories_with_links;noquote@
+
+
+ #xowiki.edit# ·
+ #xowiki.revisions# ·
+
+
+ #xowiki.new# ·
+
+
+ #xowiki.new# ·
+
+
+ #xowiki.new# ·
+ #xowiki.delete# ·
+
+
+ @notification_image;noquote@ ·
+ #xowiki.edit_content_index# ·
+ #xowiki.index#
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 
+
+
+
+ 
+
+
+
+
+
+
+ @content;noquote@
+
+
+@footer;noquote@
+
+ 
+ 
del.icio.us
+
#general-comments.Comments# +
- @gc_comments;noquote@
@gc_link;noquote@
+
+
Index: openacs-4/packages/content-portlet/sql/postgresql/content-portlet-admin-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/sql/postgresql/content-portlet-admin-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/sql/postgresql/content-portlet-admin-drop.sql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,118 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- content-portlet-admin-drop.sql
+--
+
+-- Deletes a portal datasource for the static portlet factory
+-- (admin interface)
+
+-- Copyright (C) 2001 MIT
+-- @author Arjun Sanyal (arjun@openforce.net)
+
+-- $Id: content-portlet-admin-drop.sql,v 1.1 2007/10/24 22:50:25 victorg Exp $
+
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or higher. Full text of the license is available
+-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
+--
+-- PostGreSQL port samir@symphinity.com 11 July 2002
+--
+
+
+
+create function inline_1()
+returns integer as '
+declare
+ ds_id portal_datasources.datasource_id%TYPE;
+begin
+
+ select datasource_id into ds_id
+ from portal_datasources
+ where name = ''content_admin_portlet'';
+
+ if not found then
+ RAISE EXCEPTION '' No datasource id found '', ds_id;
+ ds_id := null;
+ end if;
+
+ if ds_id is NOT null then
+ perform portal_datasource__delete(ds_id);
+ end if;
+
+ -- drop the hooks
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''GetMyName''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''GetPrettyName''
+ );
+
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''Link''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''AddSelfToPage''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''Show''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''Edit''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''RemoveSelfFromPage''
+ );
+
+ -- Drop the binding
+ perform acs_sc_binding__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet''
+ );
+
+ -- drop the impl
+ perform acs_sc_impl__delete (
+ ''portal_datasource'',
+ ''content_admin_portlet''
+ );
+
+ return 0;
+end;' language 'plpgsql';
+
+select inline_1();
+drop function inline_1();
+
Index: openacs-4/packages/content-portlet/sql/postgresql/content-portlet-admin.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/sql/postgresql/content-portlet-admin.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/sql/postgresql/content-portlet-admin.sql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,190 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- content-admin-portlet.sql
+--
+
+-- Creates a portal datasource for the content portlet factory
+-- (admin interface)
+
+-- Copyright (C) 2001 MIT
+-- @author Arjun Sanyal (arjun@openforce.net)
+
+-- $Id: content-portlet-admin.sql,v 1.1 2007/10/24 22:50:25 victorg Exp $
+
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or higher. Full text of the license is available
+-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
+--
+-- PostGreSQL port samir@symphinity.com 11 July 2002
+--
+
+create function inline_0()
+returns integer as '
+declare
+ ds_id portal_datasources.datasource_id%TYPE;
+begin
+ ds_id := portal_datasource__new(
+ ''content_admin_portlet'', -- name
+ ''Displays the admin interface for the content data portlets'' -- Description
+ );
+
+ -- 4 defaults procs
+
+ -- shadeable_p
+ perform portal_datasource__set_def_param (
+ ds_id, -- datasource_id
+ ''t'', -- config_required_p
+ ''t'', -- configured_p
+ ''shadeable_p'', -- key
+ ''f'' -- value
+);
+
+ -- shaded_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''shaded_p'',
+ ''f''
+);
+
+ -- hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''hideable_p'',
+ ''t''
+);
+
+ -- user_editable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''user_editable_p'',
+ ''f''
+);
+
+ -- link_hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''link_hideable_p'',
+ ''t''
+);
+
+
+ -- content-admin-specific procs
+
+ -- package_id must be configured
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''f'',
+ ''package_id'',
+ ''''
+);
+ return 0;
+end;' language 'plpgsql';
+
+select inline_0();
+
+drop function inline_0();
+
+
+create function inline_1()
+returns integer as '
+begin
+ -- create the implementation
+ perform acs_sc_impl__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''content_admin_portlet''
+ );
+
+ -- add all the hooks
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''GetMyName'',
+ ''content_admin_portlet::get_my_name'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''GetPrettyName'',
+ ''content_admin_portlet::get_pretty_name'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''Link'',
+ ''content_admin_portlet::link'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''AddSelfToPage'',
+ ''content_admin_portlet::add_self_to_page'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''Show'',
+ ''content_admin_portlet::show'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''Edit'',
+ ''content_admin_portlet::edit'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_admin_portlet'',
+ ''RemoveSelfFromPage'',
+ ''content_admin_portlet::remove_self_from_page'',
+ ''TCL''
+ );
+
+ -- Add the binding
+ perform acs_sc_binding__new (
+ ''portal_datasource'', -- contract_name
+ ''content_admin_portlet'' -- impl_name
+ );
+
+ return 0;
+end;' language 'plpgsql';
+
+select inline_1();
+
+drop function inline_1();
Index: openacs-4/packages/content-portlet/sql/postgresql/content-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/sql/postgresql/content-portlet-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/sql/postgresql/content-portlet-create.sql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,20 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+--
+-- PostGreSQL port samir@symphinity.com 11 July 2002
+--
+\i content-portlet-portlet.sql
+\i content-portlet-admin.sql
Index: openacs-4/packages/content-portlet/sql/postgresql/content-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/sql/postgresql/content-portlet-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/sql/postgresql/content-portlet-drop.sql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,20 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+--
+-- PostGreSQL port samir@symphinity.com 11 July 2002
+--
+\i content-portlet-portlet-drop.sql
+\i content-portlet-admin-drop.sql
Index: openacs-4/packages/content-portlet/sql/postgresql/content-portlet-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/sql/postgresql/content-portlet-portlet-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/sql/postgresql/content-portlet-portlet-drop.sql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,121 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- content-portlet-portlet-drop.sql
+--
+
+-- Deletes a portal datasource for the content portlet factory
+
+-- Copyright (C) 2001 MIT
+-- @author Arjun Sanyal (arjun@openforce.net)
+
+-- $Id: content-portlet-portlet-drop.sql,v 1.1 2007/10/24 22:50:25 victorg Exp $
+
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or higher. Full text of the license is available
+-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
+--
+-- PostGreSQL port samir@symphinity.com 11 July 2002
+--
+
+
+
+create function inline_1()
+returns integer as '
+declare
+ ds_id portal_datasources.datasource_id%TYPE;
+begin
+
+ select datasource_id into ds_id
+ from portal_datasources
+ where name = ''content_portlet'';
+
+ if not found then
+ RAISE EXCEPTION '' No datasource id found '', ds_id;
+ ds_id := null;
+ end if;
+
+ if ds_id is NOT null then
+ perform portal_datasource__delete(ds_id);
+ end if;
+
+ -- drop the hooks
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''GetMyName''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''GetPrettyName''
+ );
+
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''Link''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''AddSelfToPage''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''Show''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''Edit''
+ );
+
+ perform acs_sc_impl_alias__delete (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''RemoveSelfFromPage''
+ );
+
+ -- Drop the binding
+ perform acs_sc_binding__delete (
+ ''portal_datasource'',
+ ''content_portlet''
+ );
+
+ -- drop the impl
+ perform acs_sc_impl__delete (
+ ''portal_datasource'',
+ ''content_portlet''
+ );
+
+ return 0;
+end;' language 'plpgsql';
+
+select inline_1();
+drop function inline_1();
+
+
+
+
+
Index: openacs-4/packages/content-portlet/sql/postgresql/content-portlet-portlet.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/sql/postgresql/content-portlet-portlet.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/sql/postgresql/content-portlet-portlet.sql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,201 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- content-portlet-portlet.sql
+--
+
+-- Creates a portal datasource for the content portlet factory
+
+-- Copyright (C) 2001 MIT
+-- @author Arjun Sanyal (arjun@openforce.net)
+
+-- $Id: content-portlet-portlet.sql,v 1.1 2007/10/24 22:50:25 victorg Exp $
+
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or higher. Full text of the license is available
+-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
+--
+-- PostGreSQL port samir@symphinity.com 11 July 2002
+--
+
+
+create function inline_0()
+returns integer as '
+declare
+ ds_id portal_datasources.datasource_id%TYPE;
+begin
+ ds_id := portal_datasource__new(
+ ''content_portlet'', -- name
+ ''Displays an content page as a portlet'' -- description
+ );
+
+ -- 4 defaults procs
+
+ -- shadeable_p
+ perform portal_datasource__set_def_param (
+ ds_id, -- datasource_id
+ ''t'', -- config_required_p
+ ''t'', -- configured_p
+ ''shadeable_p'', -- key
+ ''t'' -- value
+ );
+
+ -- shaded_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''shaded_p'',
+ ''f''
+ );
+
+ -- hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''hideable_p'',
+ ''t''
+ );
+
+ -- user_editable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''user_editable_p'',
+ ''f''
+);
+
+ -- link_hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''link_hideable_p'',
+ ''t''
+);
+
+
+ -- content-specific procs
+
+ -- package_id must be configured
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''f'',
+ ''package_id'',
+ ''''
+);
+
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''f'',
+ ''page_name'',
+ ''''
+);
+
+ return 0;
+end;' language 'plpgsql';
+
+select inline_0();
+
+drop function inline_0();
+
+
+create function inline_1()
+returns integer as '
+begin
+
+ -- create the implementation
+ perform acs_sc_impl__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''content_portlet''
+ );
+
+ -- add all the hooks
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''GetMyName'',
+ ''content_portlet::get_my_name'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''GetPrettyName'',
+ ''content_portlet::get_pretty_name'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''Link'',
+ ''content_portlet::link'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''AddSelfToPage'',
+ ''content_portlet::add_self_to_page'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''Show'',
+ ''content_portlet::show'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''Edit'',
+ ''content_portlet::edit'',
+ ''TCL''
+ );
+
+ perform acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''content_portlet'',
+ ''RemoveSelfFromPage'',
+ ''content_portlet::remove_self_from_page'',
+ ''TCL''
+ );
+
+ -- Add the binding
+ perform acs_sc_binding__new (
+ ''portal_datasource'', -- contract_name
+ ''content_portlet'' -- impl_name
+ );
+
+
+ return 0;
+end;' language 'plpgsql';
+
+select inline_1();
+
+drop function inline_1();
Index: openacs-4/packages/content-portlet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/tcl/apm-callback-procs.tcl 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,149 @@
+#
+
+ad_library {
+
+
+
+ @author byron Haroldo Linares Roman (bhlr@byronLs-Computer.local)
+ @creation-date 2007-09-08
+ @arch-tag: DA257725-36B9-464F-96B8-663D77F70456
+ @cvs-id $Id: apm-callback-procs.tcl,v 1.1 2007/10/24 22:50:25 victorg Exp $
+}
+
+namespace eval content-portlet::apm {}
+
+ad_proc -public content-portlet::apm::after_upgrade {
+ {-from_version_name:required}
+ {-to_version_name:required}
+} {
+ apm_upgrade_logic \
+ -from_version_name $from_version_name \
+ -to_version_name $to_version_name \
+ -spec {
+ 0.1d2 0.1d3 {
+ set count 0
+ set instructor_id ""
+ set wiki_package_list [xowiki::Package instances]
+ foreach wiki_package_id $wiki_package_list {
+ set trees [category_tree::get_mapped_trees $wiki_package_id]
+ set tree_id [lindex [lindex $trees 0] 0]
+ set wiki_folder_id [::xowiki::Page require_folder \
+ -name xowiki \
+ -package_id $wiki_package_id]
+ set tree_list [category_tree::get_tree_levels $tree_id]
+
+
+
+ set wiki_url [site_node::get_url_from_object_id \
+ -object_id $wiki_package_id]
+ set community_id [dotlrn_community::get_community_id_from_url \
+ -url $wiki_url]
+
+ set instructors [dotlrn_community::list_users_in_role \
+ -rel_type "dotlrn_instructor_rel" $community_id]
+
+ set instructor_id [lindex [lindex $instructors 0] 3]
+
+ set new_tree_id [content_category::map_new_tree \
+ -object_id $wiki_package_id \
+ -tree_name "Indice De Contenido" \
+ -user_id $instructor_id]
+
+ set new_tree_list [category_tree::get_tree_levels \
+ -only_level 2 $new_tree_id]
+
+ foreach category $tree_list {
+ set cat_id [lindex $category 0]
+ set new_cat_id [lindex [lindex $new_tree_list $count] 0]
+ db_foreach select_content {
+ select ci.item_id, p.page_order,
+ ci.name, ci.content_type, category_id,
+ xpi.page_instance_id
+ from category_object_map c, cr_items ci,
+ xowiki_page p,
+ xowiki_page_instance xpi
+ where c.object_id = ci.item_id
+ and ci.parent_id = :wiki_folder_id
+ and ci.content_type not in ('::xowiki::PageTemplate')
+ and p.page_id = xpi.page_instance_id
+ and category_id = :cat_id
+ and xpi.page_instance_id = ci.live_revision
+ order by p.page_order} {
+ category::map_object -remove_old -object_id $item_id $new_cat_id
+ }
+ incr count
+ }
+ set count 0
+
+
+ foreach tree $trees {
+ set tree_id [lindex $tree 0]
+ category_tree::unmap -tree_id $tree_id -object_id $wiki_package_id
+ }
+
+
+ db_0or1row select_instance [::xowiki::PageTemplate instance_select_query \
+ -folder_id $wiki_folder_id \
+ -select_attributes {name} \
+ -where_clause "name = 'es:Template_de_ges'"]
+
+ set template_id $item_id
+
+ set template [xowiki::Package instantiate_page_from_id -item_id $item_id]
+
+ set text [list {
+
+ #xowiki.edit# ·
+ #xowiki.revisions# ·
+
+
+ #xowiki.new# ·
+
+
+ #xowiki.new# ·
+
+ #xowiki.new# ·
+ #xowiki.delete# ·
+ @notification_image;noquote@ ·
+ #xowiki.edit_content_index# ·
+ #xowiki.index#
+
+@content;noquote@
+
+ {{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
+ }]
+
+ $template set text $text
+ $template destroy_on_cleanup
+ $template save
+ $template initialize_loaded_object
+
+ }
+
+ }
+
+ }
+
+}
Index: openacs-4/packages/content-portlet/tcl/content-admin-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/tcl/content-admin-portlet-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/tcl/content-admin-portlet-procs.tcl 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,84 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+ad_library {
+
+ Procedures to support the content ADMIN portlet
+
+ @author bhlr@galileo.edu
+
+}
+
+namespace eval content_admin_portlet {
+
+ ad_proc -private get_my_name {
+ } {
+ return "content_admin_portlet"
+ }
+
+ ad_proc -public get_pretty_name {
+ } {
+ return [parameter::get_from_package_key \
+ -package_key [my_package_key] \
+ -parameter admin_portlet_pretty_name]
+ }
+
+ ad_proc -private my_package_key {
+ } {
+ return "content-portlet"
+ }
+
+ ad_proc -public link {
+ } {
+ return ""
+ }
+
+ ad_proc -public add_self_to_page {
+ {-portal_id:required}
+ {-package_id:required}
+ } {
+ Adds a content admin PE to the given portal
+ } {
+ return [portal::add_element_parameters \
+ -portal_id $portal_id \
+ -portlet_name [get_my_name] \
+ -key package_id \
+ -value $package_id
+ ]
+ }
+
+ ad_proc -public remove_self_from_page {
+ {-portal_id:required}
+ } {
+ Removes content PE from the given page
+ } {
+ # This is easy since there's one and only one instace_id
+ portal::remove_element \
+ -portal_id $portal_id \
+ -portlet_name [get_my_name]
+ }
+
+ ad_proc -public show {
+ cf
+ } {
+ Display the PE
+ } {
+ portal::show_proc_helper \
+ -package_key [my_package_key] \
+ -config_list $cf \
+ -template_src "content-admin-portlet"
+ }
+
+}
Index: openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs-postgresql.xql 24 Oct 2007 22:50:25 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+
+
+
+
+
+
+
+
+
+| {{adp portlets/wiki {name header_page skin plain-include}}} | +|||||||
| {{adp /packages/content-portlet/www/unit-navbar {page_id @revision_id@ content_id @package_id@}}} | +|||||||
|
+ |||||||
 |
+ {{adp /packages/content-portlet/www/complete-subnavbar {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@}}} | + |
+ |||||
 |
+ @contenido@ |
+  |
+ |||||
 |
+  |
+  |
+ |||||
+ #content-portlet.welcome# +
++ #content-portlet.welcome_body# +
+[[es:header_page|#content-portlet.edit_header#]] + } +} else { + return { +
+ #content-portlet.e_welcome# +
++ #content-portlet.e_welcome_body# +
+ } +} +} +}] + +$myobject set text [lindex $text 0] +$myobject destroy_on_cleanup +$myobject save +$myobject initialize_loaded_object +ns_cache flush xotcl_object_cache ::[$myobject set item_id] +} +} +} + + +ad_proc -private content_category::up { + {-wiki_package_id ""} + {-level 1} +} { + + set count 0 + if {[empty_string_p $wiki_package_id]} { + set wiki_package_list [xowiki::Package instances] + } else { + set wiki_package_list [list $wiki_package_id] + } + foreach wiki_package_id $wiki_package_list { + ns_log notice "inicia actualizacion de content" + set trees [category_tree::get_mapped_trees $wiki_package_id] + set tree_id [lindex [lindex $trees 0] 0] + set wiki_folder_id [::xowiki::Page require_folder \ + -name xowiki \ + -package_id $wiki_package_id] + + if {$level eq 1} { + set tree_list [content_category::get_tree_levels $tree_id] + } else { + set tree_list [content_category::get_tree_levels -only_level 2 $tree_id] + } + + set wiki_url [site_node::get_url_from_object_id \ + -object_id $wiki_package_id] + set community_id [dotlrn_community::get_community_id_from_url -url $wiki_url] + + set instructors [dotlrn_community::list_users_in_role \ + -rel_type "dotlrn_instructor_rel" $community_id] + + set instructor_id [lindex [lindex $instructors 0] 3] + + set new_tree_id [content_category::map_new_tree -object_id $wiki_package_id \ + -tree_name "Indice De Contenido." \ + -user_id $instructor_id] + + set new_tree_list [content_category::get_tree_levels \ + -only_level 2 $new_tree_id] + + + ns_log notice " Package_id $wiki_package_id $tree_list :: $new_tree_list" + foreach category $tree_list { + set cat_id [lindex $category 0] + set new_cat_id [lindex [lindex $new_tree_list $count] 0] + db_foreach select_content { + select ci.item_id, p.page_order, + ci.name, ci.content_type, category_id, xpi.page_instance_id + from category_object_map c, cr_items ci, xowiki_page p, + xowiki_page_instance xpi + where c.object_id = ci.item_id + and ci.parent_id = :wiki_folder_id + and ci.content_type not in ('::xowiki::PageTemplate') + and p.page_id = xpi.page_instance_id + and category_id = :cat_id + and xpi.page_instance_id = ci.live_revision + order by p.page_order} { + ns_log notice "--------- -object_id $item_id $new_cat_id " + category::map_object -remove_old -object_id $item_id $new_cat_id + } + incr count + } + + set count 0 + + foreach tree $trees { + set tree_id [lindex $tree 0] + category_tree::unmap -tree_id $tree_id -object_id $wiki_package_id + } + + db_0or1row select_instance [::xowiki::PageTemplate instance_select_query \ + -folder_id $wiki_folder_id \ + -select_attributes {name} \ + -where_clause "name = 'es:Template_de_ges'"] + + set template_id $item_id + + set template [xowiki::Package instantiate_page_from_id -item_id $item_id] + + set text [list { +
+ {{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
+ }]
+
+ $template set text $text
+ $template destroy_on_cleanup
+ $template save
+ $template initialize_loaded_object
+ }
+}
+
+
+
+ad_proc -public content_category::page_order {
+ -tree_id
+ -category_id
+ -wiki_folder_id
+} {
+ set tree_list [content_category::get_tree_levels \
+ -subtree_id $category_id $tree_id]
+ set tree_list [linsert $tree_list 0 $category_id]
+ foreach cat_tree $tree_list {
+ set cat_id [lindex $cat_tree 0]
+ set page_list [db_list_of_lists select_content {}]
+
+ if {[llength $page_list] > 0} {
+ #set next_list [lindex $order_page 0]
+ #set nexturl "${wiki_url}[lindex $next_list 2]\\\#cont1"
+ break
+ }
+ }
+ return $page_list
+}
+
+
+ad_proc -public content_category::category_childs {
+ -tree_id
+ -category_id
+ -wiki_folder_id
+} {
+
+ set tree_list [content_category::get_tree_levels -subtree_id $category_id $tree_id]
+ set tree_list [linsert $tree_list 0 [list $category_id "n"]]
+ foreach category $tree_list {
+ set cat_id [lindex $category 0]
+ set count [db_string select_cat {*SQL*} -default 0]
+ if {$count > 0} {
+ return 1
+ }
+ }
+ return 0
+}
+
+
+ad_proc -public content_category::category_delete {
+ tree_id
+ category_ids
+ {locale ""}
+} {
+
+ set user_id [auth::get_user_id]
+ permission::require_permission \
+ -object_id $tree_id \
+ -privilege category_tree_write
+
+ set result 1
+ db_transaction {
+ foreach category_id [db_list order_categories_for_delete ""] {
+ category::delete $category_id
+ }
+ category_tree::flush_cache $tree_id
+ } on_error {
+ set result 0
+ }
+ return $result
+}
+
+ad_proc -private content_category::valid_level_and_count {
+ -tree_id
+ -category_id
+} {
+ set tree_list [content_category::get_tree_levels $tree_id]
+ set my_level [lindex \
+ [lindex $tree_list \
+ [lsearch -regexp \
+ $tree_list $category_id]] \
+ 3]
+
+ if {$my_level > 2} {
+ return 0
+ }
+ set sub_tree_list [content_category::get_tree_levels -only_level 1 \
+ -subtree_id $category_id $tree_id]
+
+ if {[llength $sub_tree_list] >= 5} {
+ return 0
+ }
+ return 1
+}
+
+
+ad_proc -private content_category::map_new_tree {
+ -object_id
+ -tree_name
+ {-user_id ""}
+} {
+
+ if {[empty_string_p $user_id]} {
+ set user_id [ad_conn user_id]
+ }
+
+ db_transaction {
+ set tree_id [category_tree::add -name $tree_name -user_id $user_id]
+ content_category::new_subtree -tree_id $tree_id -user_id $user_id
+ category_tree::map -tree_id $tree_id \
+ -object_id $object_id \
+ -assign_single_p t \
+ -require_category_p t
+ }
+ return $tree_id
+}
+
+
+ad_proc -private content_category::new_subtree {
+ -tree_id
+ {-language "es_GT"}
+ {-user_id ""}
+} {
+
+ if {[empty_string_p $user_id]} {
+ set user_id [ad_conn user_id]
+ }
+ set description "New unit for content"
+ set parent_id [db_null]
+ set unit_id [category::add -tree_id $tree_id \
+ -parent_id $parent_id \
+ -locale $language \
+ -name "Unidad N" \
+ -user_id $user_id \
+ -description $description]
+
+ category::add -tree_id $tree_id \
+ -parent_id $unit_id \
+ -locale $language \
+ -name "Introduccion" -description $description
+
+ category::add -tree_id $tree_id \
+ -parent_id $unit_id \
+ -locale $language \
+ -name "Contenido" \
+ -user_id $user_id \
+ -description $description
+
+ category::add -tree_id $tree_id \
+ -parent_id $unit_id \
+ -locale $language \
+ -name "Actividades" \
+ -user_id $user_id \
+ -description $description
+
+ category::add -tree_id $tree_id \
+ -parent_id $unit_id \
+ -locale $language \
+ -name "Glosario" \
+ -user_id $user_id \
+ -description $description
+
+ category::add -tree_id $tree_id \
+ -parent_id $unit_id \
+ -locale $language \
+ -name "Anexo" \
+ -user_id $user_id \
+ -description $description
+ return $unit_id
+}
+
+ad_proc -private content_category::category_parent {
+ -category_id
+ -tree_id
+ {-level 0}
+} {
+
+
+ if {[db_0or1row select_parent {
+ select parent_id, category_id as category from categories
+ where category_id = :category_id
+ and tree_id = :tree_id
+ }]} {
+
+ if {![empty_string_p $parent_id] && $level eq 0} {
+ return [content_category::category_parent -category_id $parent_id -tree_id $tree_id]
+ } elseif {![empty_string_p $parent_id] && $level ne 0} {
+ return $parent_id
+ } else {
+ return $category
+ }
+ }
+}
+
+
+
+
+ad_proc -private content_page::facultad {
+ {-community_id ""}
+} {
+ if {[empty_string_p $community_id]} {
+ set community_id [dotlrn_community::get_community_id]
+ }
+ set ges_pk [ug::get_ges_pk $community_id]
+ if {![empty_string_p $ges_pk]} {
+ set fac [soap_db::db_string -dbn udb select_facultad {
+ select distinct gn.nombre_corto
+ from camainhorariostb mh, cacurshoratb ch,
+ cacarrerastb cc, gnentidadestb gn
+ where mh.horario = ch.horario
+ and ch.carrera = cc.carrera
+ and cc.entidad = gn.entidad
+ and cc.facultad = gn.facultad
+ and mh.ges_pk = '$ges_pk'} -default "No Facultad"]
+
+ set facultad [string range $fac 2 end]
+ } else {
+ set facultad "Facultad"
+ }
+ return $facultad
+}
+
+ad_proc -private content_page::carrera {
+ {-community_id ""}
+} {
+ if {[empty_string_p $community_id]} {
+ set community_id [dotlrn_community::get_community_id]
+ }
+ set ges_pk [ug::get_ges_pk $community_id]
+ if {![empty_string_p $ges_pk]} {
+
+ set carrera [soap_db::db_list -dbn udb select_carrera {
+ select distinct cc.nombre_corto
+ from camainhorariostb mh, cacurshoratb ch,
+ cacarrerastb cc
+ where mh.horario = ch.horario
+ and ch.carrera = cc.carrera
+ and mh.ges_pk = '$ges_pk'}]
+ if {[llength $carrera] > 0} {
+ return [lindex $carrera 0]
+ } else {
+ return "Carrera"
+ }
+ }
+ return "Carrera"
+}
+
+ad_proc -private content_page::cours_name {
+ {-community_id ""}
+} {
+ if {[empty_string_p $community_id]} {
+ set community_id [dotlrn_community::get_community_id]
+ }
+ set ges_pk [ug::get_ges_pk $community_id]
+ ns_log notice "byron $ges_pk"
+ if {![empty_string_p $ges_pk]} {
+
+ set cours_name [soap_db::db_string -dbn udb select_name {
+ select distinct cc.nombre
+ from camainhorariostb mh, cacurshoratb ch,
+ cacursostb cc
+ where mh.horario = ch.horario
+ and ch.curso = cc.curso
+ and mh.ges_pk = '$ges_pk'} -default "Curso"]
+
+ return $cours_name
+ }
+ return "Curso"
+}
+
+ad_proc -public content_compare::value_compare {
+ x
+ y
+ def
+} {
+ set xp [string first . $x]
+ set yp [string first . $y]
+ if {$xp == -1 && $yp == -1} {
+ if {$x < $y} {
+ return -1
+ } elseif {$x > $y} {
+ return 1
+ } else {
+ return $def
+ }
+ } elseif {$xp == -1} {
+ set yh [string range $y 0 [expr {$yp-1}]]
+ return [value_compare $x $yh -1]
+ } elseif {$yp == -1} {
+ set xh [string range $x 0 [expr {$xp-1}]]
+ return [value_compare $xh $y 1]
+ } else {
+ set xh [string range $x 0 $xp]
+ set yh [string range $y 0 $yp]
+ if {$xh < $yh} {
+ return -1
+ } elseif {$xh > $yh} {
+ return 1
+ } else {
+ incr xp
+ incr yp
+ #puts "rest [string range $x $xp end] [string range $y $yp
+ # end]"
+ return [value_compare [string range $x $xp end] [string range $y $yp end] $def]
+ }
+ }
+}
+
+ad_proc -public content_compare::compare {
+ a
+ b
+} {
+ set x [lindex $a 1]
+ set y [lindex $b 1]
+ return [content_compare::value_compare $x $y 0]
+}
+
+ad_proc -public content_compare::simple_compare {
+ a
+ b
+
+} {
+ return [content_compare::value_compare $a $b 0]
+}
+
+ad_proc -public content_category::get_tree_levels {
+ -all:boolean
+ {-subtree_id ""}
+ {-to_level 0}
+ {-only_level 0}
+ tree_id
+ {locale ""}
+} {
+ Get all categories of a category tree from the cache.
+
+ @option all Indicates that phased_out categories should be included.
+ @option subtree_id Return only categories of the given subtree.
+ @param tree_id category tree to get the categories of.
+ @param locale language in which to get the categories. [ad_conn locale] used by default.
+ @return tcl list of lists: category_id category_name deprecated_p level
+} {
+ if {[catch {set tree [nsv_get category_trees $tree_id]}]} {
+ return
+ }
+ if {$to_level ne 0 && $only_level ne 0} {
+ set only_level 0
+ }
+ set result ""
+ if {[empty_string_p $subtree_id]} {
+ foreach category $tree {
+ util_unlist $category category_id deprecated_p level
+ if {$all_p || $deprecated_p == "f"} {
+ if {$to_level < $level && $to_level ne 0} {
+ continue
+ }
+ if {$only_level ne $level && $only_level ne 0} {
+ continue
+ }
+ lappend result [list $category_id [category::get_name $category_id $locale] $deprecated_p $level]
+ }
+ }
+ } else {
+ set in_subtree_p 0
+ set subtree_level 0
+ foreach category $tree {
+ util_unlist $category category_id deprecated_p level
+ if {$level == $subtree_level || $level < $subtree_level} {
+ set in_subtree_p 0
+ }
+ if {$in_subtree_p && $deprecated_p == "f"} {
+ if {$to_level < [expr $level - $subtree_level] && $to_level ne 0} {
+ continue
+ }
+
+ if {$only_level ne [expr $level - $subtree_level] && $only_level ne 0} {
+ continue
+ }
+
+ lappend result [list $category_id [category::get_name $category_id $locale] $deprecated_p [expr $level - $subtree_level]]
+ }
+ if {$category_id == $subtree_id} {
+ set in_subtree_p 1
+ set subtree_level $level
+ }
+ }
+ }
+
+ return $result
+}
Index: openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/tcl/content-portlet-compare-procs.xql 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,56 @@
+
+
+
+
+
+
+
+
+
+
+
+
+| {{adp portlets/wiki {name header_page skin plain-include}}} | +|||||||
| {{adp /packages/content-portlet/www/unit-navbar {page_id @revision_id@ content_id @package_id@}}} | +|||||||
|
+ |||||||
|
+ {{adp /packages/content-portlet/www/complete-subnavbar {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@}}} | + |
+ |||||
|
+ @contenido@ |
+ |
+ |||||
|
+ |
+ |
+ |||||
-
+
 |
+  |
+ |
+ |
+ |
+  |
+
 |
+ @my_title@ | +
+
+ |
+
+
+
-
+
+
+#content-portlet.welcome# +
++#content-portlet.welcome_body# +
+Editar pagina de Header
+
+#content-portlet.e_welcome# +
++#content-portlet.e_welcome_body# +
+@cat_name@
+ #content-portlet.welcome# +
++ #content-portlet.welcome_body# +
+[[es:header_page|#content-portlet.edit_header#]] + } +} else { + return { +
+ #content-portlet.e_welcome# +
++ #content-portlet.e_welcome_body# +
+ } + } +} +} \ No newline at end of file Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateactividades.page =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateactividades.page,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateactividades.page 24 Oct 2007 22:50:26 -0000 1.1 @@ -0,0 +1,74 @@ +::xowiki::PageTemplate new -title "Template Actividades" -text { +
+{{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplatebody.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplatebody.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplatebody.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,45 @@
+::xowiki::PageTemplate new -title "Template Actividades" -text {
+
+
+
+
+
+
|
+ ||||||||
|
+ ||||||||
 |
+
|
+  |
+ ||||||
|
+  |
+ |
+ ||||||
|
+ + @contenido@ + | + |
+ ||||||
|
+ |
+ |
+ ||||||
+{{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@} }}
+
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplatecontenido.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplatecontenido.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplatecontenido.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,77 @@
+::xowiki::PageTemplate new -title "Template Contenido" -text {
+
+
+
+
+| {{es:header_page -decoration plain }} | +|||||||
| {{adp /packages/content-portlet/www/unit-navbar {page_id @revision_id@ content_id @package_id@} }} | +|||||||
|
+ |||||||
|
+ {{adp /packages/content-portlet/www/complete-subnavbar {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@} }} | + |
+ |||||
|
+ @contenido@ |
+ |
+ |||||
|
+ |
+ |
+ |||||
+{{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateglosario.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateglosario.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateglosario.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,76 @@
+::xowiki::PageTemplate new -title "Template Glosario" -text {
+
+
+
+
+
|
+ ||||||||
|
+ ||||||||
 |
+
|
+  |
+
+ ||||||
|
+ |
+ |
+ ||||||
|
+ + @contenido@ + | + |
+ ||||||
|
+ |
+ |
+ ||||||
+{{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateheader.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateheader.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateheader.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,24 @@
+::xowiki::PageTemplate new -title "Template de Header" -text {
+
+
+
+
+
+
|
+ ||||||||
|
+ ||||||||
 |
+
|
+  |
+
+ ||||||
|
+ |
+ |
+ ||||||
|
+ @contenido@ | + + |
+ ||||||
|
+ |
+ |
+ ||||||
+
+
+
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateheaderpage.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateheaderpage.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateheaderpage.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,3 @@
+::xowiki::PageInstance new -title "Pagina de Header" -text {
+ Header
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateintroduccion.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateintroduccion.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateintroduccion.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,73 @@
+::xowiki::PageTemplate new -title "Template Introduccion" -text {
+
+ 
+ |
+
+ @Facultad@
+ |
+
+
+
+ 
+ |
+
+{{adp /packages/xowiki/www/admin/order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateintroduccion3.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateintroduccion3.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/prototypes/gestemplate/GesTemplateintroduccion3.page 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,123 @@
+::xowiki::PageTemplate new -title "Ges Template i1" -text {
+
+
+
+
+
|
+ ||||||||
|
+ ||||||||
 |
+
|
+  |
+ ||||||
|
+ |
+ |
+ ||||||
|
+ @contenido@ | + |
+ ||||||
|
+ |
+ |
+ ||||||
+
+}
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/resources/.DS_Store
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/resources/.DS_Store,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/resources/.DS_Store 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1 @@
+ Bud1 % @ � @ � @ � @ E % DSDB ` � @ � @ � @
\ No newline at end of file
Index: openacs-4/packages/content-portlet/www/resources/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/www/resources/Attic/calendar-full-portlet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-portlet/www/resources/calendar-full-portlet.tcl 24 Oct 2007 22:50:26 -0000 1.1
@@ -0,0 +1,27 @@
+�PNG
+
+
+IHDR , �]� pHYs ��
+OiCCPPhotoshop ICC profile xڝSgTS�=���BK���KoR RB���&*! J�!��Q�EEȠ�����Q, �
+��!���������{�kּ������>���� �H3Q5� �B �������.@�
+$p �d!s�# �~<<+"�� x� �M��0 ���B�\���t�8K� @z�B� @F���&S � `�cb� P- `'�� ����{ [�!�� e�D h; ��V�E X0 fK�9 �- 0IWfH �� �� � 0Q��) { `�##x �� F�W<�+��* x��<�$9E�[-qWW. (�I+6aa�@.�y�2�4��� ������x����6��_-��"bb���ϫp@ �t~��,/��;�m��%�h^ �u��f�@� ���W�p�~<
+ {{adp /packages/xowiki/www/admin/toggle-page-order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "decreasing" action 0 page_name @name@ status @publish_status@}}}
+
{{adp /packages/xowiki/www/admin/toggle-page-order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "increasing" action 0 page_name @name@ status @publish_status@}}} +
+ {{adp /packages/xowiki/www/admin/toggle-page-order {page_pos @page_order@ page_id @revision_id@ content_id @package_id@ type @object_type@ dir "increasing" action 0 page_name @name@ status @publish_status@}}} +
+
+
+
+
+
|
+ |||||||||||
+
|
+ |||||||||||
+ 
+ |
+
+
|
+
+ 
+ |
+ |||||||||
+ 
+ |
+
+ 
+ |
+
+ 
+ |
+ |||||||||
+ 
+ |
+ @contenido@ + | +
+ 
+ |
+ |||||||||
+ 
+ |
+
+ 
+ |
+
+ 
+ |
+ |||||||||
+ 
+ 
+ 
+ 
+