Index: openacs-4/packages/ecommerce/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/ecommerce/www/admin/index.tcl	15 Mar 2004 04:28:01 -0000	1.6
+++ openacs-4/packages/ecommerce/www/admin/index.tcl	24 Feb 2005 13:33:14 -0000	1.7
@@ -23,80 +23,85 @@
 
 <hr>
 Documentation: <a href=\"/doc/ecommerce\">/doc/ecommerce</a> or <a href=\"[ec_url]doc/\">[ec_url]doc/</a>
+<hr>
+"
 
-<ul>
+# get data for user class links
+set user_classes_reqs_approval [ad_parameter -package_id [ec_id] UserClassAllowSelfPlacement ecommerce]
+set n_not_yet_approved [db_string non_approved_users_select "select count(*) from ec_user_class_user_map where user_class_approved_p is null or user_class_approved_p='f'"]
 
-"
+doc_body_append "<h3>business operations</h3><ul>"
 
+# orders
 
+db_1row num_orders_select "
+    select 
+      sum(one_if_within_n_days(confirmed_date,1)) as n_in_last_24_hours,
+      sum(one_if_within_n_days(confirmed_date,7)) as n_in_last_7_days
+    from ec_orders_reportable"
 
-# Problems
+db_1row num_products_select "select count(*) as n_products, round(avg(price),2) as avg_price from ec_products_displayable"
 
-set unresolved_problem_count [db_string unresolved_problem_count_select "select count(*) from ec_problems_log where resolved_date is null"]
+# links and info mainly related to business operations
 
-doc_body_append "
+doc_body_append "<li><a href=\"orders/\">Orders / Shipments / Refunds</a> <font size=-1>($n_in_last_24_hours orders in last 24 hours; $n_in_last_7_days in last 7 days)</font></li>"
 
-<li><a href=\"problems/\">Potential Problems</a> <font size=-1>($unresolved_problem_count unresolved problem[ec_decode $unresolved_problem_count 1 "" "s"])</font>
-    <p>
-"
+# customer service
 
-db_1row num_orders_select "
-select 
-  sum(one_if_within_n_days(confirmed_date,1)) as n_in_last_24_hours,
-  sum(one_if_within_n_days(confirmed_date,7)) as n_in_last_7_days
-from ec_orders_reportable"
+doc_body_append "<li><a href=\"customer-service/\">Customer Service</a> <font size=-1>([db_string open_issues_select "select count(*) from ec_customer_service_issues where close_date is null"] open issues)</font></li>"
 
-db_1row num_products_select "select count(*) as n_products, round(avg(price),2) as avg_price from ec_products_displayable"
+# customer class membership requests
+if { $user_classes_reqs_approval } {
+    doc_body_append "<li><a href=\"user-classes/\">User Classes</a> <font size=-1>($n_not_yet_approved not yet approved user[ec_decode $n_not_yet_approved 1 "" "s"])</font></li>"
+}
 
-doc_body_append "
+# customer reviews
+if { [ad_parameter -package_id [ec_id] ProductCommentsAllowP ecommerce] } {
+    doc_body_append "<li><a href=\"customer-reviews/\">Customer Reviews</a> <font size=-1>([db_string non_approved_comments_select "select count(*) from ec_product_comments where approved_p is null"] not yet approved)</font></li>"
+}
 
-<li><a href=\"orders/\">Orders / Shipments / Refunds</a> <font size=-1>($n_in_last_24_hours orders in last 24 hours; $n_in_last_7_days in last 7 days)</font>
+# recommend products
 
-<P>
+doc_body_append "<li><a href=\"products/recommendations\">Recommend Products</a> <font size=-1>($n_products products; average price: [ec_pretty_price $avg_price])</font></li>"
 
-<li><a href=\"products/\">Products</a> <font size=-1>($n_products products; average price: [ec_pretty_price $avg_price])</font>
+doc_body_append "</ul>"
 
-<p>
-<li><a href=\"customer-service/\">Customer Service</a> <font size=-1>([db_string open_issues_select "select count(*) from ec_customer_service_issues where close_date is null"] open issues)</font>
-<p>
-"
+# links and info mainly related to website administration
+doc_body_append "<h3>website administration</h3><ul>"
 
-if { [ad_parameter -package_id [ec_id] ProductCommentsAllowP ecommerce] } {
-    doc_body_append "<li><a href=\"customer-reviews/\">Customer Reviews</a> <font size=-1>([db_string non_approved_comments_select "select count(*) from ec_product_comments where approved_p is null"] not yet approved)</font>
-    <p>
-    "
+set unresolved_problem_count [db_string unresolved_problem_count_select "select count(*) from ec_problems_log where resolved_date is null"]
+
+doc_body_append "<li><a href=\"problems/\">Potential Problems</a> <font size=-1>($unresolved_problem_count unresolved problem[ec_decode $unresolved_problem_count 1 "" "s"])</font></li>"
+
+set paymentgateway_key [ad_parameter -package_id [ec_id] PaymentGateway ecommerce]
+if { [string length $paymentgateway_key] > 1 } {
+    doc_body_append "<li><a href=\"/$paymentgateway_key/admin\">Payment Gateway Administration</a></li>"
 }
 
-set n_not_yet_approved [db_string non_approved_users_select "select count(*) from ec_user_class_user_map where user_class_approved_p is null or user_class_approved_p='f'"]
 
-doc_body_append "<li><a href=\"user-classes/\">User Classes</a> 
-<font size=-1>($n_not_yet_approved not yet approved user[ec_decode $n_not_yet_approved 1 "" "s"])</font>
+doc_body_append "<li><a href=\"products/\">Products</a> <font size=-1>($n_products products; average price: [ec_pretty_price $avg_price])</font></li>"
 
-<p>
-"
+doc_body_append "<li><a href=\"templates/\">Product Templates</a></li>"
 
+# customer class membership requests
+if { !$user_classes_reqs_approval } {
+    doc_body_append "<li><a href=\"user-classes/\">User Classes</a> <font size=-1>($n_not_yet_approved not yet approved user[ec_decode $n_not_yet_approved 1 "" "s"])</font></li>"
+}
+
 set multiple_retailers_p [ad_parameter -package_id [ec_id] MultipleRetailersPerProductP ecommerce]
 
 if { $multiple_retailers_p } {
-    doc_body_append "<li><a href=\"retailers/\">Retailers</a>\n"
+    doc_body_append "<li><a href=\"retailers/\">Retailers</a></li>"
 } else {
-    doc_body_append "<li><a href=\"shipping-costs/\">Shipping Costs</a>
-    <li><a href=\"sales-tax/\">Sales Tax</a>\n"
+    doc_body_append "<li><a href=\"shipping-costs/\">Shipping Costs</a></li>
+    <li><a href=\"sales-tax/\">Sales Tax</a></li>"
 }
 
-doc_body_append "<li><a href=\"templates/\">Product Templates</a>
-"
+doc_body_append "<li><a href=\"mailing-lists/\">Mailing Lists</a></li>
+<li><a href=\"email-templates/\">Email Templates</a></li>
+<li><a href=\"searches\">User Search Terms</a></li>
+<li><a href=\"audit-tables\">Audit [ec_system_name]</a></li>"
 
-doc_body_append "<li><a href=\"mailing-lists/\">Mailing Lists</a>
-<li><a href=\"email-templates/\">Email Templates</a>\n
-
-<p>
-<li><a href=\"searches\">User Search Terms</a>
-</ul>
-
-<p>
-<li><a href=\"audit-tables\">Audit [ec_system_name]</a>
-</ul>
-
+doc_body_append "</ul>
 [ad_admin_footer]
 "