Forum .LRN Q&A: Failure in LORSM

I have found a failure? in package 'LORSM'. I have created a 'course name' and I click it. Well, In this course I see 2 frames.

The left frame show this failure:

There was a server error processing your request. We apologize.

Take me back where I was (before the error)

can't read "ims_item_id": no such variable
while executing
"lang::util::localize ${ims_item_id}"
invoked from within
"ad_quotehtml [lang::util::localize ${ims_item_id}]"
invoked from within
"append __adp_output "< html >
< head >
< title >< /title >

< link rel=\"stylesheet\" type=\"text/css\" href=\"scorm.css\" media=\"all\">
< script language=\"Ja..."
("uplevel" body line 3)
invoked from within
"uplevel {
set __adp_output ""
append __adp_output "< html>
< head>
< title>< /title>

< link rel=\"stylesheet\" type=\"text/css\" href=\"scorm.css\"..."
(procedure "template::code::adp::/home/cyfuss/dotlrn/packages/lorsm/www/..." line 2)
invoked from within
"template::code::${template_extension}::$__adp_stub"
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/$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..."

and in the right frame,

There was a server error processing your request. We apologize.

Take me back where I was (before the error)

Database operation "select" failed (exception NSDB, "Query was not a statement returning rows.")

ERROR: error de sintaxis en o cerca de ﾫ)ﾻ at character 131

SQL:
select v.object_id
from views_views v
where v.viewer_id = '603'
and v.object_id in ()

while executing
"ns_pg_bind select nsdb0 {
select v.object_id
from views_views v
where v.viewer_id = :user_id
and v.object..."
("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 select $db $full_statement_name $sql"
invoked from within
"set selection [db_exec select $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 select $db $full_statement_name $sql]
set result [list]
while { [db_getro..."
(procedure "db_list" line 23)
invoked from within
"db_list get_viewed_items "
select v.object_id
from views_views v
where v.viewer_id = :user_id
and v.objec..."
invoked from within
"set viewed_items [db_list get_viewed_items "
select v.object_id
from views_views v
where v.viewer_id = :user_id..."
("uplevel" body line 68)
invoked from within
"uplevel {
# packages/lorsm/www/delivery/body.tcl

ad_page_contract {

Course Delivery Body

@author Ernie Ghiglione (mailto:ErnieG@mm....";
(procedure "code::tcl::/home/cyfuss/dotlrn/packages/lorsm/www/delivery/b..." 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"
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/$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..."

Ah!, I use the CVS version.

thank you very much.
--
The best regards

Antonio Mejias