-- -- Copyright (C) 2001, 2002 MIT -- -- This file is part of dotLRN. -- -- dotLRN is free software; you can redistribute it and/or modify it under the -- terms of the GNU General Public License as published by the Free Software -- Foundation; either version 2 of the License, or (at your option) any later -- version. -- -- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY -- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -- details. -- -- -- Sanitize the dotLRN External package -- -- @author yon@openforce.net -- @version $Id: externals-sanitize.sql,v 1.2 2002/08/09 18:39:24 yon Exp $ -- declare foo integer; begin select min(segment_id) into foo from rel_segments where segment_name = 'dotLRN Externals'; rel_segment.delete( segment_id => foo ); select min(group_id) into foo from profiled_groups where profile_provider = (select min(impl_id) from acs_sc_impls where impl_name = 'dotlrn_external_profile_provider'); delete from dotlrn_user_types where group_id = foo; profiled_group.delete( group_id => foo ); acs_rel_type.drop_type( rel_type => 'dotlrn_external_profile_rel', cascade_p => 't' ); end; / show errors