Index: openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl	9 Mar 2004 00:59:47 -0000	1.4
+++ openacs-4/packages/ecommerce/www/admin/customer-service/gift-certificate-add.tcl	20 Aug 2008 22:32:42 -0000	1.5
@@ -19,47 +19,20 @@
 
 # make sure there's an amount
 if { ![info exists amount] || [empty_string_p $amount] } {
-    ad_return_complaint 1 "<li>You forgot to specify an amount."
+    ad_return_complaint 1 "<li>No gift certificate value specified.</li>"
     return
 }
 
+set title  "Confirm New Gift Certificate"
+set context [list [list index "Customer Service"] $title]
 
-
-set page_title "Confirm New Gift Certificate"
-append doc_body "[ad_admin_header $page_title]
-<h2>$page_title</h2>
-
-[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] $page_title]
-
-<hr>
-"
-
-
 set expiration_to_print [db_string get_exipre_from_Db "select [ec_decode $expires "" "null" $expires] from dual"]
 set expiration_to_print [ec_decode $expiration_to_print "" "never" [util_AnsiDatetoPrettyDate $expiration_to_print]]
 
-append doc_body "Please confirm that you wish to add [ec_pretty_price $amount [ad_parameter -package_id [ec_id] Currency ecommerce]] to
-<a href=\"[ec_acs_admin_url]users/one?user_id=$user_id\">[db_string get_full_name "select first_names || ' ' || last_name from cc_users where user_id=:user_id"]</a>'s gift certificate account (expires $expiration_to_print).
+set currency [parameter::get -package_id [ec_id] -parameter Currency -default "USD"]
+set price_html [ec_pretty_price $amount $currency]
 
-<p>
+set user_link "<a href=\"[ec_acs_admin_url]users/one?user_id=$user_id\">[db_string get_full_name "select first_names || ' ' || last_name from cc_users where user_id=:user_id"]</a>"
 
-<form method=post action=gift-certificate-add-2>
-[export_form_vars user_id amount expires]
-<center>
-<input type=submit value=\"Confirm\">
-</center>
+set export_form_vars_html [export_form_vars user_id amount expires]
 
-</form>
-
-[ad_admin_footer]
-"
-
-
-
-doc_return  200 text/html $doc_body
-
-
-
-
-
-