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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2003-05-05 14:13:47 GMT
Modified:  lib/Vend UserDB.pm
Log:
* Sort keys returned in get_billing_names, et al.

Revision  Changes    Path
2.15      +6 -6      interchange/lib/Vend/UserDB.pm


rev 2.15, prev_rev 2.14
Index: UserDB.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/UserDB.pm,v
retrieving revision 2.14
retrieving revision 2.15
diff -u -r2.14 -r2.15
--- UserDB.pm	11 Apr 2003 22:03:01 -0000	2.14
+++ UserDB.pm	5 May 2003 14:13:47 -0000	2.15
@@ -1,6 +1,6 @@
 # Vend::UserDB - Interchange user database functions
 #
-# $Id: UserDB.pm,v 2.14 2003/04/11 22:03:01 mheins Exp $
+# $Id: UserDB.pm,v 2.15 2003/05/05 14:13:47 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -16,7 +16,7 @@
 
 package Vend::UserDB;
 
-$VERSION = substr(q$Revision: 2.14 $, 10);
+$VERSION = substr(q$Revision: 2.15 $, 10);
 
 use vars qw!
 	$VERSION
@@ -833,7 +833,7 @@
 	my $self = shift;
 	my $ref = $self->get_hash('SHIPPING');
 	return undef unless ref $ref;
-	$::Values->{$self->{LOCATION}{SHIPPING}} = join "\n", keys %$ref;
+	$::Values->{$self->{LOCATION}{SHIPPING}} = join "\n", sort keys %$ref;
 	return $::Values->{$self->{LOCATION}{SHIPPING}} if $self->{OPTIONS}{show};
 	return '';
 }
@@ -842,7 +842,7 @@
 	my $self = shift;
 	my $ref = $self->get_hash('BILLING');
 	return undef unless ref $ref;
-	$::Values->{$self->{LOCATION}{BILLING}} = join "\n", keys %$ref;
+	$::Values->{$self->{LOCATION}{BILLING}} = join "\n", sort keys %$ref;
 	return $::Values->{$self->{LOCATION}{BILLING}} if $self->{OPTIONS}{show};
 	return '';
 }
@@ -851,7 +851,7 @@
 	my $self = shift;
 	my $ref = $self->get_hash('PREFERENCES');
 	return undef unless ref $ref;
-	$::Values->{$self->{LOCATION}{PREFERENCES}} = join "\n", keys %$ref;
+	$::Values->{$self->{LOCATION}{PREFERENCES}} = join "\n", sort keys %$ref;
 	return $::Values->{$self->{LOCATION}{PREFERENCES}} if $self->{OPTIONS}{show};
 	return '';
 }
@@ -860,7 +860,7 @@
 	my $self = shift;
 	my $ref = $self->get_hash('CARTS');
 	return undef unless ref $ref;
-	$::Values->{$self->{LOCATION}{CARTS}} = join "\n", keys %$ref;
+	$::Values->{$self->{LOCATION}{CARTS}} = join "\n", sort keys %$ref;
 	return $::Values->{$self->{LOCATION}{CARTS}} if $self->{OPTIONS}{show};
 	return '';
 }