Index: openacs-4/packages/acs-reference/sql/oracle/acs-reference-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-reference/sql/oracle/acs-reference-create.sql,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-reference/sql/oracle/acs-reference-create.sql 27 Aug 2001 02:49:48 -0000 1.3 +++ openacs-4/packages/acs-reference/sql/oracle/acs-reference-create.sql 30 Sep 2003 12:10:02 -0000 1.4 @@ -92,7 +92,7 @@ last_name in persons.last_name%TYPE default null ) return acs_objects.object_id%TYPE; - procedure delete ( + procedure del ( repository_id in acs_reference_repositories.repository_id%TYPE ); @@ -174,23 +174,23 @@ return v_repository_id; end new; - procedure delete ( + procedure del ( repository_id in acs_reference_repositories.repository_id%TYPE ) is v_maintainer_id integer; begin select maintainer_id into v_maintainer_id from acs_reference_repositories - where repository_id = acs_reference.delete.repository_id; + where repository_id = acs_reference.del.repository_id; delete from acs_reference_repositories - where repository_id = acs_reference.delete.repository_id; + where repository_id = acs_reference.del.repository_id; - acs_object.delete(repository_id); - person.delete(v_maintainer_id); + acs_object.del(repository_id); + person.del(v_maintainer_id); - end delete; + end del; function is_expired_p ( repository_id integer