Forum .LRN Q&A: .LRN 2.2 Beta1

https://openacs.org/news/item?item_id=448272

Please download, test, and update your language on the translation server if you want that language to be included in the final release: http://translate.openacs.org.

Basic install instructions can be found on the OpenACS wiki (please help improve that as well): https://openacs.org/xowiki/pages/en/.LRN+Installation

Carl

P.S. I would like to thank Gustaf for helping make this happen, Don for leading the effort, Emma and Olga for pushing things forward (and coming to almost every .LRN meeting over the past few weeks even though they have been in the middle of the night Spanish time), Victor and company for work on getting the translation server to a point that would allow us to release, Rafa and Dorian for the Selva work we built on, along with others that I fail to list.

I tried to upgrade. For some reason I don't know the installation process hangs. After a couple of restarts I managed to upgrade all packages but for the dotlrn-* packages and Static Portlet. APM complains:

Requires dotlrn of version >= 2.2.0a1.

Even though the installed dotLRN version is now 2.2.0b2.

I therefore forced the installation which worked.

Database operation "dml" failed (exception ERROR, "FEHLER:  Einfügen oder Aktualisieren in Tabelle »acs_objects« verletzt Fremdschlüssel-Constraint »acs_objects_package_id_fk«
DETAIL:  Schlüssel (package_id)=(0) ist nicht in Tabelle »apm_packages« vorhanden.
")
FEHLER:  Einfügen oder Aktualisieren in Tabelle »acs_objects« verletzt Fremdschlüssel-Constraint »acs_objects_package_id_fk«
DETAIL:  Schlüssel (package_id)=(0) ist nicht in Tabelle »apm_packages« vorhanden.
SQL:
            update acs_objects
            set package_id = '0'
            where object_id = '3051260'

    while executing
"ns_pg_bind dml nsdb0 {
            update acs_objects
            set package_id = :object_id
            where object_id = :node_id
        }"
    ("uplevel" body line 1)
    invoked from within
"uplevel $ulevel [list ns_pg_bind $type $db $sql]"
    ("postgresql" arm line 2)
    invoked from within
"switch $driverkey {
                oracle {
                    return [uplevel $ulevel [list ns_ora $type $db $sql] $args]
                }
       ..."
    invoked from within
"db_exec dml $db $full_statement_name $sql"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $code_block "
    invoked from within
"db_with_handle -dbn $dbn db {
            db_exec dml $db $full_statement_name $sql
        }"
    (procedure "db_dml" line 100)
    invoked from within
"db_dml update_object_package_id {}"
    (procedure "site_node::mount" line 4)
    invoked from within
"site_node::mount  -node_id $attachments_node_id  -object_id [apm_package_id_from_key attachments]"
    (procedure "dotlrn_forums::add_applet_to_community" line 14)
    invoked from within
"dotlrn_forums::add_applet_to_community $community_id"
    (procedure "AcsSc.dotlrn_applet.addapplettocommunity.dotlrn_forums" line 1)
    invoked from within
"AcsSc.dotlrn_applet.addapplettocommunity.dotlrn_forums 3051039"
    ("uplevel" body line 1)
    invoked from within
"uplevel $func_and_args"
    (procedure "apply" line 3)
    invoked from within
"apply $proc_name $arguments"
    (procedure "acs_sc_call" line 6)
    invoked from within
"acs_sc_call dotlrn_applet $op $list_args $applet_key"
    (procedure "applet_call" line 2)
    invoked from within
"applet_call  $applet_key  AddAppletToCommunity  [list $community_id]"
    invoked from within
"set package_id [applet_call  $applet_key  AddAppletToCommunity  [list $community_id]]"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 1)
    invoked from within
"db_transaction {
            set package_id [applet_call  $applet_key  AddAppletToCommunity  [list $community_id]]

            register_a..."
    (procedure "dotlrn_community::add_applet_to_community" line 2)
    invoked from within
"dotlrn_community::add_applet_to_community $community_id $applet_key"
    ("foreach" body line 3)
    invoked from within
"foreach applet_key $default_applets_list {
                if {[dotlrn_applet::applet_exists_p -applet_key $applet_key]} {
                    dotlrn_..."
    ("uplevel" body line 68)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
            set user_id [ad_conn user_id]
            set community_id [package_instantiate_object -extra_vars $extra_vars $object_ty..."
    (procedure "dotlrn_community::new" line 26)
    invoked from within
"dotlrn_community::new  -community_key $class_instance_key  -description $description  -community_type $class_key  -object_type [community_type]  -pret..."
    invoked from within
"set community_id [dotlrn_community::new  -community_key $class_instance_key  -description $description  -community_type $class_key  -object_type [comm..."
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
            set community_id [dotlrn_community::new  -community_key $class_instance_key  -description $description  -community_type $..."
    (procedure "dotlrn_class::new_instance" line 14)
    invoked from within
"dotlrn_class::new_instance  -class_instance_key $class_instance_key  -class_key $class_key  -term_id $term  -pretty_name $pretty_name  -description $d..."
    invoked from within
"set class_instance_id [dotlrn_class::new_instance  -class_instance_key $class_instance_key  -class_key $class_key  -term_id $term  -pretty_name $prett..."
    ("uplevel" body line 3)
    invoked from within
"uplevel #$level $on_submit"
    ("1" arm line 1)
    invoked from within
"switch $errno {
                    0 {
                        # TCL_OK
                    }
                    1 {
                        # TCL_E..."
    (procedure "ad_form" line 612)
    invoked from within
"ad_form -name add_class_instance -form {

    {term:integer(select)
	{label "Semester"}
	{options $term_options}
	{help_text "[_ dotlrn.Term_help..."
    ("uplevel" body line 35)
    invoked from within
"uplevel {
#
#  Copyright (C) 2001, 2002 MIT
#
#  This file is part of dotLRN.
#
#  dotLRN is free software; you can redistribute it and/or modify it u..."
    (procedure "code::tcl::/www/unima0/packages/dotlrn/www/admin/class-insta..." line 2)
    invoked from within
"code::tcl::$__adp_stub"
    invoked from within
"if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init tcl $__adp_stub
..."
    ("uplevel" body line 3)
    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 "
    (procedure "template::adp_parse" line 30)
    invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
    (procedure "adp_parse_ad_conn_file" line 5)
    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/$path""
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
            rp_serve_abstract_file "$root/$path"
            set tcl_url2file([ad_conn url]) [ad_conn file]
            set tcl_url2path_info..."

Same applies when I try to create a new subgroup:

Database operation "dml" failed (exception ERROR, "FEHLER:  Einfügen oder Aktualisieren in Tabelle »acs_objects« verletzt Fremdschlüssel-Constraint »acs_objects_package_id_fk«
DETAIL:  Schlüssel (package_id)=(0) ist nicht in Tabelle »apm_packages« vorhanden.
")
FEHLER:  Einfügen oder Aktualisieren in Tabelle »acs_objects« verletzt Fremdschlüssel-Constraint »acs_objects_package_id_fk«
DETAIL:  Schlüssel (package_id)=(0) ist nicht in Tabelle »apm_packages« vorhanden.
SQL:
            update acs_objects
            set package_id = '0'
            where object_id = '3051452'

    while executing
"ns_pg_bind dml nsdb0 {
            update acs_objects
            set package_id = :object_id
            where object_id = :node_id
        }"
    ("uplevel" body line 1)
    invoked from within
"uplevel $ulevel [list ns_pg_bind $type $db $sql]"
    ("postgresql" arm line 2)
    invoked from within
"switch $driverkey {
                oracle {
                    return [uplevel $ulevel [list ns_ora $type $db $sql] $args]
                }
       ..."
    invoked from within
"db_exec dml $db $full_statement_name $sql"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $code_block "
    invoked from within
"db_with_handle -dbn $dbn db {
            db_exec dml $db $full_statement_name $sql
        }"
    (procedure "db_dml" line 100)
    invoked from within
"db_dml update_object_package_id {}"
    (procedure "site_node::mount" line 4)
    invoked from within
"site_node::mount  -node_id $attachments_node_id  -object_id [apm_package_id_from_key attachments]"
    (procedure "dotlrn_forums::add_applet_to_community" line 14)
    invoked from within
"dotlrn_forums::add_applet_to_community $community_id"
    (procedure "AcsSc.dotlrn_applet.addapplettocommunity.dotlrn_forums" line 1)
    invoked from within
"AcsSc.dotlrn_applet.addapplettocommunity.dotlrn_forums 3051262"
    ("uplevel" body line 1)
    invoked from within
"uplevel $func_and_args"
    (procedure "apply" line 3)
    invoked from within
"apply $proc_name $arguments"
    (procedure "acs_sc_call" line 6)
    invoked from within
"acs_sc_call dotlrn_applet $op $list_args $applet_key"
    (procedure "applet_call" line 2)
    invoked from within
"applet_call  $applet_key  AddAppletToCommunity  [list $community_id]"
    invoked from within
"set package_id [applet_call  $applet_key  AddAppletToCommunity  [list $community_id]]"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 1)
    invoked from within
"db_transaction {
            set package_id [applet_call  $applet_key  AddAppletToCommunity  [list $community_id]]

            register_a..."
    (procedure "dotlrn_community::add_applet_to_community" line 2)
    invoked from within
"dotlrn_community::add_applet_to_community $community_id $applet_key"
    ("foreach" body line 3)
    invoked from within
"foreach applet_key $default_applets_list {
                if {[dotlrn_applet::applet_exists_p -applet_key $applet_key]} {
                    dotlrn_..."
    ("uplevel" body line 68)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
            set user_id [ad_conn user_id]
            set community_id [package_instantiate_object -extra_vars $extra_vars $object_ty..."
    (procedure "dotlrn_community::new" line 26)
    invoked from within
"dotlrn_community::new  -parent_community_id $parent_community_id  -description $description  -community_type dotlrn_community  -pretty_name $pretty_na..."
    invoked from within
"set subcomm_id [dotlrn_community::new  -parent_community_id $parent_community_id  -description $description  -community_type dotlrn_community  -pretty..."
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
        set subcomm_id [dotlrn_community::new  -parent_community_id $parent_community_id  -description $description  -community_type ..."
    invoked from within
"if {[form is_valid add_subcomm]} {
    form get_values add_subcomm  pretty_name description join_policy referer

    # we set some extra vars based on..."
    ("uplevel" body line 57)
    invoked from within
"uplevel {
#
#  Copyright (C) 2001, 2002 MIT
#
#  This file is part of dotLRN.
#
#  dotLRN is free software; you can redistribute it and/or modify it u..."
    (procedure "code::tcl::/www/unima0/packages/dotlrn/www/subcommunity-new" line 2)
    invoked from within
"code::tcl::$__adp_stub"
    invoked from within
"if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init tcl $__adp_stub
..."
    ("uplevel" body line 3)
    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 "
    (procedure "template::adp_parse" line 30)
    invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
    (procedure "adp_parse_ad_conn_file" line 5)
    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/$path""
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
            rp_serve_abstract_file "$root/$path"
            set tcl_url2file([ad_conn url]) [ad_conn file]
            set tcl_url2path_info..."

Adding sylabus to a community:

Database operation "0or1row" failed (exception NSDB, "Query was not a statement returning rows.")
FEHLER:  Spalte w.description existiert nicht
SQL:
      select w.workflow_id,
             w.short_name,
             w.pretty_name,
             w.object_id,
             w.package_key,
             w.object_type,
             w.description,
             w.description_mime_type,
             a.short_name as initial_action,
             a.action_id as initial_action_id
      from   workflows w left outer join
             workflow_actions a on (a.workflow_id = w.workflow_id
                                and a.parent_action_id is null
                                and a.trigger_type = 'init')
      where  w.workflow_id = '1319'

    while executing
"ns_pg_bind 0or1row nsdb0 {
      select w.workflow_id,
             w.short_name,
             w.pretty_name,
             w.object_id,
             w..."
    ("uplevel" body line 1)
    invoked from within
"uplevel $ulevel [list ns_pg_bind $type $db $sql]"
    ("postgresql" arm line 2)
    invoked from within
"switch $driverkey {
                oracle {
                    return [uplevel $ulevel [list ns_ora $type $db $sql] $args]
                }
       ..."
    invoked from within
"db_exec 0or1row $db $full_statement_name $sql"
    invoked from within
"set selection [db_exec 0or1row $db $full_statement_name $sql]"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $code_block "
    invoked from within
"db_with_handle -dbn $dbn db {
        set selection [db_exec 0or1row $db $full_statement_name $sql]
    }"
    (procedure "db_0or1row" line 23)
    invoked from within
"db_0or1row workflow_info {} -column_array row"
    ("uplevel" body line 1)
    invoked from within
"uplevel db_0or1row $args"
    (procedure "db_1row" line 2)
    invoked from within
"db_1row workflow_info {} -column_array row"
    (procedure "workflow::get_not_cached" line 3)
    invoked from within
"workflow::get_not_cached -workflow_id 1319"
    ("eval" body line 1)
    invoked from within
"eval $script"
    invoked from within
"ns_cache eval util_memoize $script {
	    list $current_time [eval $script]
	}"
    (procedure "util_memoize" line 20)
    invoked from within
"util_memoize [list workflow::get_not_cached -workflow_id $workflow_id] [workflow::cache_timeout]"
    (procedure "workflow::get" line 6)
    invoked from within
"workflow::get -workflow_id $workflow_id -array row"
    (procedure "workflow::generate_spec" line 3)
    invoked from within
"workflow::generate_spec  -workflow_id $workflow_id  -workflow_handler $workflow_handler  -handlers $handlers"
    (procedure "workflow::fsm::generate_spec" line 3)
    invoked from within
"${workflow_handler}::generate_spec  -workflow_id $workflow_id  -workflow_handler $workflow_handler"
    (procedure "workflow::clone" line 8)
    invoked from within
"workflow::clone  -workflow_id $workflow_id  -package_key $package_key  -object_id $object_id  -array $array  -workflow_handler workflow::fsm"
    (procedure "workflow::fsm::clone" line 7)
    invoked from within
"workflow::fsm::clone  -workflow_id [get_package_workflow_id]  -object_id $package_id"
    (procedure "curriculum::instance_workflow_create" line 3)
    invoked from within
"curriculum::instance_workflow_create -package_id $package_id"
    (procedure "curriculum::apm::after_instantiate" line 3)
    invoked from within
"curriculum::apm::after_instantiate  -package_id 3052149"
    ("eval" body line 1)
    invoked from within
"eval $command"
    (procedure "apm_invoke_callback_proc" line 37)
    invoked from within
"apm_invoke_callback_proc -package_key $package_key -type "after-instantiate" -arg_list [list package_id $package_id]"
    (procedure "apm_package_instance_new" line 17)
    invoked from within
"apm_package_instance_new  -package_id $package_id  -package_key $package_key  -instance_name $package_name  -context_id $context_id"
    (procedure "site_node::instantiate_and_mount" line 39)
    invoked from within
"site_node::instantiate_and_mount  -node_name $mount_point  -parent_node_id $parent_node_id  -package_key $package_key  -context_id $package_id  "
    (procedure "dotlrn::instantiate_and_mount" line 15)
    invoked from within
"dotlrn::instantiate_and_mount  $community_id  [package_key]"
    (procedure "dotlrn_curriculum::add_applet_to_community" line 6)
    invoked from within
"dotlrn_curriculum::add_applet_to_community $community_id"
    (procedure "AcsSc.dotlrn_applet.addapplettocommunity.dotlrn_curriculum" line 1)
    invoked from within
"AcsSc.dotlrn_applet.addapplettocommunity.dotlrn_curriculum 2844599"
    ("uplevel" body line 1)
    invoked from within
"uplevel $func_and_args"
    (procedure "apply" line 3)
    invoked from within
"apply $proc_name $arguments"
    (procedure "acs_sc_call" line 6)
    invoked from within
"acs_sc_call dotlrn_applet $op $list_args $applet_key"
    (procedure "applet_call" line 2)
    invoked from within
"applet_call  $applet_key  AddAppletToCommunity  [list $community_id]"
    invoked from within
"set package_id [applet_call  $applet_key  AddAppletToCommunity  [list $community_id]]"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 1)
    invoked from within
"db_transaction {
            set package_id [applet_call  $applet_key  AddAppletToCommunity  [list $community_id]]

            register_a..."
    (procedure "dotlrn_community::add_applet_to_community" line 2)
    invoked from within
"dotlrn_community::add_applet_to_community $community_id $applet_key"
    ("uplevel" body line 43)
    invoked from within
"uplevel {
#
#  Copyright (C) 2001, 2002 MIT
#
#  This file is part of dotLRN.
#
#  dotLRN is free software; you can redistribute it and/or modify it u..."
    (procedure "code::tcl::/www/unima0/packages/dotlrn/www/applet-add" line 2)
    invoked from within
"code::tcl::$__adp_stub"
    invoked from within
"if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init tcl $__adp_stub
..."
    ("uplevel" body line 3)
    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 "
    (procedure "template::adp_parse" line 30)
    invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
    (procedure "adp_parse_ad_conn_file" line 5)
    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/$path""
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
            rp_serve_abstract_file "$root/$path"
            set tcl_url2file([ad_conn url]) [ad_conn file]
            set tcl_url2path_info..."

What ever community/class I choose I am always redirected to My Space.

So the main problems are creating new subjects and communities.

I fixed your site_node problem for a client last week, and it should be fixed on that branch.

I'll add it to HEAD too in just a minute.

There's a file /www/etp-install-portlet.tcl that's not on HEAD, done by someone in Germany, so I'm wondering if you know about it.

We're at risk of losing development like this on the HEAD branch because thus far we don't have people stepping up to offer to merge packages they care about.

http://cvs.openacs.org/cvs/openacs-4/packages/forums/lib/message/post.tcl?r1=1.7.2.3&r2=1.7.2.4