Hi,
I'm getting an error deleting from the homework folder and I'm not sure how to fix it. Any help would be much appreciated... I've seen this post but I'm not sure if it will help me?
https://openacs.org/forums/message-view?message_id=333680
I see this screen: version-delete.tcl
Are you sure that you want to delete this version "Testing Upload File" of "testing-upload-files.txt"? This action cannot be reversed.
Then I get the error at the bottom.
My set up is:
acs-content-repository Content Repository 5.3.2
file-storage File Storage 5.3.1
dotlrn-homework dotLRN Homework 2.3.1
ERROR:
There was a server error processing your request. We apologize.
Take me back where I was (before the error)
Database operation "0or1row" failed
(exception NSDB, "Query was not a statement returning rows.")
while executing
"ns_pg_bind 0or1row nsdb0 {
select file_storage__delete_version(
:item_id,
:version_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 0or1row $db $full_statement_name $sql"
invoked from within
"if {[regexp -nocase -- {^\s*select} $test_sql match]} {
# ns_log Debug "PLPGSQL: bypassed anon function"
set selection..."
("uplevel" body line 6)
invoked from within
"uplevel 1 $code_block "
invoked from within
"db_with_handle -dbn $dbn db {
# plsql calls that are simple selects bypass the plpgsql
# mechanism for creating anonymous fun..."
(procedure "db_exec_plsql" line 57)
invoked from within
"db_exec_plsql delete_version "
begin
:1 := file_storage.delete_version(:item_id,:version_id);
end;""
invoked from within
"set parent_id [db_exec_plsql delete_version "
begin
:1 := file_storage.delete_version(:item_id,:version_id);
end..."
("uplevel" body line 10)
invoked from within
"uplevel 1 $transaction_code "
(procedure "db_transaction" line 39)
invoked from within
"db_transaction {
# DRB: damned permissions table has no "on delete cascade" and file storage
# delete assumes there are perms on the ..."
invoked from within
"if {[string equal $confirmed_p "t"]} {
# they have confirmed that they want to delete the version
db_transaction {
# DRB: damned per..."
("uplevel" body line 33)
invoked from within
"uplevel {
ad_page_contract {
confirmation page for version deletion
@author Kevin Scaldeferri (mailto:kevin@arsdigita.com)
@creation-date 10 Nov..."
(procedure "code::tcl::/var/lib/aolserver/nccedudotlrn/packages/dotlrn-h..." 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 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..."
