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.13 -r1.14 --- openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl 10 Sep 2002 22:22:36 -0000 1.13 +++ openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl 17 Sep 2002 03:36:38 -0000 1.14 @@ -208,40 +208,40 @@ # current_location can be "Shopping Cart", "Your Account", "Home", or # any category_id -ad_proc ec_footer { {current_location ""} {category_id ""} {subcategory_id ""} {search_text ""} } { returns the ecommerce footer } { - set to_return " -
-
- [ec_search_widget "$category_id|$subcategory_id" $search_text]" - if { [string compare $current_location "Shopping Cart"] == 0 } { - append to_return "Shopping Cart" - } else { - append to_return "Shopping Cart" - } - append to_return " | " - if { [string compare $current_location "Your Account"] == 0 } { - append to_return "Your Account" - } else { - append to_return "Your Account" - } - append to_return " | " - if { [string compare $current_location Home] == 0 } { - append to_return "[ec_system_name] Home" - } else { - append to_return "[ec_system_name] Home" - } - if { [llength [info procs ds_link]] == 1 } { - set ds_link [ds_link] - } else { - set ds_link "" - } - append to_return "
- [ad_system_name] -
-
- $ds_link" - return $to_return -} +# ad_proc ec_footer { {current_location ""} {category_id ""} {subcategory_id ""} {search_text ""} } { returns the ecommerce footer } { +# set to_return " +#
+#
+# [ec_search_widget "$category_id|$subcategory_id" $search_text]" +# if { [string compare $current_location "Shopping Cart"] == 0 } { +# append to_return "Shopping Cart" +# } else { +# append to_return "Shopping Cart" +# } +# append to_return " | " +# if { [string compare $current_location "Your Account"] == 0 } { +# append to_return "Your Account" +# } else { +# append to_return "Your Account" +# } +# append to_return " | " +# if { [string compare $current_location Home] == 0 } { +# append to_return "[ec_system_name] Home" +# } else { +# append to_return "[ec_system_name] Home" +# } +# if { [llength [info procs ds_link]] == 1 } { +# set ds_link [ds_link] +# } else { +# set ds_link "" +# } +# append to_return "
+# [ad_system_name] +#
+#
+# $ds_link" +# return $to_return +# } # For administrators ad_proc ec_shipping_cost_summary { base_shipping_cost default_shipping_per_item weight_shipping_cost add_exp_base_shipping_cost add_exp_amount_per_item add_exp_amount_by_weight } { returns cost summary } { Index: openacs-4/packages/ecommerce/www/account.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/account.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/account.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/account.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,10 @@ - -Your account -Your Account + + Your account + @context_bar@ + @ec_system_owner@ + +
  • Your workspace at <%= [ad_system_name] %>
  • Index: openacs-4/packages/ecommerce/www/account.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/account.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/account.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/account.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -107,4 +107,7 @@ $mailing_lists
" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Account"]]] +set ec_system_owner [ec_system_owner] + db_release_unused_handles 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.3 -r1.4 --- openacs-4/packages/ecommerce/www/address-international.adp 15 Sep 2002 01:50:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/address-international.adp 17 Sep 2002 03:36:34 -0000 1.4 @@ -1,13 +1,15 @@ - -Enter Your Address + + Enter Your Address + @context_bar@ + @ec_system_owner@ - checkout {Select Shipping Address} +

Enter Your Shipping Address

- checkout {Select Billing Address} +

Enter Your Billing Address

Index: openacs-4/packages/ecommerce/www/address-international.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/address-international.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/address-international.tcl 15 Sep 2002 01:50:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/address-international.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -58,4 +58,6 @@ append hidden_form_vars "[export_form_vars [ns_set key $form_set $i]]" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/address.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/address.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/address.adp 15 Sep 2002 01:50:50 -0000 1.4 +++ openacs-4/packages/ecommerce/www/address.adp 17 Sep 2002 03:36:34 -0000 1.5 @@ -1,14 +1,18 @@ - + + @context_bar@ + @ec_system_owner@ Enter Your Shipping Address - checkout {Select Shipping Address} + + +

Enter Your Shipping Address

Enter Your Billing Address - checkout {Select Billing Address} +

Enter Your Billing Address

Index: openacs-4/packages/ecommerce/www/address.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/address.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/address.tcl 15 Sep 2002 01:50:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/address.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -40,7 +40,7 @@ # outside the United States. if { ![string equal $country_code "US"] } { - ad_returnredirect "address-international?[export_url_vars address_id address_type]" + ad_returnredirect "address-international?[export_url_vars address_id address_type referer]" } if { [info exists usps_abbrev] } { @@ -84,4 +84,6 @@ } set user_name_with_quotes_escaped [ad_quotehtml $attn] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/billing.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/billing.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/billing.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/billing.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,10 @@ - -Completing Your Order -checkout {Select Billing Address} + + Completing Your Order + @context_bar@ + @ec_system_owner@ + +

Select Your Billing Address

Index: openacs-4/packages/ecommerce/www/billing.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/billing.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/billing.tcl 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/billing.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -138,4 +138,6 @@ } set hidden_form_vars [export_form_vars address_type referer] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/browse-categories.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/browse-categories.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/browse-categories.adp 17 Sep 2002 03:36:34 -0000 1.1 @@ -0,0 +1,29 @@ +

Browse

+ + + + + + + + + + + + + + + + + +
+ + + + + +   + +
Index: openacs-4/packages/ecommerce/www/browse-categories.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/browse-categories.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/browse-categories.tcl 17 Sep 2002 03:36:34 -0000 1.1 @@ -0,0 +1,14 @@ +ad_page_contract { + + Present a list of top level product categories to browse. + + @author Bart Teeuwisse + @creation-date September 2002 + @cvs_id + +} { +} + +template::query get_categories categories multirow "select category_id as id, category_name as name from ec_categories order by sort_key" -eval { + set row(url) "category-browse?category_id=$row(id)" +} Index: openacs-4/packages/ecommerce/www/category-browse-subcategory.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse-subcategory.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/category-browse-subcategory.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/category-browse-subcategory.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,9 +1,11 @@ - -@the_category_name@ -@the_category_id@ + + @subcategory_name@ + @context_bar@ + @ec_system_owner@ + +
-

@the_category_name@

Index: openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -213,12 +213,14 @@ ORDER BY sort_key, sub${sub}category_name " { - + ns_log notice "loop" append subcategories "
  • [eval "ident \$sub${sub}category_name"]" } } set the_category_id $category_id set the_category_name [eval "ident \$${sub}category_name"] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list [list "category-browse?category_id=$the_category_id" $category_name] $subcategory_name]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/category-browse-subsubcategory.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse-subsubcategory.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/category-browse-subsubcategory.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/category-browse-subsubcategory.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,9 +1,11 @@ - -@the_category_name@ -@the_category_id@ + + @subsubcategory_name@ + @context_bar@ + @ec_system_owner@ + +
    -

    @the_category_name@

  • Index: openacs-4/packages/ecommerce/www/category-browse-subsubcategory.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse-subsubcategory.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/category-browse-subsubcategory.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/category-browse-subsubcategory.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -217,5 +217,7 @@ set the_category_id $category_id set the_category_name [eval "ident \$${sub}category_name"] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list [list "category-browse?category_id=$the_category_id" $category_name] [list "category-browse-subcategory?category_id=$the_category_id&subcategory_id=$subcategory_id" $subcategory_name] $the_category_name]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/category-browse.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/category-browse.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/category-browse.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,9 +1,11 @@ - -@the_category_name@ -@the_category_id@ + + @the_category_name@ + @context_bar@ + @ec_system_owner@ + +
    -

    @the_category_name@

    Index: openacs-4/packages/ecommerce/www/category-browse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/category-browse.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/category-browse.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -256,5 +256,7 @@ set the_category_id [eval "ident \$${sub}category_id"] set the_category_name [eval "ident \$${sub}category_name"] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $the_category_name]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/checkout-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-2.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/checkout-2.adp 27 May 2002 03:15:12 -0000 1.2 +++ openacs-4/packages/ecommerce/www/checkout-2.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,10 @@ - -Completing Your Order -checkout {Verify Order} + + Completing Your Order + @context_bar@ + @ec_system_owner@ + +

    Check Your Order

    Index: openacs-4/packages/ecommerce/www/checkout-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-2.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/ecommerce/www/checkout-2.tcl 27 May 2002 03:15:12 -0000 1.7 +++ openacs-4/packages/ecommerce/www/checkout-2.tcl 17 Sep 2002 03:36:34 -0000 1.8 @@ -186,5 +186,7 @@ No" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/checkout-3.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-3.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/checkout-3.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/checkout-3.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,10 @@ - -Please Confirm Your Order -checkout {Confirm Order} + + Completing Your Order + @context_bar@ + @ec_system_owner@ + +

    Please Confirm Your Order

    Index: openacs-4/packages/ecommerce/www/checkout-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-3.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/checkout-3.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/checkout-3.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -146,4 +146,6 @@ # them a summary before they submit their order set order_summary [ec_order_summary_for_customer $order_id $user_id] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/checkout-progress.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/checkout-progress.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/checkout-progress.adp 17 Sep 2002 03:37:50 -0000 1.1 @@ -0,0 +1,19 @@ +
    + + + + + + + + + + + + + + + + + +
    Select Shipping Address--->Verify Order--->Select Shipping Method--->Select Billing Address--->Enter Payment Info--->Confirm Order
    Index: openacs-4/packages/ecommerce/www/checkout-progress.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/checkout-progress.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/checkout-progress.tcl 17 Sep 2002 03:37:50 -0000 1.1 @@ -0,0 +1 @@ +set express_shipping_avail_p [ad_parameter -package_id [ec_id] ExpressShippingP ecommerce] Index: openacs-4/packages/ecommerce/www/checkout.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/checkout.adp 5 Aug 2002 15:29:18 -0000 1.2 +++ openacs-4/packages/ecommerce/www/checkout.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,10 @@ - -Completing Your Order -checkout {Select Shipping Address} + + Completing Your Order + @context_bar@ + @ec_system_owner@ + +

    Select Your Shipping Address

    Index: openacs-4/packages/ecommerce/www/checkout.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/ecommerce/www/checkout.tcl 15 Sep 2002 01:50:50 -0000 1.7 +++ openacs-4/packages/ecommerce/www/checkout.tcl 17 Sep 2002 03:36:34 -0000 1.8 @@ -88,4 +88,6 @@ ad_returnredirect "checkout-2?[export_url_vars address_id address_type]" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/contextbar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/contextbar.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/contextbar.adp 17 Sep 2002 03:36:34 -0000 1.1 @@ -0,0 +1 @@ +
    @context_bar@ Administer ]
    Index: openacs-4/packages/ecommerce/www/contextbar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/contextbar.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/contextbar.tcl 17 Sep 2002 03:36:34 -0000 1.1 @@ -0,0 +1,34 @@ +# Display the ecommerce toolbar containing a product search widget, +# a link to order gift certificates (if they are allowed) and links +# to the shopping cart and store account. + +# @param context_addition + +# @author Bart Teeuwisse +# @cvs-id $Id: contextbar.tcl,v 1.1 2002/09/17 03:36:34 bartt Exp $ +# @creation-date September 2002 + +# Create an empty context_addition list if no addition has been passed +# in. + +if {![info exists context_addition]} { + set context_addition {} +} + +# Create a context bar with the passed in addition(s) if any. + +if {[empty_string_p $context_addition]} { + set context_bar [ad_context_bar] +} else { + set context_bar [eval ad_context_bar $context_addition] +} + +# Check for admin rights to this (the ecommerce) package. + +set ec_admin_p [ad_permission_p [ad_conn package_id] admin] +set ec_admin_link [ec_insecurelink [ad_parameter -package_id [ec_id] EcommercePath]admin/] + +# Get the name of the ecommerce package + +set ec_system_name [ec_system_name] + Index: openacs-4/packages/ecommerce/www/credit-card-correction.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/credit-card-correction.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/credit-card-correction.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/credit-card-correction.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,6 +1,10 @@ - -Sorry, We Were Unable to Authorize Your Credit Card + + Completing Your Order + @context_bar@ + @ec_system_owner@ + +

    Sorry, We Were Unable to Authorize Your Credit Card

    Index: openacs-4/packages/ecommerce/www/credit-card-correction.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/credit-card-correction.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/credit-card-correction.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/credit-card-correction.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -103,4 +103,6 @@ set ec_expires_widget "[ec_creditcard_expire_1_widget [string range $creditcard_expire 0 1]] [ec_creditcard_expire_2_widget [string range $creditcard_expire 3 4]]" set formatted_address [ec_display_as_html [ec_pretty_mailing_address_from_args $line1 $line2 $city $usps_abbrev $zip_code $country_code $full_state_name $attn $phone $phone_time]] set international_address [string equal $country_code 'US'] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/gift-certificate-billing.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-billing.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-billing.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-billing.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Completing Your Order + + Completing Your Order + @context_bar@ + @ec_system_owner@ -

    Select Your Billing Address

    +
    Index: openacs-4/packages/ecommerce/www/gift-certificate-billing.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-billing.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/gift-certificate-billing.tcl 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/gift-certificate-billing.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -108,3 +108,6 @@ } set hidden_form_vars [export_form_vars address_type certificate_to certificate_from certificate_message amount recipient_email referer] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] + Index: openacs-4/packages/ecommerce/www/gift-certificate-claim-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-claim-2.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/gift-certificate-claim-2.adp 17 Sep 2002 03:37:50 -0000 1.1 @@ -0,0 +1,22 @@ + + @title@ + @context_bar@ + @ec_system_owner@ + + + +
    + +

    <%= [ec_pretty_price @amount@] %> has been added to your gift + certificate account!

    +
    + +

    Your gift certificate has already been claimed. Either you + hit submit twice on the form, or it was claimed previously. + Once you claim it, it goes into your gift certificate balance + and you don't have to claim it again.

    +
    +

    Continue with your + order

    +
    + Index: openacs-4/packages/ecommerce/www/gift-certificate-claim-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-claim-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/gift-certificate-claim-2.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/gift-certificate-claim-2.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -67,6 +67,9 @@ # now check whether it's already been claimed # and, if so, whether it was claimed by this user +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] + db_1row get_gc_user_id " select user_id as gift_certificate_user_id, amount from ec_gift_certificates @@ -80,15 +83,8 @@ update ec_gift_certificates set user_id=:user_id, claimed_date = sysdate where gift_certificate_id = :gift_certificate_id" - doc_return 200 text/html " - [ad_header "Gift Certificate Claimed"] - [ec_header_image]
    -
    -

    [ec_pretty_price $amount] has been added to your gift certificate account!

    -

    Continue with your order

    -
    - [ec_footer]" - + set title "Gift Certificate Claimed" + set certificate_added_p "true" } else { # It's already been claimed. See if it was claimed by a different @@ -106,15 +102,7 @@ (ec_problem_id_sequence.nextval, sysdate, :gift_certificate_id, :prob_details)" } + set title "Gift Certificate Already Claimed" + set certificate_added_p "false" db_release_unused_handles - doc_return 200 text/html " - [ad_header "Gift Certificate Already Claimed"] - [ec_header_image]
    -
    -

    Your gift certificate has already been claimed. Either you hit submit twice on the form, or it - was claimed previously. Once you claim it, it goes into your gift certificate balance and you don't have to claim it again.

    -

    Continue with your order

    -
    - [ec_footer]" - } Index: openacs-4/packages/ecommerce/www/gift-certificate-claim.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-claim.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-claim.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-claim.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Claim a Gift Certificate + + Claim a Gift Certificate + @context_bar@ + @ec_system_owner@ -

    Claim a Gift Certificate

    +
    Index: openacs-4/packages/ecommerce/www/gift-certificate-claim.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-claim.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/gift-certificate-claim.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/gift-certificate-claim.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -37,3 +37,6 @@ ad_returnredirect "index" return } + +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Claim a Gift Certificate"]]] +set ec_system_owner [ec_system_owner] Index: openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -@title@ + + @title@ + @context_bar@ + @ec_system_owner@ -

    @title@

    + @page@ Index: openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.tcl 26 May 2002 04:36:50 -0000 1.4 +++ openacs-4/packages/ecommerce/www/gift-certificate-finalize-order.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -184,7 +184,7 @@ credit card. Please check the number and the expiration date and try again or use a different credit card.

    - [export_form_vars gift_certificate_id certificate_to certificate_from certificate_message amount recipient_email] + [export_form_vars gift_certificate_id certificate_to certificate_from certificate_message amount recipient_email address_id] @@ -420,7 +420,7 @@ credit card. Please check the number and the expiration date and try again or use a different credit card.

    - [export_form_vars gift_certificate_id certificate_to certificate_from certificate_message amount recipient_email] + [export_form_vars gift_certificate_id certificate_to certificate_from certificate_message amount recipient_email address_id]
    Credit card number:
    @@ -521,3 +521,5 @@ } } } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition $title]] +set ec_system_owner [ec_system_owner] Index: openacs-4/packages/ecommerce/www/gift-certificate-order-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order-2.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-order-2.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-order-2.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Your Gift Certificate Order + + Your Gift Certificate Order + @context_bar@ + @ec_system_owner@ -

    Your Gift Certificate Order

    +
      Index: openacs-4/packages/ecommerce/www/gift-certificate-order-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/gift-certificate-order-2.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/gift-certificate-order-2.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -34,5 +34,7 @@ set currency [ad_parameter -package_id [ec_id] Currency ecommerce] set minimum_amount [ec_pretty_price [ad_parameter -package_id [ec_id] MinGiftCertificateAmount ecommerce]] set maximum_amount [ec_pretty_price [ad_parameter -package_id [ec_id] MaxGiftCertificateAmount ecommerce]] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Gift Certificate Order"]]] +set ec_system_owner [ec_system_owner] ad_return_template Index: openacs-4/packages/ecommerce/www/gift-certificate-order-3.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order-3.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-order-3.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-order-3.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Payment Info + + Payment Info + @context_bar@ + @ec_system_owner@ -

      Payment Info

      + @hidden_form_variables@ Index: openacs-4/packages/ecommerce/www/gift-certificate-order-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order-3.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/gift-certificate-order-3.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/gift-certificate-order-3.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -38,5 +38,7 @@ set ec_creditcard_widget [ec_creditcard_widget] set ec_expires_widget "[ec_creditcard_expire_1_widget] [ec_creditcard_expire_2_widget]" set hidden_form_variables [export_form_vars address_id certificate_to certificate_from certificate_message amount recipient_email] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Payment Info"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/gift-certificate-order-4.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order-4.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-order-4.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-order-4.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Please Confirm Your Gift Certificate Order + + Please Confirm Your Gift Certificate Order + @context_bar@ + @ec_system_owner@ -

      Please Confirm Your Gift Certificate Order

      +
      @@ -77,4 +79,4 @@
      Push Submit to send us your order! - \ No newline at end of file + Index: openacs-4/packages/ecommerce/www/gift-certificate-order-4.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order-4.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/gift-certificate-order-4.tcl 26 May 2002 04:36:50 -0000 1.4 +++ openacs-4/packages/ecommerce/www/gift-certificate-order-4.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -148,4 +148,6 @@ set formatted_amount [ec_pretty_price $amount] set zero_in_the_correct_currency [ec_pretty_price 0] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Please Confirm Your Gift Certificate Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/gift-certificate-order.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-order.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-order.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Gift Certificates + + Gift Certificates + @context_bar@ + @ec_system_owner@ -

      Gift Certificates

      +

      The perfect gift for anyone, gift certificates can be used to to @@ -26,4 +28,4 @@ @minimum_amount@ and @maximum_amount@. -

      \ No newline at end of file + Index: openacs-4/packages/ecommerce/www/gift-certificate-order.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-order.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/gift-certificate-order.tcl 10 Sep 2002 22:22:37 -0000 1.4 +++ openacs-4/packages/ecommerce/www/gift-certificate-order.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -19,5 +19,7 @@ # ec_redirect_to_https_if_possible_and_necessary handles secure connections # from linked to pages set order_url "gift-certificate-order-2" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Gift Certificates"]]] +set ec_system_owner [ec_system_owner] ad_return_template Index: openacs-4/packages/ecommerce/www/gift-certificate-thank-you.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-thank-you.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate-thank-you.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate-thank-you.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Thank You For Your Gift Certificate Order + + Thank You For Your Gift Certificate Order + @context_bar@ + @ec_system_owner@ -

      Thank You For Your Gift Certificate Order

      +

      The lucky recipient will be notified by email shortly!

      Index: openacs-4/packages/ecommerce/www/gift-certificate-thank-you.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate-thank-you.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/gift-certificate-thank-you.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/gift-certificate-thank-you.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -13,4 +13,7 @@ } set home_page "[ec_insecure_location][ec_url]index" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Thank You For Your Gift Certificate Order"]]] +set ec_system_owner [ec_system_owner] + ad_return_template Index: openacs-4/packages/ecommerce/www/gift-certificate.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/gift-certificate.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/gift-certificate.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,8 +1,10 @@ - -Your Gift Certificate + + Your Gift Certificate + @context_bar@ + @ec_system_owner@ -

      Your Gift Certificate

      +
      @gift_certificate_summary@ -
      \ No newline at end of file +
      Index: openacs-4/packages/ecommerce/www/gift-certificate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/gift-certificate.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/gift-certificate.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/gift-certificate.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -72,6 +72,9 @@ " } } + +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Gift Certificate"]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/index.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/index.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/index.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,32 +1,28 @@ - -Welcome -Home + + Welcome + @context_bar@ -
      - - Welcome back @user_name@!   If you're not @user_name@, click here - - - Welcome! - + - @search_widget@ +
      + + Welcome back @user_name@!   If you're not @user_name@, click here + + + Welcome! + - -

      We recommend:

      - @recommendations_if_there_are_any@ -
      + - -

      Products:

      - @products@ -
      + +

      We recommend:

      + @recommendations_if_there_are_any@ +
      - @prev_link@ @separator@ @next_link@ + +

      Products:

      + @products@ +
      - -

      - Order a Gift Certificate! -

      -
      -
      + @prev_link@ @separator@ @next_link@ +
      Index: openacs-4/packages/ecommerce/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/index.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/index.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/index.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -92,11 +92,6 @@ append recommendations_if_there_are_any "
    Credit card number:
    " } -if { [ad_parameter -package_id [ec_id] SellGiftCertificatesP ecommerce] == 1 } { - set gift_certificates_are_allowed 1 -} else { - set gift_certificates_are_allowed 0 -} set products "" set have_how_many_more_p f @@ -162,5 +157,6 @@ set separator "|" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar ""] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/mailing-list-add-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/mailing-list-add-2.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/mailing-list-add-2.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/mailing-list-add-2.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,9 +1,10 @@ - -You've been added to the @mailing_list_name@ mailing list! + + @title@ + @context_bar@ + @ec_system_owner@ -

    You've been added to the @mailing_list_name@ mailing list!

    +
    To remove yourself anytime, go to @remove_link@ - @continue_shopping_options@
    Index: openacs-4/packages/ecommerce/www/mailing-list-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/mailing-list-add-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/mailing-list-add-2.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/mailing-list-add-2.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -58,7 +58,9 @@ set remove_link "[ec_insecure_location][ec_url]mailing-list-remove?[export_url_vars category_id subcategory_id subsubcategory_id]" -set continue_shopping_options [ec_continue_shopping_options] +set title "You subscribed to the $mailing_list_name mailing list" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $title]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/mailing-list-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/mailing-list-add.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/mailing-list-add.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/mailing-list-add.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,8 +1,8 @@ - -Add yourself to the @mailing_list_name@ mailing list! + + @title@ + @context_bar@ + @ec_system_owner@ -

    Add yourself to the @mailing_list_name@ mailing list!

    -
    We think that you are @user_name@. If not, please log in. Otherwise,
    Index: openacs-4/packages/ecommerce/www/mailing-list-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/mailing-list-add.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/mailing-list-add.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/mailing-list-add.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -68,5 +68,8 @@ set register_link "/register?[export_url_vars return_url]" set hidden_form_variables [export_form_vars category_id subcategory_id subsubcategory_id] +set title "Subscribe to the $mailing_list_name mailing list" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $title]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/mailing-list-remove.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/mailing-list-remove.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/mailing-list-remove.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/mailing-list-remove.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,12 +1,13 @@ - -You've been removed from the @mailing_list_name@ mailing list + + $title + @context_bar@ + @ec_system_owner@ -

    You've been removed from the @mailing_list_name@ mailing list

    +

    To re-add yourself anytime, go to @re_add_link@

    To see your other subscriptions (if any), return to @back_to_account_link@.

    - @continue_shopping_options@
    Index: openacs-4/packages/ecommerce/www/mailing-list-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/mailing-list-remove.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/mailing-list-remove.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/mailing-list-remove.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -82,7 +82,9 @@ set re_add_link " [ec_insecure_location][ec_url]mailing-list-add?[export_url_vars category_id subcategory_id subsubcategory_id]" set back_to_account_link "Your Account" -set continue_shopping_options [ec_continue_shopping_options] +set title "You unsubscribed from the $mailing_list_name mailing list" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $title]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/order.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/order.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/order.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/order.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,8 +1,10 @@ - -Your Order + + Your Order + @context_bar@ + @ec_system_owner@ -

    Your Order

    + -
    - @order_summary@ -
    \ No newline at end of file +
    + @order_summary@ +
    Index: openacs-4/packages/ecommerce/www/order.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/order.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/order.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/order.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -30,6 +30,8 @@ set user_session_id [ec_get_user_session_id] ec_create_new_session_if_necessary [export_url_vars order_id] ec_log_user_as_user_id_for_this_session +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Order"]]] +set ec_system_owner [ec_system_owner] set order_summary "
    Index: openacs-4/packages/ecommerce/www/payment.adp
    ===================================================================
    RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/payment.adp,v
    diff -u -r1.2 -r1.3
    --- openacs-4/packages/ecommerce/www/payment.adp	15 Sep 2002 01:50:50 -0000	1.2
    +++ openacs-4/packages/ecommerce/www/payment.adp	17 Sep 2002 03:36:34 -0000	1.3
    @@ -1,7 +1,10 @@
    -
    -Payment Info
    -checkout {Enter Payment Info}
    +
    +  Completing Your Order
    +  @context_bar@
    +  @ec_system_owner@
     
    +  
    +
     

    Payment Info

    Index: openacs-4/packages/ecommerce/www/payment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/payment.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/payment.tcl 26 May 2002 04:36:50 -0000 1.4 +++ openacs-4/packages/ecommerce/www/payment.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -51,7 +51,7 @@ # No rows came back, so they probably got here by pushing "Back", # so just redirect them to index.tcl - ad_returnredirect index.tcl + ad_returnredirect index return } @@ -70,7 +70,7 @@ # otherwise they've probably gotten here via url surgery, so # redirect them to checkout.tcl - ad_returnredirect checkout.tcl + ad_returnredirect checkout return } @@ -99,7 +99,7 @@ select count(*) from ec_items where order_id=:order_id"] == 0 } { - ad_returnredirect shopping-cart.tcl + ad_returnredirect shopping-cart return } @@ -131,7 +131,7 @@ # Now get the other necessary information -set form_action [ec_securelink [ec_url]process-payment.tcl] +set form_action [ec_securelink [ec_url]process-payment # ec_order_cost returns price + shipping + tax - gift_certificate BUT # no gift certificates have been applied to in_basket orders, so this @@ -227,5 +227,7 @@ append old_cards_to_choose_from "
    " } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/product-search.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/product-search.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/product-search.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/product-search.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,11 +1,13 @@ - -@category_name@ + + @category_name@ + @context_bar@ + @ec_system_owner@ -

    @category_name@:

    + -
    - @search_results@ -
    +
    + @search_results@ +
    Index: openacs-4/packages/ecommerce/www/product-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/product-search.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/product-search.tcl 26 May 2002 04:36:50 -0000 1.4 +++ openacs-4/packages/ecommerce/www/product-search.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -109,5 +109,8 @@ } else { set search_results " $search_count item[ec_decode $search_count "1" "" "s"] found.

    $search_string" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "$category_name"]]] +set ec_system_owner [ec_system_owner] + db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/product.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/product.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/product.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/product.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,5 +1,8 @@ - -@product_name@ -@category_id@ + + @product_name@ + @context_bar@ + @ec_system_owner@ -@formatted_product@ + + + @formatted_product@ Index: openacs-4/packages/ecommerce/www/product.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/product.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/product.tcl 13 Sep 2002 00:13:11 -0000 1.4 +++ openacs-4/packages/ecommerce/www/product.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -184,4 +184,7 @@ } db_release_unused_handles +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition $product_name]] +set ec_system_owner [ec_system_owner] + set formatted_product [ns_adp_parse -string $template] Index: openacs-4/packages/ecommerce/www/review-submit-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/review-submit-2.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/review-submit-2.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/review-submit-2.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,9 @@ - -Check Your Review + + Check Your Review of @product_name@ + @context_bar@ + @ec_system_owner@ -

    Check your review of @product_name@

    +
    Index: openacs-4/packages/ecommerce/www/review-submit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/review-submit-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/review-submit-2.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/review-submit-2.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -66,5 +66,8 @@ [ec_display_as_html $user_comment]" set system_name [ad_system_name] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Check Your Review"]]] +set ec_system_owner [ec_system_owner] + db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/review-submit-3.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/review-submit-3.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/review-submit-3.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/review-submit-3.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,15 +1,17 @@ - -Thank you for your review of @product_name@ + + Thank You For Your Review of @product_name@ + @context_bar@ + @ec_system_owner@ -

    Thank you for your review of @product_name@

    +

    Your review has been received. Thanks for sharing your thoughts with us! It can take a few days for your review to appear on our web site. If your review has not appeared on our site and you would like to know why, please send an email to @system_owner_email@.

    + href="@ec_system_owner@">@ec_system_owner@.

    Your review has been received. Thanks for sharing your Index: openacs-4/packages/ecommerce/www/review-submit-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/review-submit-3.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/review-submit-3.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/review-submit-3.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -61,8 +61,9 @@ } set comments_need_approval [ad_parameter -package_id [ec_id] ProductCommentsNeedApprovalP] -set system_owner_email [ec_system_owner] set product_link "product?[export_url_vars product_id]" +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Thank You For Your Review"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/review-submit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/review-submit.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/review-submit.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/review-submit.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,9 @@ - -Write your own review of $product_name + + Write Your Own Review of @product_name@ + @context_bar@ + @ec_system_owner@ -

    Write your own review of @product_name@

    + Index: openacs-4/packages/ecommerce/www/review-submit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/review-submit.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/review-submit.tcl 10 Sep 2002 22:22:37 -0000 1.3 +++ openacs-4/packages/ecommerce/www/review-submit.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -39,6 +39,8 @@ lappend altered_prev_args_list $product_name set rating_widget [ec_rating_widget] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Write Your Own Review"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/select-shipping.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/select-shipping.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/select-shipping.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/select-shipping.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,11 @@ - -Completing Your Order -checkout {Select Shipping Method} + + Completing Your Order + @context_bar@ + @ec_system_owner@ + + +

    Select Your Shipping Method

    @@ -12,4 +16,4 @@
    - \ No newline at end of file + Index: openacs-4/packages/ecommerce/www/select-shipping.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/select-shipping.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/select-shipping.tcl 15 Sep 2002 01:50:50 -0000 1.5 +++ openacs-4/packages/ecommerce/www/select-shipping.tcl 17 Sep 2002 03:36:34 -0000 1.6 @@ -272,4 +272,6 @@ append shipping_options "[export_form_vars tax_exempt_p]" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles Index: openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,9 +1,11 @@ - -Select Shopping Cart + + Select Shopping Cart + @context_bar@ + @ec_system_owner@ -

    Select Shopping Cart

    +

    Your saved shopping cart(s):

    @saved_carts@ -
    \ No newline at end of file +
    Index: openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.tcl 10 Sep 2002 22:22:37 -0000 1.3 +++ openacs-4/packages/ecommerce/www/shopping-cart-retrieve-2.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -58,5 +58,8 @@ append saved_carts "No shopping carts were found.\n" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Select Shopping Cart"]]] +set ec_system_owner [ec_system_owner] + db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,9 @@ - -@page_title@ + + @page_title@ + @context_bar@ + @ec_system_owner@ -

    <@page_title@

    +
    Index: openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/shopping-cart-retrieve-3.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -134,6 +134,8 @@ incr product_counter } + set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $page_title]]] + set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template return @@ -217,6 +219,8 @@ set page_title "Merge or Replace Your Current Shopping Cart?" set page_function "retrieve" set hidden_form_variables [export_form_vars order_id] + set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $page_title]]] + set ec_system_owner [ec_system_owner] ad_return_template return @@ -378,6 +382,8 @@ set page_function "discard" set hidden_form_variables "[export_form_vars order_id] [ec_hidden_input discard_confirmed_p "t"]" + set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $page_title]]] + set ec_system_owner [ec_system_owner] ad_return_template return Index: openacs-4/packages/ecommerce/www/shopping-cart-retrieve.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-retrieve.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/shopping-cart-retrieve.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/shopping-cart-retrieve.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,9 @@ - -Retrieve Shopping Cart + + Retrieve Shopping Cart + @context_bar@ + @ec_system_owner@ -

    Retrieve Your Shopping Cart

    +

    We think that you are @user_name@. If not, please -Your Shopping Cart Has Been Saved + + Your Shopping Cart Has Been Saved + @context_bar@ + @ec_system_owner@ -

    Your Shopping Cart Has Been Saved

    +

    When you're ready to return to it, just click on "Retrieve Saved Index: openacs-4/packages/ecommerce/www/shopping-cart-save-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-save-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/shopping-cart-save-2.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/shopping-cart-save-2.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -49,6 +49,8 @@ # fine set cart_duration [ad_parameter CartDuration default [ad_parameter -package_id [ec_id] CartDuration]] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Shopping Cart Has Been Saved"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/shopping-cart-save.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart-save.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/shopping-cart-save.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/shopping-cart-save.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,9 @@ - -Save Shopping Cart + + Save Shopping Cart + @context_bar@ + @ec_system_owner@ -

    Save Your Shopping Cart

    +

    We think that you are @user_name@. If not, please -Your Shopping Cart -Your Shopping Cart + + Your Shopping Cart + @context_bar@ + @ec_system_owner@ + +

    Shopping Cart

    for @first_names@ @last_name@ (if you're not @first_names@ @last_name@, @@ -87,7 +90,7 @@
  • Continue Shopping
  • -
  • Log In
  • Index: openacs-4/packages/ecommerce/www/shopping-cart.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/shopping-cart.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/shopping-cart.tcl 5 Aug 2002 22:56:27 -0000 1.6 +++ openacs-4/packages/ecommerce/www/shopping-cart.tcl 17 Sep 2002 03:36:34 -0000 1.7 @@ -126,5 +126,7 @@ and saved_p='t')" -default ""] } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Shopping Cart"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/thank-you.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/thank-you.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/thank-you.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/thank-you.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,9 +1,11 @@ - -Thank You For Your Order + + Thank You For Your Order + @context_bar@ + @ec_system_owner@ -

    Thank You For Your Order

    +

    Please print this page for your records

    @order_summary@ -
    \ No newline at end of file +
    Index: openacs-4/packages/ecommerce/www/thank-you.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/thank-you.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/thank-you.tcl 26 May 2002 04:36:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/thank-you.tcl 17 Sep 2002 03:36:34 -0000 1.3 @@ -52,6 +52,8 @@ } set order_summary [ec_order_summary_for_customer $order_id $user_id] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Thank You For Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/toolbar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/toolbar.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/toolbar.adp 17 Sep 2002 03:36:34 -0000 1.1 @@ -0,0 +1,20 @@ + + + + + + + +
    @ec_search_widget@ + + [ Order a Gift Certificate ] + + + [ Shopping Cart ] + + + [ Your Account ] + +
    +

    + Index: openacs-4/packages/ecommerce/www/toolbar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/toolbar.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/toolbar.tcl 17 Sep 2002 03:36:34 -0000 1.1 @@ -0,0 +1,38 @@ +# Display the ecommerce toolbar containing a product search widget, +# a link to order gift certificates (if they are allowed) and links +# to the shopping cart and store account. + +# @param category_id +# @param subcategory_id +# @param search_text +# @current_location + +# @author Bart Teeuwisse +# @cvs-id $Id: toolbar.tcl,v 1.1 2002/09/17 03:36:34 bartt Exp $ +# @creation-date September 2002 + +# Create empty lists for each optional parameter that has not been +# passed in. + +foreach parameter {category_id subcategory_id search_text current_location} { + if {![info exists $parameter]} { + set $parameter {} + } +} + +# Create a context aware search widget to search for products. + +set ec_search_widget [ec_search_widget "$category_id|$subcategory_id" $search_text] + +# Determine the URLs to the Shopping Cart and store Account. + +set ec_cart_link [ec_insecurelink [ad_parameter -package_id [ec_id] EcommercePath]shopping-cart] +set ec_account_link [ec_insecurelink [ad_parameter -package_id [ec_id] EcommercePath]account] + +# Get the name of the ecommerce package + +set ec_system_name [ec_system_name] + +# Check if gift certificates can be bought. + +set gift_certificates_are_allowed [ad_parameter -package_id [ec_id] SellGiftCertificatesP ecommerce] Index: openacs-4/packages/ecommerce/www/track.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/track.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/track.adp 26 May 2002 05:09:57 -0000 1.1 +++ openacs-4/packages/ecommerce/www/track.adp 17 Sep 2002 03:36:34 -0000 1.2 @@ -1,7 +1,9 @@ - -Your Shipment + + Your Shipment + @context_bar@ + @ec_system_owner@ -

    Your Shipment

    +
    • Shipping Date: @pretty_ship_date@
    • @@ -13,4 +15,4 @@
      @carrier_info@ -
      \ No newline at end of file +
    Index: openacs-4/packages/ecommerce/www/track.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/track.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/track.tcl 26 May 2002 04:36:50 -0000 1.5 +++ openacs-4/packages/ecommerce/www/track.tcl 17 Sep 2002 03:36:34 -0000 1.6 @@ -73,5 +73,7 @@ } } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Shipment"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template Index: openacs-4/packages/ecommerce/www/update-user-classes.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/update-user-classes.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/update-user-classes.adp 15 Sep 2002 01:50:50 -0000 1.2 +++ openacs-4/packages/ecommerce/www/update-user-classes.adp 17 Sep 2002 03:36:34 -0000 1.3 @@ -1,7 +1,11 @@ - -Your Account -Your Account + + Your Account + @context_bar@ + @ec_system_owner@ + + +
    Index: openacs-4/packages/ecommerce/www/update-user-classes.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/update-user-classes.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/update-user-classes.tcl 26 May 2002 04:36:50 -0000 1.3 +++ openacs-4/packages/ecommerce/www/update-user-classes.tcl 17 Sep 2002 03:36:34 -0000 1.4 @@ -29,6 +29,9 @@ select user_class_id from ec_user_class_user_map where user_id = :user_id"]] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Your Account"]]] +set ec_system_owner [ec_system_owner] + db_release_unused_handles ad_return_template