Index: openacs-4/packages/address-book/www/address-delete-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/address-delete-oracle.xql,v diff -u -N --- openacs-4/packages/address-book/www/address-delete-oracle.xql 30 Sep 2003 12:10:03 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,42 +0,0 @@ - - - - oracle8.1.6 - - - - - begin - location_rel.del(:rel_id); - end; - - - - - - - - - declare - v_rel_id subplace_rels.rel_id%TYPE; - cursor subplace_rel_cursor is - select sr.rel_id - from subplace_rels sr, - acs_rels ar - where ar.rel_id = sr.rel_id - and ar.object_id_two = :address_id; - begin - open subplace_rel_cursor; - fetch subplace_rel_cursor into v_rel_id; - if not subplace_rel_cursor%NOTFOUND then - subplace_rel.del(v_rel_id); - end if; - close subplace_rel_cursor; - pl_address.del(:address_id); - end; - - - - - -