[interchange-cvs] interchange - heins modified 2 files
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Nov 18 11:34:00 2002
User: heins
Date: 2002-11-18 16:33:47 GMT
Modified: lib/Vend Order.pm Payment.pm
Log:
* Remove support for old Minivend 3 cyber_charge call
* Remove unused "report_field" routine, not needed now that Minivend 2
order report style is no longer supported
Revision Changes Path
2.37 +2 -21 interchange/lib/Vend/Order.pm
rev 2.37, prev_rev 2.36
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.36
retrieving revision 2.37
diff -u -r2.36 -r2.37
--- Order.pm 9 Nov 2002 06:07:18 -0000 2.36
+++ Order.pm 18 Nov 2002 16:33:47 -0000 2.37
@@ -1,6 +1,6 @@
# Vend::Order - Interchange order routing routines
#
-# $Id: Order.pm,v 2.36 2002/11/09 06:07:18 mheins Exp $
+# $Id: Order.pm,v 2.37 2002/11/18 16:33:47 mheins Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -28,7 +28,7 @@
package Vend::Order;
require Exporter;
-$VERSION = substr(q$Revision: 2.36 $, 10);
+$VERSION = substr(q$Revision: 2.37 $, 10);
@ISA = qw(Exporter);
@@ -37,7 +37,6 @@
do_order
check_order
check_required
- cyber_charge
encrypt_standard_cc
mail_order
onfly
@@ -714,24 +713,6 @@
return @return;
-}
-
-# Old, old, old but still supported
-*cyber_charge = \&Vend::Payment::charge;
-
-sub report_field {
- my($field_name, $seen) = @_;
- my($field_value, $r);
-
- $field_value = $Vend::Session->{'values'}->{$field_name};
- if (defined $field_value) {
- $$seen{$field_name} = 1;
- $r = $field_value;
- }
- else {
- $r = "<no input box>";
- }
- $r;
}
sub onfly {
2.8 +2 -6 interchange/lib/Vend/Payment.pm
rev 2.8, prev_rev 2.7
Index: Payment.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment.pm,v
retrieving revision 2.7
retrieving revision 2.8
diff -u -r2.7 -r2.8
--- Payment.pm 17 Oct 2002 04:46:24 -0000 2.7
+++ Payment.pm 18 Nov 2002 16:33:47 -0000 2.8
@@ -1,6 +1,6 @@
# Vend::Payment - Interchange payment processing routines
#
-# $Id: Payment.pm,v 2.7 2002/10/17 04:46:24 mheins Exp $
+# $Id: Payment.pm,v 2.8 2002/11/18 16:33:47 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -22,13 +22,12 @@
package Vend::Payment;
require Exporter;
-$VERSION = substr(q$Revision: 2.7 $, 10);
+$VERSION = substr(q$Revision: 2.8 $, 10);
@ISA = qw(Exporter);
@EXPORT = qw(
charge
- cyber_charge
charge_param
);
@@ -604,9 +603,6 @@
return \%result;
}
-
-# Old, old, old but still supported
-*cyber_charge = \&Vend::Payment::charge;
1;
__END__