Index: openacs-4/packages/ecommerce/www/admin/orders/address-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/address-add.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/orders/address-add.tcl 23 Oct 2001 05:07:14 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/orders/address-add.tcl 26 May 2002 04:36:50 -0000 1.4 @@ -1,118 +1,120 @@ -# www/[ec_url_concat [ec_url] /admin]/orders/address-add.tcl ad_page_contract { - New shipping address. + New shipping address. - @author Eve Andersson (eveander@arsdigita.com) - @creation-date Summer 1999 - @cvs-id address-add.tcl,v 3.1.6.4 2000/08/16 16:28:51 seb Exp - @author ported by Jerry Asher (jerry@theashergroup.com) + @author Eve Andersson (eveander@arsdigita.com) + @creation-date Summer 1999 + @author ported by Jerry Asher (jerry@theashergroup.com) + @author revised by Bart Teeuwisse + @revision-date April 2002 + } { - order_id:integer,notnull + order_id:integer,notnull + creditcard_id:integer,optional } ad_require_permission [ad_conn package_id] admin -doc_body_append "[ad_admin_header "New Shipping Address"] +doc_body_append " + [ad_admin_header "New Shipping Address"] -

New Shipping Address

+

New Shipping Address

-[ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Orders"] [list "one?[export_url_vars order_id]" "One Order"] "New Shipping Address"] + [ad_admin_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Orders"] [list "one?[export_url_vars order_id]" "One Order"] "New Shipping Address"] -
-Please enter a new domestic address or a new international address. All future shipments for this order will go to this address. +
+

Please enter a new domestic address or a new international address. All future shipments for this order will go to this address.

-

-New domestic address: -" +

New domestic address:

" +set user_name [db_string user_name_select " + select first_names || ' ' || last_name + from cc_users, ec_orders + where ec_orders.user_id=cc_users.user_id + and order_id=:order_id" -default ""] -set user_name [db_string user_name_select "select first_names || ' ' || last_name from cc_users, ec_orders where ec_orders.user_id=cc_users.user_id and order_id=:order_id"] - doc_body_append " -
-
-[export_form_vars order_id] - - - - - - - - - - - - - - - - - - - - - - - - - -
Name
Address
2nd line (optional)
City  State [state_widget]
Zip
Phone day     evening
-

-

- -
-
-
+
+
+ [export_form_vars order_id creditcard_id] + + + + + + + + + + + + + + + + + + + + + + + + + +
Name
Address
2nd line (optional)
City  State [state_widget]
Zip
Phone day     + evening
+
+ +
+
+
+ +

New international address:

-

-New international address: -

-

-[export_form_vars order_id] -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Name
Address
2nd line (optional)
City
Province or Region
Postal Code
Country[ec_country_widget]
Phone day     evening
-
-

-

- -
-
+
+
+ [export_form_vars order_id creditcard_id] + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Name
Address
2nd line (optional)
City
Province or Region
Postal Code
Country[ec_country_widget]
Phone day     + evening
+
+ +
+
+
-[ad_admin_footer] -" + [ad_admin_footer]"