Olá pessoal,
Estamos reformulando o site da comunidade 5CQualiBr no Portal do SPB e depois de várias semanas discutindo o formato e organização do site chegou a hora de botar a mão na massa.
Como o 5CQualiBr foi construído como um sub-site do SPB ele é muito limitado na criação de comunidades com as funcionalidades do dotLRN. A solução que encontrei para evitar uma instalação completa do dotLRN no cliente ou a migração para uma comunidade padrão do SPB foi utilizar o script Alessandro Landim para implementar Portlets em sub-sites.
can't read "subsite_info(package_id)": no such variable while executing "portal::get_mapped_portal -object_id $subsite_info(package_id)" ("uplevel" body line 41) invoked from within "uplevel { ad_page_contract { Master template for any subsite @author Nick Carroll (nick.c@rroll.net) @creation-date 2005-03-24 ..." (procedure "code::tcl::/usr/share/dotlrn/packages/theme-zen/lib/5cqualib..." line 2) invoked from within "code::tcl::$__adp_stub" ("uplevel" body line 12) invoked from within "uplevel { if { [file exists $__adp_stub.tcl] } { # ensure that data source preparation procedure exists and is up-to-date adp_init t..." (procedure "adp_prepare" line 2) invoked from within "adp_prepare" invoked from within "template::adp_parse $__adp_master [concat [list __adp_slave $__adp_output] [array get __adp_properties]]" invoked from within "template::adp_parse [file root [ad_conn file]] {}" (procedure "adp_parse_ad_conn_file" line 6) invoked from within "$handler" ("uplevel" body line 2) invoked from within "uplevel $code" invoked from within "ad_try { $handler } ad_script_abort val { # do nothing }" invoked from within "rp_serve_concrete_file [ad_conn file]" (procedure "rp_serve_abstract_file" line 60) invoked from within "rp_serve_abstract_file "$root/[ad_conn extra_url]"" ("uplevel" body line 2) invoked from within "uplevel $code" invoked from within "ad_try { rp_serve_abstract_file "$root/[ad_conn extra_url]" set tcl_url2file([ad_conn url]) [ad_conn file] set tcl..."
Autor: Jaime Balbino
77 comentários
while executing
"portal::list_datasources $portal_id"
("uplevel" body line 159)
invoked from within
"uplevel {
ad_page_contract { Master template for any subsite @author Nick Carroll (nick.c@rroll.net)
@creation-date 2005-03-24
..."
(procedure "code::tcl::/usr/share/dotlrn/packages/theme-zen/lib/5cqualib..." line 2)
invoked from within
"code::tcl::$__adp_stub"
("uplevel" body line 12)
invoked from within
"uplevel { if { [file exists $__adp_stub.tcl] } { # ensure that data source preparation procedure exists and is up-to-date
adp_init t..."
(procedure "adp_prepare" line 2)
invoked from within
"adp_prepare"
invoked from within
"template::adp_parse $__adp_master [concat [list __adp_slave $__adp_output] [array get __adp_properties]]"
invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
(procedure "adp_parse_ad_conn_file" line 6)
invoked from within
"$handler"
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
$handler
} ad_script_abort val {
# do nothing
}"
invoked from within
"rp_serve_concrete_file [ad_conn file]"
(procedure "rp_serve_abstract_file" line 60)
invoked from within
"rp_serve_abstract_file "$root/[ad_conn extra_url]""
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
rp_serve_abstract_file "$root/[ad_conn extra_url]"
set tcl_url2file([ad_conn url]) [ad_conn file]
set tcl..."
set subsite_admin_p [permission::permission_p -object_id $subsite_info(package_id) -party_id [ad_conn user_id] -privilege admin]
set portal_id [portal::get_mapped_portal -object_id $subsite_info(package_id)] set return_url [ad_return_url]
set new_portal_url [site_node::get_package_url -package_key new-portal]
set subsite_portal_id [portal::get_mapped_portal -object_id $subsite_info(package_id)] if {$subsite_admin_p} {
set portal_datasources [portal::list_datasources $portal_id]
set all_datasources [portal::list_datasources] set subsite_node_id $subsite_info(node_id) db_multirow -extend {available} applications select_applications {
select p.package_id,
p.instance_name,
n.node_id,
n.name,
p.package_key
from site_nodes n,
apm_packages p,
apm_package_types t
where n.parent_id = :subsite_node_id
and p.package_id = n.object_id
and t.package_key = p.package_key
and t.package_type = 'apm_application' and exists (select 1
from all_object_party_privilege_map perm
where perm.object_id = p.package_id
and perm.privilege = 'read'
and perm.party_id = :user_id)
order by upper(instance_name)
} {
if {[acs_user::site_wide_admin_p]} {
switch $package_key {
file-storage {set package_key fs}
} foreach datasource $all_datasources {
set package_portlet_key [lindex [split $package_key "_"] 0]
if {[lsearch [split $datasource "_"] $package_portlet_key] != -1 && [lsearch $portal_datasources $datasource] == -1} {
set available "1"
}
}
} }
}
invalid command name "portal::get_page_header_stuff"
while executing
"portal::get_page_header_stuff -portal_id $portal_id -page_num 0"
("uplevel" body line 78)
invoked from within
"uplevel {
# packages/mbryzek-subsite/www/index.tcl ad_page_contract { @author rhs@mit.edu
@author mbryzek@mit.edu @creation-date 2000-..."
(procedure "code::tcl::/usr/share/dotlrn/packages/acs-subsite/www/index" line 2)
invoked from within
"code::tcl::$__adp_stub"
("uplevel" body line 12)
invoked from within
"uplevel { if { [file exists $__adp_stub.tcl] } { # ensure that data source preparation procedure exists and is up-to-date
adp_init t..."
(procedure "adp_prepare" line 2)
invoked from within
"adp_prepare"
invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
(procedure "adp_parse_ad_conn_file" line 6)
invoked from within
"$handler"
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
$handler
} ad_script_abort val {
# do nothing
}"
invoked from within
"rp_serve_concrete_file [ad_conn file]"
(procedure "rp_serve_abstract_file" line 60)
invoked from within
"rp_serve_abstract_file "$root/[ad_conn extra_url]""
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
rp_serve_abstract_file "$root/[ad_conn extra_url]"
set tcl_url2file([ad_conn url]) [ad_conn file]
set tcl..."