Index: openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs-oracle.xql	26 May 2002 04:36:49 -0000	1.3
+++ openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs-oracle.xql	12 Sep 2002 22:45:47 -0000	1.4
@@ -1,46 +1,25 @@
 <?xml version="1.0"?>
 
 <queryset>
-  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+  <rdbms>
+    <type>oracle</type>
+    <version>8.1.6</version>
+  </rdbms>
 
-  <fullquery name="ec_creditcard_authorization.order_data_select">      
+  <fullquery name="ec_creditcard_authorization.creditcard_data_select">      
     <querytext>
-      select ec_order_cost(:order_id) as total_amount, creditcard_id, case when sign(sysdate - confirmed_date - .95) = -1 then 1 else 0 end as youth
-      from ec_orders
-      where order_id = :order_id
+      select c.creditcard_number as card_number, substr(creditcard_expire,1,2) as card_exp_month, substr(creditcard_expire,4,2) as card_exp_year, 
+	  c.creditcard_type, p.first_names || ' ' || p.last_name as card_name,
+          a.zip_code as billing_zip,
+          a.line1 as billing_address, 
+          a.city as billing_city, 
+          nvl(a.usps_abbrev, a.full_state_name) as billing_state, 
+          a.country_code as billing_country
+      from ec_creditcards c, persons p, ec_addresses a 
+      where c.user_id=p.person_id 
+      and c.creditcard_id = :creditcard_id
+      and c.billing_address = a.address_id
     </querytext>
   </fullquery>
-  
-  <fullquery name="ec_creditcard_authorization.transaction_data_select">      
-    <querytext>
-      select transaction_amount as total_amount, creditcard_id, case when sign(sysdate-inserted_date-.95) = -1 then 1 else 0 end as youth
-      from ec_financial_transactions
-      where transaction_id = :transaction_id
-    </querytext>
-  </fullquery>
-  
-  <fullquery name="ec_talk_to_cybercash.cybercash_log_insert">      
-    <querytext>
-      insert into ec_cybercash_log 
-      ([join [ad_ns_set_keys -exclude "cc_time" $bind_vars] ", "], cc_time, txn_attempted_time)
-      values 
-      ([join [ad_ns_set_keys -exclude "cc_time" -colon $bind_vars] ", "], to_date(:cc_time, 'YYYYMMDDHH24MISS'), sysdate)
-    </querytext>
-  </fullquery>
-  
-  <fullquery name="ec_date_to_cybercash_date_for_query.cybercash_date_create">      
-    <querytext>
-      select to_char(:n_hours_to_add / 24 + to_date(:the_date, 'YYYY-MM-DD HH24:MI:SS'), 'YYYYMMDDHH24MISS') 
-      from dual
-    </querytext>
-  </fullquery>
 
-  <fullquery name="ec_creditcard_return.transaction_success_update">
-    <querytext>
-      update ec_financial_transactions
-      set transaction_id = :pgw_transaction_id, refunded_date = sysdate
-      where transaction_id = :transaction_id
-    </querytext>
-  </fullquery>
-  
 </queryset>