Index: openacs-4/packages/authorize-gateway/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/www/index.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/authorize-gateway/www/index.tcl	21 May 2002 18:36:25 -0000	1.1
+++ openacs-4/packages/authorize-gateway/www/index.tcl	16 Dec 2003 19:21:50 -0000	1.2
@@ -1,38 +1,33 @@
-ad_page_contract {
-
-    A place holder for access to the admin pages.
-
-    @author Bart Teeuwisse <bart.teeuwisse@7-sisters.com>
-    @creation-date April 2002
-
-} {
-} -properties {
-    title:onevalue
-    context_bar:onevalue
-}
-
-# Authenticate the user
-
-set user_id [ad_maybe_redirect_for_registration]
-
-# Check for admin privileges
-
-set package_id [ad_conn package_id]
-set admin_p [ad_permission_p $package_id admin]
-
-# Get the name of the package
-
-if {[db_0or1row get_package_name "
-    select p.instance_name 
-    from apm_packages p, apm_package_versions v
-    where p.package_id = :package_id
-    and p.package_key = v.package_key
-    and v.enabled_p = 't'"]} {
-    set title "$instance_name"
-} else {
-    set title "Authorize.net Gateway"
-}
-
-# Set the context bar.
-
-set context_bar [ad_context_bar]
+ad_page_contract {
+
+    A place holder for access to the admin pages.
+
+    @author Bart Teeuwisse <bart.teeuwisse@thecodemill.biz>
+    @creation-date April 2002
+
+} {
+} -properties {
+    title:onevalue
+    context_bar:onevalue
+}
+
+# Authenticate the user
+
+set user_id [ad_maybe_redirect_for_registration]
+
+# Check for admin privileges
+
+set package_id [ad_conn package_id]
+set admin_p [ad_permission_p $package_id admin]
+
+# Get the name of the package
+
+if {[db_0or1row get_package_name {}]} {
+    set title "$instance_name"
+} else {
+    set title "Authorize.net Gateway"
+}
+
+# Set the context bar.
+
+set context_bar [ad_context_bar]