Index: openacs-4/contrib/packages/classified-ads/www/admin/ad-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/admin/ad-one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/classified-ads/www/admin/ad-one.tcl	24 Jul 2003 01:04:48 -0000	1.3
+++ openacs-4/contrib/packages/classified-ads/www/admin/ad-one.tcl	24 Jul 2003 20:20:10 -0000	1.4
@@ -40,7 +40,10 @@
 					{optional}
 					{html {cols 60 rows 10 wrap soft}} }
 
-} -on_request {
+} 
+
+if {[template::form is_request ad]} {
+	ns_log notice "RBM: Executed on_request. Action = $action."
 	classified-ads::ads::get -ad_id $ad_id -revision_id $revision_id -array adinfo
 
 	# Get extra custom widgets, if any
@@ -54,12 +57,16 @@
 
 	classified-ads::widgets::set_widget_values -form_id ad -form_values $form_values
 
-	element set_properties ad ad_id -value $ad_id
-	element set_properties ad title -value $adinfo(title)
-	element set_properties ad description -value $adinfo(description)
-	element set_properties ad data -value $adinfo(data)
+	template::element::set_value ad title $adinfo(title)
+	template::element::set_value ad description $adinfo(description)
+	template::element::set_value ad data $adinfo(data)
 
-} -edit_data {
+	ns_log notice "RBM: on_request: isbn exists? [template::element::exists ad isbn] , [info exists isbn]"
+} 
+
+ad_form -extend -name ad -edit_data {
+	ns_log notice "RBM: Executed edit_data. Action = $action"
+	ns_log notice "RBM: isbn_exists? [template::element::exists ad isbn], OK? [info exists isbn]. description exists? [template::element::exists ad description]"
 	set ad_id [classified-ads::ads::edit \
 			-item_id_element ad_id \
 			-form_id ad]
@@ -70,6 +77,7 @@
 	ad_script_abort
 
 } -edit_request {
+	ns_log notice "RBM: Executed edit_request. Action = $action. isbn_exists? [template::element::exists ad isbn] OK? [info exists isbn]"
 	if { [string equal $action "delete"] } {
 		#
 		# If the delete button was pressed