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

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2004-06-03 11:53:02 GMT
Modified:  lib/Vend UserControl.pm
Log:
removed first of duplicate get_names method, thanks to Davor Ocelic
<docelic at mail.inet.hr>

Revision  Changes    Path
2.2       +2 -25     interchange/lib/Vend/UserControl.pm


rev 2.2, prev_rev 2.1
Index: UserControl.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/UserControl.pm,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -r2.1 -r2.2
--- UserControl.pm	10 Sep 2003 17:01:33 -0000	2.1
+++ UserControl.pm	3 Jun 2004 11:53:01 -0000	2.2
@@ -1,6 +1,6 @@
 # Vend::UserControl - Enhanced Interchange user database functions
 #
-# $Id: UserControl.pm,v 2.1 2003/09/10 17:01:33 mheins Exp $
+# $Id: UserControl.pm,v 2.2 2004/06/03 11:53:01 racke 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.1 $, 10);
+$VERSION = substr(q$Revision: 2.2 $, 10);
 
 require Vend::UserDB;
 use Vend::Data;
@@ -430,29 +430,6 @@
 	}
 
 	return $rec->{$tcode};
-}
-
-sub get_names {
-	my $self = shift;
-	my $nick = shift;
-	my $o = $self->{OPTIONS} || {};
-
-	my $adb = dbref($o->{address_table} || 'address');
-	my $tname = $adb->name();
-	my $nf = $o->{address_nickname_field} || 'nickname';
-	my $uf = $o->{address_username_field} || 'username';
-	my $uv = $adb->quote($self->{USERNAME}, $uf);
-	my $q = "select $nf from $tname where $uf = $uv";
-	my $ary = $adb->query($q);
-	my @names;
-	if($ary and @$ary) {
-		for(@$ary) {
-			push @names, $_->[0];
-		}
-	}
-
-	$o->{joiner} ||= "\n";
-	return join $o->{joiner}, @names;
 }
 
 sub set_shipping {