Index: openacs-4/packages/ecommerce/www/payment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/payment.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/ecommerce/www/payment.tcl 8 Mar 2004 19:46:11 -0000 1.10 +++ openacs-4/packages/ecommerce/www/payment.tcl 9 Mar 2004 00:51:25 -0000 1.11 @@ -167,7 +167,7 @@ } if { $show_creditcard_form_p == "t" } { - set customer_can_use_old_credit_cards 1 + set customer_can_use_old_credit_cards [ad_parameter -package_id [ec_id] SaveCreditCardDataP ecommerce] # See if the administrator lets customers reuse their credit cards Index: openacs-4/packages/ecommerce/www/admin/audit-one-id.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/audit-one-id.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/audit-one-id.tcl 10 Sep 2002 22:22:38 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/audit-one-id.tcl 9 Mar 2004 00:59:45 -0000 1.3 @@ -29,7 +29,7 @@

[ec_system_name] Audit Trail

-[ad_admin_context_bar [list index Ecommerce([ec_system_name])] [list "audit-tables?[export_url_vars table_names_and_id_column]" "Audit $main_table_name"] "[ec_system_name] Audit Trail"] +[ad_context_bar [list index Ecommerce([ec_system_name])] [list "audit-tables?[export_url_vars table_names_and_id_column]" "Audit $main_table_name"] "[ec_system_name] Audit Trail"]

$main_table_name

Index: openacs-4/packages/ecommerce/www/admin/audit-table.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/audit-table.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/audit-table.tcl 10 Sep 2002 22:22:38 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/audit-table.tcl 9 Mar 2004 00:59:45 -0000 1.3 @@ -70,7 +70,7 @@

[ec_system_name] Audit for $main_table_name

-[ad_admin_context_bar [list "index.tcl" Ecommerce([ec_system_name])] [list "audit-tables" "Audit Table"] "Audit $main_table_name"] +[ad_context_bar [list "index.tcl" Ecommerce([ec_system_name])] [list "audit-tables" "Audit Table"] "Audit $main_table_name"]
Index: openacs-4/packages/ecommerce/www/admin/audit-tables.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/audit-tables.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/audit-tables.tcl 10 Sep 2002 22:22:38 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/audit-tables.tcl 9 Mar 2004 00:59:45 -0000 1.3 @@ -17,7 +17,7 @@

Audit [ec_system_name]

-[ad_admin_context_bar [list "index.tcl" Ecommerce([ec_system_name])] "Audit Tables"] +[ad_context_bar [list "index.tcl" Ecommerce([ec_system_name])] "Audit Tables"]
Index: openacs-4/packages/ecommerce/www/admin/audit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/audit.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/audit.tcl 10 Sep 2002 22:22:38 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/audit.tcl 9 Mar 2004 00:59:45 -0000 1.3 @@ -23,7 +23,7 @@ [ad_admin_header "[ec_system_name] Audit Trail"]

$audit_name

-[ad_admin_context_bar [list index Ecommerce([ec_system_name])] "Audit Trail"] +[ad_context_bar [list index Ecommerce([ec_system_name])] "Audit Trail"]
" Index: openacs-4/packages/ecommerce/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/index.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/index.tcl 10 Sep 2002 22:22:38 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/index.tcl 9 Mar 2004 00:59:45 -0000 1.5 @@ -16,7 +16,7 @@

[ec_system_name] Administration

- +
[ad_admin_context_bar Ecommerce([ec_system_name])][ad_context_bar Ecommerce([ec_system_name])] \[ help \]
Index: openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl 8 Mar 2004 19:46:13 -0000 1.6 +++ openacs-4/packages/ecommerce/www/admin/cat/category-add-0.tcl 9 Mar 2004 00:59:46 -0000 1.7 @@ -40,7 +40,7 @@

Add a New Category

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Product Categories"] "Add a New Category"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Product Categories"] "Add a New Category"]
Index: openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl 8 Mar 2004 19:46:13 -0000 1.7 +++ openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl 9 Mar 2004 00:59:46 -0000 1.8 @@ -40,7 +40,7 @@

Confirm New Category

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] "Confirm New Category"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] "Confirm New Category"]
Index: openacs-4/packages/ecommerce/www/admin/cat/category-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category-delete.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/cat/category-delete.tcl 8 Mar 2004 19:46:13 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/cat/category-delete.tcl 9 Mar 2004 00:59:46 -0000 1.5 @@ -19,7 +19,7 @@

Confirm Deletion

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] "Delete this Category"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] "Delete this Category"]
Index: openacs-4/packages/ecommerce/www/admin/cat/category.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/cat/category.tcl 8 Mar 2004 19:46:13 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/cat/category.tcl 9 Mar 2004 00:59:46 -0000 1.5 @@ -21,7 +21,7 @@

Category: $category_name

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] "One Category"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] "One Category"]
Index: openacs-4/packages/ecommerce/www/admin/cat/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/index.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/cat/index.tcl 8 Mar 2004 19:46:13 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/cat/index.tcl 9 Mar 2004 00:59:46 -0000 1.5 @@ -10,7 +10,7 @@

Product Category Administration

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] "Product Categories"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] "Product Categories"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subcategory-add-0.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subcategory-add-0.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/admin/cat/subcategory-add-0.tcl 8 Mar 2004 19:46:13 -0000 1.6 +++ openacs-4/packages/ecommerce/www/admin/cat/subcategory-add-0.tcl 9 Mar 2004 00:59:46 -0000 1.7 @@ -47,7 +47,7 @@

Add a New Subcategory

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Product Categories"] [list "category?[export_url_vars category_id category_name]" $category_name] "Add a New Subcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Product Categories"] [list "category?[export_url_vars category_id category_name]" $category_name] "Add a New Subcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subcategory-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subcategory-add.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/ecommerce/www/admin/cat/subcategory-add.tcl 8 Mar 2004 19:46:13 -0000 1.7 +++ openacs-4/packages/ecommerce/www/admin/cat/subcategory-add.tcl 9 Mar 2004 00:59:46 -0000 1.8 @@ -50,7 +50,7 @@

Confirm New Subcategory

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] "Confirm New Subcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] "Confirm New Subcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subcategory-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subcategory-delete.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/cat/subcategory-delete.tcl 8 Mar 2004 19:46:13 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/cat/subcategory-delete.tcl 9 Mar 2004 00:59:46 -0000 1.5 @@ -23,7 +23,7 @@

Confirm Deletion

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars subcategory_id subcategory_name category_id category_name]" $subcategory_name] "Delete this Subcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars subcategory_id subcategory_name category_id category_name]" $subcategory_name] "Delete this Subcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subcategory.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subcategory.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/cat/subcategory.tcl 8 Mar 2004 19:46:13 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/cat/subcategory.tcl 9 Mar 2004 00:59:46 -0000 1.5 @@ -21,7 +21,7 @@

Subcategory: $subcategory_name

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] "One Subcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] "One Subcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl 8 Mar 2004 19:46:13 -0000 1.6 +++ openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add-0.tcl 9 Mar 2004 00:59:46 -0000 1.7 @@ -50,7 +50,7 @@

Add a New Subsubcategory

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Product Categories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]" $subcategory_name] "Add a New Subsubcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Product Categories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]" $subcategory_name] "Add a New Subsubcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add.tcl 8 Mar 2004 19:46:13 -0000 1.7 +++ openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-add.tcl 9 Mar 2004 00:59:46 -0000 1.8 @@ -54,7 +54,7 @@

Confirm New Subsubcategory

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] "Confirm New Subsubcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] "Confirm New Subsubcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-delete.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-delete.tcl 10 Sep 2002 22:22:38 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/cat/subsubcategory-delete.tcl 9 Mar 2004 00:59:46 -0000 1.3 @@ -29,7 +29,7 @@

Confirm Deletion

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars subcategory_id subcategory_name category_id category_name]" $subcategory_name] [list "subsubcategory?[export_url_vars subsubcategory_id subsubcategory_name subcategory_id subcategory_name category_id category_name]" $subsubcategory_name] "Delete this Subsubcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars subcategory_id subcategory_name category_id category_name]" $subcategory_name] [list "subsubcategory?[export_url_vars subsubcategory_id subsubcategory_name subcategory_id subcategory_name category_id category_name]" $subsubcategory_name] "Delete this Subsubcategory"]
Index: openacs-4/packages/ecommerce/www/admin/cat/subsubcategory.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/subsubcategory.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/cat/subsubcategory.tcl 8 Mar 2004 19:46:13 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/cat/subsubcategory.tcl 9 Mar 2004 00:59:46 -0000 1.5 @@ -27,7 +27,7 @@

Subsubcategory: $subsubcategory_name

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]" $subcategory_name] "One Subsubcategory"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Categories & Subcategories"] [list "category?[export_url_vars category_id category_name]" $category_name] [list "subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]" $subcategory_name] "One Subsubcategory"]
Index: openacs-4/packages/ecommerce/www/admin/customer-reviews/index-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-reviews/index-2.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-reviews/index-2.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-reviews/index-2.tcl 9 Mar 2004 00:59:46 -0000 1.3 @@ -34,13 +34,13 @@ } set page_title "$review_status Reviews" - set navbar [ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Reviews"] "$review_status Reviews"] + set navbar [ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Reviews"] "$review_status Reviews"] set return_url "index-2.tcl?[export_url_vars approved_p]" } elseif { [info exists product_id] } { set product_name [ec_product_name $product_id] set page_title $product_name - set navbar [ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "../products/index.tcl" "Products"] [list "../products/one.tcl?product_id=$product_id" "One"] "Customer Reviews"] + set navbar [ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "../products/index.tcl" "Products"] [list "../products/one.tcl?product_id=$product_id" "One"] "Customer Reviews"] set query_end "and p.product_id=:product_id" set return_url "index-2.tcl?[export_url_vars product_id]" } Index: openacs-4/packages/ecommerce/www/admin/customer-reviews/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-reviews/index.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-reviews/index.tcl 10 Sep 2002 22:22:40 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-reviews/index.tcl 9 Mar 2004 00:59:46 -0000 1.4 @@ -14,7 +14,7 @@

Customer Reviews

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] "Customer Reviews"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] "Customer Reviews"]
" Index: openacs-4/packages/ecommerce/www/admin/customer-reviews/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-reviews/one.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-reviews/one.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-reviews/one.tcl 9 Mar 2004 00:59:46 -0000 1.3 @@ -16,7 +16,7 @@

One Review

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Reviews"] "One Review"] +[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Reviews"] "One Review"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl 10 Sep 2002 22:22:40 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -37,7 +37,7 @@

Customer Service Actions

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Actions"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Actions"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -13,7 +13,7 @@ doc_return 200 text/html "[ad_admin_header "New Canned Response"]

New Canned Response

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "New Canned Response"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "New Canned Response"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -22,7 +22,7 @@ doc_return 200 text/html "[ad_admin_header "Edit Canned Response"]

Edit Canned Response

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "Edit Canned Response"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "Edit Canned Response"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -13,7 +13,7 @@ append doc_body "[ad_admin_header "Canned Responses"]

Canned Responses

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Canned Responses"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Canned Responses"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl 10 Sep 2002 22:22:40 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl 9 Mar 2004 00:59:47 -0000 1.5 @@ -44,7 +44,7 @@

Customer Search

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Customer Search"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Customer Search"]
Customers who spent more than [ec_pretty_price $amount [ad_parameter -package_id [ec_id] Currency ecommerce]] in the last $days days: Index: openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl 18 Sep 2002 21:33:49 -0000 1.6 +++ openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl 9 Mar 2004 00:59:47 -0000 1.7 @@ -30,7 +30,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl 10 Sep 2002 22:22:40 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -29,7 +29,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-void.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-void.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-void.tcl 18 Sep 2002 21:33:49 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-void.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -26,7 +26,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
Please explain why you are voiding this gift certificate: Index: openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificates.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificates.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificates.tcl 10 Sep 2002 22:22:40 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificates.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -16,7 +16,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl 10 Sep 2002 22:22:40 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -14,7 +14,7 @@

Customer Service Administration

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] "Customer Service Administration"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] "Customer Service Administration"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl 18 Sep 2002 21:33:49 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl 9 Mar 2004 00:59:47 -0000 1.6 @@ -116,7 +116,7 @@ append doc_body "[ad_admin_header "One Issue"]

One Issue

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "One Issue (part of New Interaction)"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "One Issue (part of New Interaction)"]
A customer may discuss several issues during the course of one interaction. Please Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-3.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-3.tcl 18 Sep 2002 21:33:49 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-3.tcl 9 Mar 2004 00:59:47 -0000 1.6 @@ -151,7 +151,7 @@ append doc_body "[ad_admin_header "User Doesn't Match Issue"]

User Doesn't Match Issue

- [ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"] + [ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"]
Issue ID $issue_id belongs to the registered user [db_string get_full_name "select first_names || ' ' || last_name from cc_users where user_id=:issue_user_id"]. @@ -183,7 +183,7 @@ append doc_body "[ad_admin_header "User Doesn't Match Issue"]

User Doesn't Match Issue

- [ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"] + [ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"]
Issue ID $issue_id belongs to the the non-registered person who has had a previous interaction with us: [ec_user_identification_summary $issue_user_identification_id] @@ -251,7 +251,7 @@ append doc_body "[ad_admin_header "User Doesn't Match Order"]

User Doesn't Match Order

- [ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"] + [ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"]
Order ID $order_id belongs to the registered user [db_string get_user_name "select first_names || ' ' || last_name from cc_users where user_id=:order_user_id"]. Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add.tcl 18 Sep 2002 21:33:49 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -38,7 +38,7 @@ append doc_body "[ad_admin_header "New Interaction"]

New Interaction

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "New Interaction"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction-summary.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction-summary.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/interaction-summary.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction-summary.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -19,7 +19,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -16,7 +16,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl 10 Sep 2002 22:22:40 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl 9 Mar 2004 00:59:47 -0000 1.5 @@ -39,7 +39,7 @@

Customer Service Interactions

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Issues"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Issues"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/issue-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/issue-edit.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/customer-service/issue-edit.tcl 18 Sep 2002 21:33:49 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/customer-service/issue-edit.tcl 9 Mar 2004 00:59:47 -0000 1.5 @@ -26,7 +26,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/issue-open-or-close.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/issue-open-or-close.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/issue-open-or-close.tcl 18 Sep 2002 21:33:49 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/issue-open-or-close.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -34,7 +34,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/issue.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/issue.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/issue.tcl 18 Sep 2002 21:33:49 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/issue.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -28,7 +28,7 @@ append doc_body "[ad_admin_header $page_title]

$page_title

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/issues.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/issues.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/issues.tcl 10 Sep 2002 22:22:40 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/issues.tcl 9 Mar 2004 00:59:47 -0000 1.4 @@ -56,7 +56,7 @@

Customer Service Issues

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Issues"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Issues"]
Index: openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl 10 Sep 2002 22:22:40 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl 9 Mar 2004 00:59:47 -0000 1.5 @@ -43,7 +43,7 @@

Add an Item

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "picklists.tcl" "Picklist Management"] "Add an Item"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "picklists.tcl" "Picklist Management"] "Add an Item"]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-delete.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-delete.tcl 10 Sep 2002 22:22:40 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-delete.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -16,7 +16,7 @@

Please Confirm Deletion

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "picklists.tcl" "Picklist Management"] "Delete Item"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "picklists.tcl" "Picklist Management"] "Delete Item"]
Please confirm that you wish to delete this item. Index: openacs-4/packages/ecommerce/www/admin/customer-service/picklists.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/picklists.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/picklists.tcl 10 Sep 2002 22:22:41 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/picklists.tcl 9 Mar 2004 00:59:47 -0000 1.3 @@ -15,7 +15,7 @@ append doc_body "[ad_admin_header "Picklist Management"]

Picklist Management

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Picklist Management"] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Picklist Management"]
These items will appear in the pull-down menus for customer service data entry. Index: openacs-4/packages/ecommerce/www/admin/customer-service/spam-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/spam-2.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/admin/customer-service/spam-2.tcl 18 Sep 2002 21:33:49 -0000 1.6 +++ openacs-4/packages/ecommerce/www/admin/customer-service/spam-2.tcl 9 Mar 2004 00:59:47 -0000 1.7 @@ -41,7 +41,7 @@ append doc_body "[ad_admin_header "Spam Users, Cont."]

Spam Users, Cont.

-[ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Spam Users, Cont."] +[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Spam Users, Cont."]
" Index: openacs-4/packages/ecommerce/www/admin/customer-service/spam-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/spam-3.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/ecommerce/www/admin/customer-service/spam-3.tcl 8 Mar 2004 19:46:14 -0000 1.7 +++ openacs-4/packages/ecommerce/www/admin/customer-service/spam-3.tcl 9 Mar 2004 00:59:47 -0000 1.8 @@ -61,7 +61,7 @@ append doc_body " [ad_admin_header "Spam Sent"]

Spam Sent

- [ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Spam Sent"] + [ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Spam Sent"]

You are seeing this page because you probably either hit reload or pushed the Submit button twice.

If you wonder whether the users got the spam, just check the customer service issues for one of the users (all mail sent to a user is recorded as a customer service issue).

@@ -174,7 +174,7 @@ [ad_admin_header "Spamming Users..."]

Spamming Users...

- [ad_admin_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Spamming Users..."] + [ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Spamming Users..."]