Index: openacs-4/contrib/packages/classified-ads/www/admin/ad-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/admin/ad-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/classified-ads/www/admin/ad-delete.tcl	16 Jul 2003 04:52:32 -0000	1.1
+++ openacs-4/contrib/packages/classified-ads/www/admin/ad-delete.tcl	21 Jul 2003 05:23:56 -0000	1.2
@@ -1,19 +1,33 @@
 ad_page_contract {
     
-    Delete an Ad
+    Delete an Ad (1 of 2)
 
-    @author Deds Castillo (deds@infiniteinfo.com)
-    @creation-date 2002-10-08
+    @author Roberto Mello 
+    @creation-date 2003-07-20
     @cvs-id $Id$
 
 } {
     ad_id:integer,notnull
-    {return_url "ads"}
+    title:notnull
+    {return_url "categories"}
 }
 
-if {[catch {classified-ads::ads::delete -ad_id $ad_id} errmsg]} {
-    ad_return_complaint 1 "<li>the following error occured during deletion: $errmsg"
-    ad_script_abort
-}
+ad_form -name ad_delete -export ad_id \
+	-mode display \
+	-cancel_label "No" \
+	-cancel_url "ad-one?ad_id=$ad_id" \
+	-form {
 
-ad_returnredirect $return_url
+	{title:text(text)	{label "Title"}
+				{value $title} }
+	{you_sure:text(inform)	{label "Are you sure you want to delete this ad?"} }
+	
+} -edit_data {
+	if {[catch {classified-ads::ads::delete -ad_id $ad_id} errmsg]} {
+    		ad_return_complaint 1 "<li> The following error occured during deletion: $errmsg"
+    		ad_script_abort
+	}
+
+	ad_returnredirect $return_url
+	ad_script_abort
+}