- Replaced export_form_vars with export_vars -form

- replaces ad_export_vars with export_vars

lib/risk-project-component.adp

@@ -29,7 +29,7 @@
 <td colspan=2>
 	<div class="risk_table">
                 <form action="/intranet-riskmanagement/action" method=GET>
-                <%= [export_form_vars return_url] %>
+                <%= [export_vars -form {return_url}] %>
                 <table width="100%">
                 @table_header_html;noquote@
                 @table_body_html;noquote@

www/new-typeselect.adp

@@ -5,7 +5,7 @@
 <%= [im_box_header $page_title] %>
 
 <form action='@return_url;noquote@' method=POST>
-<%= [export_form_vars return_url risk_id risk_nr risk_name] %>
+<%= [export_vars -form {return_url risk_id risk_nr risk_name}] %>
 
 <table cellspacing=2 cellpadding=2>
 
@@ -19,7 +19,7 @@
 		</tr>
 </if>
 <else>
-	<%= [export_form_vars risk_type_id] %>
+	<%= [export_vars -form {risk_type_id] %>
 </else>
 
 <tr class=roweven>

www/new.tcl

@@ -175,7 +175,7 @@ set risk_action_html ""
 if {[info exists risk_id]} {
     set risk_action_html "
 	<form action=/intranet-riskmanagement/action name=riskmanagement_action>
-	[export_form_vars return_url]
+	[export_vars -form {return_url}]
 	<!-- manual pass-through of risk_id as an array -->
 	<input type=hidden name=risk_id.$risk_id value='on'>
 	<input type=submit value='[lang::message::lookup "" intranet-riskmanagement.Action "Action"]'>

www/view.tcl

@@ -75,7 +75,7 @@ if {[info exists risk_id] && ![empty_string_p $risk_id] && $risk_id > 0} {
 # Format Risk Data
 # ---------------------------------------------------------------
 
-set html_hidden_info [export_form_vars owner_id risk_id project_id return_url]
+set html_hidden_info [export_vars -form {owner_id risk_id project_id return_url}]
 
 set page_body "
 <form action=\"new-2.tcl\" method=GET>