[interchange-cvs] interchange - heins modified lib/Vend/UserControl.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Nov 7 17:37:02 EST 2005


User:      heins
Date:      2005-11-07 22:37:02 GMT
Modified:  lib/Vend UserControl.pm
Log:
* Make UserControl set "billing" and "shipping" address lines instead of overwriting
  "default" with one another.

Revision  Changes    Path
2.5       +4 -4      interchange/lib/Vend/UserControl.pm


rev 2.5, prev_rev 2.4
Index: UserControl.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/UserControl.pm,v
retrieving revision 2.4
retrieving revision 2.5
diff -u -r2.4 -r2.5
--- UserControl.pm	3 Aug 2005 19:33:39 -0000	2.4
+++ UserControl.pm	7 Nov 2005 22:37:02 -0000	2.5
@@ -1,6 +1,6 @@
 # Vend::UserControl - Enhanced Interchange user database functions
 #
-# $Id: UserControl.pm,v 2.4 2005/08/03 19:33:39 jon Exp $
+# $Id: UserControl.pm,v 2.5 2005/11/07 22:37:02 mheins Exp $
 #
 # Copyright (C) 2003 Interchange Development Group
 # Copyright (C) 2003 Mike Heins, <mikey at heins.net>
@@ -17,7 +17,7 @@
 
 package Vend::UserControl;
 
-$VERSION = substr(q$Revision: 2.4 $, 10);
+$VERSION = substr(q$Revision: 2.5 $, 10);
 
 require Vend::UserDB;
 use Vend::Data;
@@ -460,7 +460,7 @@
 
 	my $o = $self->{OPTIONS} || {};
 
-	my $nick = $o->{nickname} || $::Values->{s_nickname};
+	my $nick = $o->{nickname} || $::Values->{s_nickname} || 'shipping';
 
 	my $map = make_field_map($o->{shipping_map}) || \%s_map;
 
@@ -472,7 +472,7 @@
 
 	my $o = $self->{OPTIONS} || {};
 
-	my $nick = $o->{nickname} || $::Values->{b_nickname};
+	my $nick = $o->{nickname} || $::Values->{b_nickname} || 'billing';
 
 	my $map = make_field_map($o->{billing_map}) || \%b_map;
 








More information about the interchange-cvs mailing list