- Replaced export_form_vars with export_vars -form

- replaces ad_export_vars with export_vars

tcl/intranet-forum-procs.tcl

@@ -1370,7 +1370,7 @@ ad_proc -public im_forum_component {
     set component_html "
 
 <form action=/intranet-forum/forum-action method=POST>
-[export_form_vars object_id return_url]
+[export_vars -form {object_id return_url}]
 <table class=table_list_page>
   $table_header_html
   $table_body_html
@@ -1509,7 +1509,7 @@ ad_proc -public im_forum_full_screen_component {
 
     set page_body "
 	<form action='/intranet-forum/new-2' method=POST>
-	[export_form_vars action_type owner_id old_asignee_id object_id topic_id parent_id subject message return_url topic_status_id topic_type_id]
+	[export_vars -form {action_type owner_id old_asignee_id object_id topic_id parent_id subject message return_url topic_status_id topic_type_id}]
 	<table cellspacing=1 border=0 cellpadding=1>
 	$table_body
 	</table>

www/assign.tcl

@@ -131,7 +131,7 @@ set actions "assign"
 
 set page_body "
 <form action=new-2 method=POST>
-[export_form_vars topic_id old_asignee_id actions return_url]
+[export_vars -form {topic_id old_asignee_id actions return_url}]
 
 <table cellspacing=1 border=0 cellpadding=1>
 

www/index.tcl

@@ -203,7 +203,7 @@ set left_navbar_html "
         [lang::message::lookup "" intranet-forum.Filter_Topics "Filter Topics"]
       </div>
       <form method=get action='index'>
-        [export_form_vars forum_group_id forum_start_idx forum_order_by forum_how_many forum_view_name]
+        [export_vars -form {forum_group_id forum_start_idx forum_order_by forum_how_many forum_view_name}]
         $filter_html
       </form>
     </div>

www/new-2.adp

@@ -7,7 +7,7 @@
 
 <h1><%= [lang::message::lookup "" intranet-forum.Send_Forum_Notifications "Send Forum Notifications"] %></h1>
 <form name=alerts method=post action=new-3>
-<%= [export_form_vars object_id topic_id object_type subject msg_url message return_url] %>
+<%= [export_vars -form {object_id topic_id object_type subject msg_url message return_url}] %>
 <table class="list">
 
   <tr class="list-header">

www/new.adp

@@ -9,7 +9,7 @@
 
 
 <form action=new-2 method=POST>
-<%= [eval "export_form_vars [join $export_var_list " "]"] %>
+<%= [eval "export_vars -form {[join $export_var_list " "]}"] %>
 
 <table cellspacing=1 border=0 cellpadding=1>
 @table_body;noquote@

www/view.tcl

@@ -223,7 +223,7 @@ set thread_html [im_forum_render_thread $topic_id $user_id $object_id $object_na
 
 set page_body "
 <form action=new-2 method=POST>
-[export_form_vars action_type owner_id old_asignee_id object_id topic_id parent_id subject message return_url topic_status_id topic_type_id]
+[export_vars -form {action_type owner_id old_asignee_id object_id topic_id parent_id subject message return_url topic_status_id topic_type_id}]
 
 <table cellspacing=1 border=0 cellpadding=1>
 $table_body