+ @creation-date April 2002
+} {
+ {orderby "txn_time*"}
+} -properties {
+ title:onevalue
+ context_bar:onevalue
+ dimensional_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 package name and set the title.
+
+if {[db_0or1row get_package_name {}]} {
+ set title "$instance_name Administration"
+} else {
+ set title "Administration"
+}
+
+# Set the context bar.
+
+set context_bar [ad_context_bar]
+
+# Dimensional slider definition for narrowing the selection.
+
+set dimensional {
+ {response_code "Result" approved {
+ {approved "approved" {where "[db_map result_approved]"} }
+ {declined "declined" {where "[db_map result_declined]"} }
+ {error "error" {where "[db_map result_error]"} }
+ {any "all" {} }
+ } }
+ {transaction "Time of transaction" 1d {
+ {1d "last 24 hours" {where "[db_map transaction_last_24hours]"}}
+ {1w "last week" {where "[db_map transaction_last_week]"}}
+ {1m "last month" {where "[db_map transaction_last_month]"}}
+ {any "all" {} }
+ } }
+}
+set dimensional_bar [ad_dimensional $dimensional]
+
+# Definition for ad_table.
+
+set table_def {
+ {transaction_id "ID" {} {}}
+ {txn_time "Date" {txn_attempted_time desc} {}}
+ {txn_attempted_type "Type" {} {}}
+ {response_code "Result" {} {}}
+ {response_reason_code "Reason" {} {}}
+ {response_reason_text "Explanation" no_sort {}}
+ {auth_code "Authorization" {} {}}
+ {avs_code "AVS" {} {}}
+ {response "Verbatim response" no_sort {}}
+}
+
+# Create the table to display the results from Authorize.net
+
+set result_table [ad_table result_select {} $table_def]
Index: openacs-4/packages/authorize-gateway/www/admin/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/www/admin/index.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/authorize-gateway/www/admin/index.xql 21 May 2002 18:36:25 -0000 1.1
+++ openacs-4/packages/authorize-gateway/www/admin/index.xql 16 Dec 2003 19:21:50 -0000 1.2
@@ -1,32 +1,32 @@
-
-
-
-
-
- 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'
-
-
-
-
-
- response_code='1'
-
-
-
-
-
- response_code='2'
-
-
-
-
-
- response_code='3'
-
-
-
-
+
+
+
+
+
+ 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'
+
+
+
+
+
+ response_code='1'
+
+
+
+
+
+ response_code='2'
+
+
+
+
+
+ response_code='3'
+
+
+
+
Index: openacs-4/packages/authorize-gateway/www/doc/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/www/doc/index.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/authorize-gateway/www/doc/index.adp 22 May 2003 14:21:31 -0000 1.4
+++ openacs-4/packages/authorize-gateway/www/doc/index.adp 16 Dec 2003 19:21:50 -0000 1.5
@@ -29,7 +29,7 @@
Janine Sisk of furfly.net and Bart Teeuwisse
+ href="mailto:bart.teeuwisse@thecodemill.biz">Bart Teeuwisse
teamed up to design a general purpose payment service contract
and to create the first implementations of the contract. Janine
developed the interface to PayflowPro the successor of CyberCash
@@ -212,7 +212,7 @@
Credits
The @package_name@ was designed and written by Bart Teeuwisse
+ href="mailto:bart.teeuwisse@thecodemill.biz">Bart Teeuwisse
for Berklee College Of
Music while working as a subcontractor for furfly.net.
Index: openacs-4/packages/authorize-gateway/www/doc/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/www/doc/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/authorize-gateway/www/doc/index.tcl 21 May 2002 18:36:25 -0000 1.1
+++ openacs-4/packages/authorize-gateway/www/doc/index.tcl 16 Dec 2003 19:21:50 -0000 1.2
@@ -1,44 +1,44 @@
-ad_page_contract {
-
- Index to documentation of the Authorize.net Gateway, an
- implementation of the Payment Service Contract.
-
- @author Bart Teeuwisse
- @creation-date May 2002
-
-} {
-} -properties {
- title:onevalue
- context_bar:onevalue
-}
-
-# Authenticate the user
-
-set user_id [ad_maybe_redirect_for_registration]
-
-set package_name "Authorize.net Gateway"
-set title "$package_name Documentation"
-set package_url [apm_package_url_from_key "authorize-gateway"]
-set package_id [apm_package_id_from_key "authorize-gateway"]
-
-# Check if the package has been mounted.
-
-set authorize_gateway_mounted [expr ![empty_string_p $package_url]]
-
-# Check for admin privileges
-
-set admin_p [ad_permission_p $package_id admin]
-
-# Check if the ecommerce and the shipping service contract packages
-# are installed on the system.
-
-set ecommerce_installed [apm_package_installed_p ecommerce]
-set payment_gateway_installed [apm_package_installed_p "payment-gateway"]
-
-# Set the context bar.
-
-set context_bar [ad_context_bar $package_name]
-
-# Set signatory for at the bottom of the page
-
-set signatory "bart.teeuwisse@7-sisters.com"
+ad_page_contract {
+
+ Index to documentation of the Authorize.net Gateway, an
+ implementation of the Payment Service Contract.
+
+ @author Bart Teeuwisse
+ @creation-date May 2002
+
+} {
+} -properties {
+ title:onevalue
+ context_bar:onevalue
+}
+
+# Authenticate the user
+
+set user_id [ad_maybe_redirect_for_registration]
+
+set package_name "Authorize.net Gateway"
+set title "$package_name Documentation"
+set package_url [apm_package_url_from_key "authorize-gateway"]
+set package_id [apm_package_id_from_key "authorize-gateway"]
+
+# Check if the package has been mounted.
+
+set authorize_gateway_mounted [expr ![empty_string_p $package_url]]
+
+# Check for admin privileges
+
+set admin_p [ad_permission_p $package_id admin]
+
+# Check if the ecommerce and the shipping service contract packages
+# are installed on the system.
+
+set ecommerce_installed [apm_package_installed_p ecommerce]
+set payment_gateway_installed [apm_package_installed_p "payment-gateway"]
+
+# Set the context bar.
+
+set context_bar [ad_context_bar $package_name]
+
+# Set signatory for at the bottom of the page
+
+set signatory "bart.teeuwisse@thecodemill.biz"
Index: openacs-4/packages/authorize-gateway/www/doc/license.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/www/doc/license.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/authorize-gateway/www/doc/license.tcl 21 May 2002 18:36:25 -0000 1.1
+++ openacs-4/packages/authorize-gateway/www/doc/license.tcl 16 Dec 2003 19:21:50 -0000 1.2
@@ -1,28 +1,28 @@
-ad_page_contract {
-
- License information of the Authorize.net Gateway, an
- implementation of the Payment Service Contract.
-
- @author Bart Teeuwisse
- @creation-date May 2002
-
-} {
-} -properties {
- title:onevalue
- context_bar:onevalue
-}
-
-# Authenticate the user
-
-set user_id [ad_maybe_redirect_for_registration]
-
-set package_name "Authorize.net Gateway"
-set title "$package_name License"
-
-# Set the context bar.
-
-set context_bar [ad_context_bar [list . $package_name] License]
-
-# Set signatory for at the bottom of the page
-
-set signatory "bart.teeuwisse@7-sisters.com"
+ad_page_contract {
+
+ License information of the Authorize.net Gateway, an
+ implementation of the Payment Service Contract.
+
+ @author Bart Teeuwisse
+ @creation-date May 2002
+
+} {
+} -properties {
+ title:onevalue
+ context_bar:onevalue
+}
+
+# Authenticate the user
+
+set user_id [ad_maybe_redirect_for_registration]
+
+set package_name "Authorize.net Gateway"
+set title "$package_name License"
+
+# Set the context bar.
+
+set context_bar [ad_context_bar [list . $package_name] License]
+
+# Set signatory for at the bottom of the page
+
+set signatory "bart.teeuwisse@thecodemill.biz"