- Fixed export_vars brace vs. brackets

tcl/general-comments-procs.tcl

@@ -201,9 +201,9 @@ ad_proc -private general_comments_print_comment {
                 append html "<h5>[_ general-comments.Attachments]</h5>\n<ul>\n$attachments_html</ul>\n"
             }
         }
-        append html "<p>-- <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> [_ general-comments.on] $pretty_date2 (<a href=\"${package_url}view-comment?[export_url_vars comment_id return_url]\">[_ general-comments.view_details]</a>)</p>\n"
+        append html "<p>-- <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> [_ general-comments.on] $pretty_date2 (<a href=\"${package_url}view-comment?[export_vars -url {comment_id return_url}]\">[_ general-comments.view_details]</a>)</p>\n"
     } else {
-        append html "<li><a href=\"${package_url}view-comment?[export_url_vars comment_id return_url]\">$title</a> [_ general-comments.by] <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> [_ general-comments.on] $pretty_date<br>\n"
+        append html "<li><a href=\"${package_url}view-comment?[export_vars -url {comment_id return_url}]\">$title</a> [_ general-comments.by] <a href=\"/shared/community-member?user_id=$creation_user\">$author</a> [_ general-comments.on] $pretty_date<br>\n"
     }
 
     return $html
@@ -241,7 +241,7 @@ ad_proc -public general_comments_create_link {
     if { ![info exists object_name] } { set object_name [acs_object_name $object_id] }
     if { ![info exists context_id] } { set context_id $object_id }
 
-    set html "<a href=\"${package_url}comment-add?[export_url_vars object_id object_name return_url context_id category]\" $link_attributes>$link_text</a>"
+    set html "<a href=\"${package_url}comment-add?[export_vars -url {object_id object_name return_url context_id category}]\" $link_attributes>$link_text</a>"
 
     return $html
 }
@@ -288,7 +288,7 @@ ad_proc -deprecated get_comments {object_id return_url} {
                     o.object_id = g.comment_id and
                     p.person_id = o.creation_user
               order by creation_date" {
-        append html "<li><a href=\"${package_url}view-comment?[export_url_vars comment_id return_url]\">$title</a> by $author, $creation_date<br>\n"
+		  append html "<li><a href=\"${package_url}view-comment?[export_vars -url {comment_id return_url}]\">$title</a> by $author, $creation_date<br>\n"
     }
     return "$html"
 }
@@ -306,7 +306,7 @@ ad_proc -deprecated create_link {object_id object_name return_url link_text {con
     # get the package url
     set package_url [general_comments_package_url]
 
-    set html "<a href=\"${package_url}comment-add?[export_url_vars object_id object_name return_url context_id category]\">$link_text</a>"
+    set html "<a href=\"${package_url}comment-add?[export_vars -url {object_id object_name return_url context_id category}]\">$link_text</a>"
     return $html
 }
 

www/comment-edit-3.tcl

@@ -53,5 +53,5 @@ db_transaction {
 
 }
 
-ad_returnredirect "view-comment?[export_url_vars comment_id return_url]"
+ad_returnredirect "view-comment?[export_vars -url {comment_id return_url}]"
     

www/delete-attachment-2.tcl

@@ -73,7 +73,7 @@ ad_require_permission $attach_id delete
 #/ i18n
 #}
 
-ad_returnredirect "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
 
 
 

www/file-add-2.tcl

@@ -140,5 +140,5 @@ db_transaction {
 
 }
 
-ad_returnredirect "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
 

www/file-edit-2.tcl

@@ -30,7 +30,7 @@ db_dml edit_title {
      where revision_id = :revision_id
 }
     
-ad_returnredirect "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
 
 
 

www/url-add-2.tcl

@@ -45,7 +45,7 @@ db_exec_plsql insert_comment {
     end;
 }
 
-ad_returnredirect "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
 
 
 

www/url-edit-2.tcl

@@ -28,7 +28,7 @@ db_dml edit_url {
      where extlink_id = :attach_id
 }
 
-ad_returnredirect "view-comment?comment_id=$parent_id&[export_url_vars return_url]"
+ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"