[interchange-cvs] interchange - edl modified 2 files

[interchange-cvs at icdevgroup.org]

User:      edl
Date:      2003-11-17 21:35:23 GMT
Modified:  lib/Vend Interpolate.pm Config.pm
Log:
Removing new credit stuff completely per Racke's request.

Revision  Changes    Path
2.198     +2 -22     interchange/lib/Vend/Interpolate.pm


rev 2.198, prev_rev 2.197
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.197
retrieving revision 2.198
diff -u -r2.197 -r2.198
--- Interpolate.pm	17 Nov 2003 20:38:42 -0000	2.197
+++ Interpolate.pm	17 Nov 2003 21:35:22 -0000	2.198
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.197 2003/11/17 20:38:42 edl Exp $
+# $Id: Interpolate.pm,v 2.198 2003/11/17 21:35:22 edl Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.197 $, 10);
+$VERSION = substr(q$Revision: 2.198 $, 10);
 
 @EXPORT = qw (
 
@@ -5769,26 +5769,6 @@
 	$Vend::Items = $save if defined $save;
 	$Vend::Session->{latest_subtotal} = $subtotal;
     return $subtotal;
-}
-
-# figures any credits the customer may have
-# that can be applied to this order
-# for future developements, not currently used!!
-
-sub credit {
-    my $credit = 0;
-    if (defined $Vend::Session->{assigned}{credit}
-	&& $Vend::Session->{assigned}{credit} > 0) {
-	$credit = $Vend::Session->{assigned}{credit};
-    }
-    elsif ($Vend::Cfg->{CreditField}) {
-	# credit field from userdb should always be put in scratch space
-	# using 'Userdb default scratch' to avoid hacking by nefarious customers
-	if ($Scratch->{$Vend::Cfg->{CreditField}} > 0) {
-	    $credit = $Scratch->{$Vend::Cfg->{CreditField}};
-	}
-    }
-    return $credit;
 }
 
 



2.129     +2 -3      interchange/lib/Vend/Config.pm


rev 2.129, prev_rev 2.128
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.128
retrieving revision 2.129
diff -u -r2.128 -r2.129
--- Config.pm	14 Nov 2003 22:51:38 -0000	2.128
+++ Config.pm	17 Nov 2003 21:35:22 -0000	2.129
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.128 2003/11/14 22:51:38 edl Exp $
+# $Id: Config.pm,v 2.129 2003/11/17 21:35:22 edl Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -48,7 +48,7 @@
 use Vend::File;
 use Vend::Data;
 
-$VERSION = substr(q$Revision: 2.128 $, 10);
+$VERSION = substr(q$Revision: 2.129 $, 10);
 
 my %CDname;
 my %CPname;
@@ -549,7 +549,6 @@
 	['Levies',		 	 'array',     	 	 ''],
 	['Levy',		 	 'locale',     	 	 ''],
 	['AutoVariable',	 'autovar',     	 ''],
-	['CreditField',     undef,			''],	
 
 	];