Beautified success message

www/price-lists/upload-prices-2.adp

@@ -5,4 +5,7 @@
 <property name="context">@context_bar;literal@</property>
 <property name="main_navbar_label">finance</property>
 
+<h1>Successfully Uploaded Prices</h1>
+<p>Here is list of the imported CSV lines:</p>
+
 @page_body;noquote@

www/price-lists/upload-prices-2.tcl

@@ -17,7 +17,8 @@ ad_page_contract {
 
 set current_user_id [auth::require_login]
 set page_title [lang::message::lookup "" intranet-timesheet2-invoices.Upload_File "Upload File"]
-set page_body "<pre>\n<a HREF=$return_url>[lang::message::lookup "" intranet-timesheet2-invoices.Return_to_company_page "Return to company page"]</a>\n"
+# set page_body "<pre>\n<a HREF=$return_url>[lang::message::lookup "" intranet-timesheet2-invoices.Return_to_company_page "Return to company page"]</a>\n"
+set page_body "<pre>"
 set context_bar [im_context_bar [list \
 				     "/intranet/customers/" \
 				     [lang::message::lookup "" intranet-timesheet2-invoices.Customers Customers] \
@@ -164,6 +165,6 @@ for {set i 1} {$i < $csv_files_len} {incr i} {
     }
 }
 
-append page_body "\n<a HREF=$return_url>[lang::message::lookup "" intranet-timesheet2-invoices.Return_to_company_page "Return to company page"]</a>\n"
+append page_body "\n</pre><a HREF=$return_url>[lang::message::lookup "" intranet-timesheet2-invoices.Return_to_company_page "Return to company page"]</a>\n"
 
 ad_return_template