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 " -
" +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 @@ -
- 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- Enter Your Address ++ Enter Your Address +@context_bar@ +@ec_system_owner@ - checkout {Select Shipping Address} +Enter Your Shipping 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 @@ - - checkout {Select Billing Address} +Enter Your Billing Address
+ + @context_bar@ +@ec_system_owner@ Enter Your Shipping Address -checkout {Select Shipping Address} + ++ Enter Your Shipping 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 @@ - Enter Your Billing Address - checkout {Select Billing Address} +Enter Your Billing Address
- 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 @@ ++ +
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 @@ -+ + ++ Select Shipping Address + --->
+ Verify Order + --->
+ ++ Select Shipping Method + --->
+ Select Billing Address + --->
+ Enter Payment Info + --->
+ Confirm Order - 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 @@ +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
@context_bar@ [ Administer ] +# @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@ + ++ + ++ 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!
++ + +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.
+
--- [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][ec_pretty_price $amount] has been added to your gift certificate account!
- -
--- [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 @@ -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.
- -- Claim a Gift Certificate ++ Claim a Gift Certificate +@context_bar@ +@ec_system_owner@ -Claim a Gift Certificate
+