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