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.2 -r1.3
--- openacs-4/contrib/packages/classified-ads/www/admin/ad-one.tcl	23 Jul 2003 21:08:19 -0000	1.2
+++ openacs-4/contrib/packages/classified-ads/www/admin/ad-one.tcl	24 Jul 2003 01:04:48 -0000	1.3
@@ -41,14 +41,18 @@
 					{html {cols 60 rows 10 wrap soft}} }
 
 } -on_request {
+	classified-ads::ads::get -ad_id $ad_id -revision_id $revision_id -array adinfo
+
 	# Get extra custom widgets, if any
 
-	classified-ads::widgets::get_widget_params -content_type "ca_ad" -form_id ad
+	classified-ads::widgets::get_widget_params \
+		-content_type "ca_ad" \
+		-form_id ad \
+		-keyword_id $adinfo(keyword_id)
 
 	set form_values [classified-ads::get_attribute_values -item_id $ad_id -item_id_element ad_id]
 
 	classified-ads::widgets::set_widget_values -form_id ad -form_values $form_values
-	classified-ads::ads::get -ad_id $ad_id -revision_id $revision_id -array adinfo
 
 	element set_properties ad ad_id -value $ad_id
 	element set_properties ad title -value $adinfo(title)