Index: openacs-4/packages/xowiki-portlet/xowiki-portlet.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki-portlet/xowiki-portlet.info,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/xowiki-portlet/xowiki-portlet.info 27 Feb 2008 09:21:59 -0000 1.2 +++ openacs-4/packages/xowiki-portlet/xowiki-portlet.info 24 Apr 2008 08:38:30 -0000 1.3 @@ -18,7 +18,7 @@ - + Index: openacs-4/packages/xowiki-portlet/tcl/xowiki-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki-portlet/tcl/xowiki-admin-portlet-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/xowiki-portlet/tcl/xowiki-admin-portlet-procs.tcl 27 Feb 2008 09:22:00 -0000 1.2 +++ openacs-4/packages/xowiki-portlet/tcl/xowiki-admin-portlet-procs.tcl 24 Apr 2008 08:38:30 -0000 1.3 @@ -161,16 +161,18 @@ select datasource_id from portal_datasources where name = :name } -default "0"] - if {$ds_id == 0} { - error "No datasource id found for $name" + if {$ds_id != 0} { + # + # drop the datasource + # + ::xo::db::sql::portal_datasource delete -datasource_id $ds_id + # + } else { + ns_log notice "No datasource id found for $name" } + + # drop the operations # - # drop the datasource - # - ::xo::db::sql::portal_datasource delete -datasource_id $ds_id - # - # drop the operation - # foreach operation { GetMyName GetPrettyName Link AddSelfToPage Show Edit RemoveSelfFromPage Index: openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl 27 Feb 2008 09:22:00 -0000 1.2 +++ openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl 24 Apr 2008 08:38:30 -0000 1.3 @@ -157,17 +157,20 @@ set ds_id [db_string dbqd..get_ds_id { select datasource_id from portal_datasources where name = :name } -default "0"] - - if {$ds_id == 0} { - error "No datasource id found for $name" - } + + if {$ds_id != 0} { + # + # drop the datasource + # + ::xo::db::sql::portal_datasource delete -datasource_id $ds_id + # + } else { + ns_log notice "No datasource id found for $name" + } + # - # drop the datasource + # drop the operations # - ::xo::db::sql::portal_datasource delete -datasource_id $ds_id - # - # drop the operation - # foreach operation { GetMyName GetPrettyName Link AddSelfToPage Show Edit RemoveSelfFromPage Index: openacs-4/packages/xowiki-portlet/www/xowiki-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki-portlet/www/xowiki-admin-portlet.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/xowiki-portlet/www/xowiki-admin-portlet.tcl 9 Apr 2008 15:28:03 -0000 1.4 +++ openacs-4/packages/xowiki-portlet/www/xowiki-admin-portlet.tcl 24 Apr 2008 08:38:30 -0000 1.5 @@ -57,7 +57,7 @@ -folder_id [::$xowiki_package_id folder_id] \ -with_subtypes true \ -from_clause ", xowiki_page P" \ - -where_clause "P.page_id = cr.revision_id" \ + -where_clause "P.page_id = bt.revision_id" \ -orderby "ci.name" \ ] { if {[regexp {^::[0-9]} $name]} continue