[interchange-cvs] interchange - heins modified lib/Vend/UserDB.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon May 5 10:14:00 2003
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 '';
}