Index: openacs-4/packages/address-book/www/address-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/address-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/address-book/www/address-delete.tcl	25 Sep 2003 12:08:21 -0000	1.2
+++ openacs-4/packages/address-book/www/address-delete.tcl	30 Sep 2003 12:10:03 -0000	1.3
@@ -16,7 +16,7 @@
 
     db_exec_plsql delete_location_rel {
 	begin
-	  location_rel.delete(:rel_id);
+	  location_rel.del(:rel_id);
 	end;
     }
 
@@ -47,13 +47,13 @@
 	      open subplace_rel_cursor;
 	      fetch subplace_rel_cursor into v_rel_id;
 	      if not subplace_rel_cursor%NOTFOUND then
-	        subplace_rel.delete(v_rel_id);
+	        subplace_rel.del(v_rel_id);
 	      end if;
 	      close subplace_rel_cursor;
-	      pl_address.delete(:address_id);
+	      pl_address.del(:address_id);
 	    end;
 	}
     }
 }
 
-ad_returnredirect contact-view?contact_id=$contact_id
\ No newline at end of file
+ad_returnredirect contact-view?contact_id=$contact_id