Index: openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl 10 Sep 2002 22:22:36 -0000 1.6
+++ openacs-4/packages/ecommerce/tcl/ec-audit-trail-procs.tcl 15 Mar 2004 04:28:00 -0000 1.7
@@ -333,7 +333,7 @@
}
append audit_entry ""
if { ![empty_string_p $restore_url] } {
- set exports [export_url_vars id id_column \
+ set exports [export_vars id id_column \
main_table_name audit_table_name rowid]
append audit_entry "
Restore this record
@@ -439,7 +439,7 @@
# Set the HTML link tags to a page which displays the full
# audit history.
if { ![empty_string_p $audit_url] } {
- set exports [export_url_vars id id_column \
+ set exports [export_vars id id_column \
main_table_name audit_table_name]
set id_href ""
set id_href_close ""
@@ -484,7 +484,7 @@
# Set the HTML link tags to a page which displays the full
# audit history.
if { ![empty_string_p $audit_url] } {
- set exports [export_url_vars id id_column main_table_name \
+ set exports [export_vars id id_column main_table_name \
audit_table_name]
set id_href ""
set id_href_close ""
Index: openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl 10 Sep 2002 22:22:36 -0000 1.5
+++ openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl 15 Mar 2004 04:28:00 -0000 1.6
@@ -143,7 +143,7 @@
append to_return " ([join $issue_type_list ", "])"
set issue_type_list [list]
}
- append to_return "
$issue_id: opened [util_AnsiDatetoPrettyDate $open_date]"
+ append to_return " $issue_id: opened [util_AnsiDatetoPrettyDate $open_date]"
if { ![empty_string_p $close_date] } {
append to_return ", closed [util_AnsiDatetoPrettyDate $close_date]"
}
Index: openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl 8 Mar 2004 19:46:11 -0000 1.9
+++ openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl 15 Mar 2004 04:28:00 -0000 1.10
@@ -134,7 +134,7 @@
require it.
} {
- set order_link [ec_securelink "[ad_url][ec_url]admin/orders/one?[export_url_vars order_id]"]
+ set order_link [ec_securelink "[ad_url][ec_url]admin/orders/one?[export_vars order_id]"]
db_foreach notification_select {
select ep.email_on_purchase_list, ep.product_name
Index: openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl 8 Mar 2004 19:46:11 -0000 1.22
+++ openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl 15 Mar 2004 04:28:01 -0000 1.23
@@ -383,7 +383,7 @@
db_0or1row mailing_categories {}
if { ![empty_string_p $category_id] || ![empty_string_p $subcategory_id] || ![empty_string_p $subsubcategory_id] } {
- return "Add yourself to the [ec_full_categorization_display $category_id $subcategory_id $subsubcategory_id] mailing list!"
+ return "Add yourself to the [ec_full_categorization_display $category_id $subcategory_id $subsubcategory_id] mailing list!"
} else {
return ""
}
@@ -466,7 +466,7 @@
select p.product_id, p.product_name from ec_products_displayable p, ec_product_links l where l.product_a = :product_id and l.product_b = p.product_id
} {
incr link_counter
- append to_return "$product_name\n"
+ append to_return "$product_name\n"
}
if { $link_counter == 0 } {
@@ -516,10 +516,10 @@
if { $comments_sort_by == "rating" } {
append end_of_comment_query "\norder by c.rating desc"
- append sort_blurb "sorted by rating | sort by date"
+ append sort_blurb "sorted by rating | sort by date"
} else {
append end_of_comment_query "\norder by c.last_modified desc"
- append sort_blurb "sorted by date | sort by rating"
+ append sort_blurb "sorted by date | sort by rating"
}
set to_return "
@@ -543,7 +543,7 @@
" {
array set person [person::get -person_id $user_id]
- append comments_to_print "$person(first_names) $person(last_name) rated this product [ec_display_rating $rating] on $last_modified_pretty and wrote:
+ append comments_to_print "$person(first_names) $person(last_name) rated this product [ec_display_rating $rating] on $last_modified_pretty and wrote:
$one_line_summary
$user_comment
@@ -564,10 +564,10 @@
- Write your own review!
+ Write your own review!
"
} else {
- append to_return "
\nBe the first to review this product!\n"
+ append to_return "
\nBe the first to review this product!\n"
}
return $to_return
@@ -1151,7 +1151,7 @@
for { set counter 0 } { $counter < 5 } { incr counter } {
set product_id [set product_$counter]
if { ![empty_string_p $product_id] } {
- append to_return "
[db_string product_name_select {select product_name from ec_products where product_id = :product_id}]\n"
+ append to_return "[db_string product_name_select {select product_name from ec_products where product_id = :product_id}]\n"
}
}
@@ -1241,7 +1241,7 @@
}
if { ![empty_string_p $tracking_number] } {
if { ([string tolower $carrier] == "fedex" || [string range [string tolower $carrier] 0 2] == "ups") } {
- append to_append_to_shipment_list " (track)"
+ append to_append_to_shipment_list " (track)"
} else {
append to_append_to_shipment_list " (tracking # $tracking_number)"
}
@@ -1422,7 +1422,7 @@
set cookie_value $user_session_id
set usca_p "t"
- set final_page "[ns_conn url]?[export_url_vars usca_p]"
+ set final_page "[ns_conn url]?[export_vars usca_p]"
if ![empty_string_p $_ec_more_url_vars_exported] {
append final_page "&" $_ec_more_url_vars_exported
}
Index: openacs-4/packages/ecommerce/tcl/ecommerce-user-contributions-summary-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-user-contributions-summary-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ecommerce/tcl/ecommerce-user-contributions-summary-procs.tcl 10 Sep 2002 22:22:36 -0000 1.4
+++ openacs-4/packages/ecommerce/tcl/ecommerce-user-contributions-summary-procs.tcl 15 Mar 2004 04:28:01 -0000 1.5
@@ -66,7 +66,7 @@
where c.product_id = p.product_id
and user_id = :user_id" {
- append moby_string "[util_AnsiDatetoPrettyDate $comment_date] : $product_name\n"
+ append moby_string "[util_AnsiDatetoPrettyDate $comment_date] : $product_name\n"
}
append moby_string "
Index: openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl 8 Mar 2004 19:46:11 -0000 1.13
+++ openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl 15 Mar 2004 04:28:01 -0000 1.14
@@ -337,7 +337,7 @@
}
} else {
set linked_thumbnail "
-
+
"
}
Index: openacs-4/packages/ecommerce/www/address-international.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/address-international.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/ecommerce/www/address-international.adp 22 May 2003 14:48:11 -0000 1.6
+++ openacs-4/packages/ecommerce/www/address-international.adp 15 Mar 2004 04:28:01 -0000 1.7
@@ -15,7 +15,7 @@