Forum .LRN Q&A: Authenticiation broken

Server Error

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

Take me back where I was (before the error)

list element in braces followed by "/batch-sync-ack-{aut" instead of space
while executing
"llength $ret"
("0" arm line 2)
invoked from within
"switch -exact $c {
0 { # code ok
if {[llength $ret] > 0} {
lappend returns $ret
}
..."
(procedure "callback" line 21)
invoked from within
"callback subsite::parameter_changed -package_id $package_id -parameter $c__parameter_name -value [set $c__parameter_name]"
invoked from within
"if { [info exists $c__parameter_name]} {
callback subsite::parameter_changed -package_id $package_id -parameter $c__parameter_name -value [set $c__p..."
("uplevel" body line 2)
invoked from within
"uplevel 1 $code_block "
("1" arm line 1)
invoked from within
"switch $errno {
0 {
# TCL_OK
}
1 {
# TCL_ERROR
..."
("while" body line 20)
invoked from within
"while { [db_getrow $db $selection] } {
incr counter
if { [info exists array_val] } {
unset array_val
..."
("uplevel" body line 5)
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 counter 0
while { [db_getrow $..."
(procedure "db_foreach" line 36)
invoked from within
"db_foreach select_params_set {} {
if { [info exists $c__parameter_name]} {
callback subsite::parameter_changed -package_id $package_id -..."
("uplevel" body line 2)
invoked from within
"uplevel #$level $on_submit"
("1" arm line 592)
invoked from within
"switch $errno {
0 {
# TCL_OK
}
1 {
# TCL_E..."
(procedure "ad_form" line 612)
invoked from within
"ad_form -extend -name parameters -on_request {
foreach name [array names param] {
set $name $param($name)
}
} -on_subm..."
invoked from within
"if { $counter > 0 } {
ad_form -extend -name parameters -on_request {
foreach name [array names param] {
set $name $param($name..."
("uplevel" body line 80)
invoked from within
"uplevel {
ad_page_contract {
Parameters page.

@author Lars Pind (mailto:lars@collaboraid.biz)
@creation-date 2003-06-13
@cvs-id $..."
(procedure "code::tcl::/usr/local/www/timedeskblog.com/openacs-5-2-2/pac..." 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..."