[interchange-cvs] interchange - heins modified
lib/Vend/UserControl.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sun Jun 27 15:00:44 EDT 2004
User: heins
Date: 2004-06-27 19:00:44 GMT
Modified: lib/Vend UserControl.pm
Log:
* Add routine to get names for address book routines when in separate
address table mode.
Revision Changes Path
2.3 +25 -2 interchange/lib/Vend/UserControl.pm
rev 2.3, prev_rev 2.2
Index: UserControl.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/UserControl.pm,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -r2.2 -r2.3
--- UserControl.pm 3 Jun 2004 11:53:01 -0000 2.2
+++ UserControl.pm 27 Jun 2004 19:00:44 -0000 2.3
@@ -1,6 +1,6 @@
# Vend::UserControl - Enhanced Interchange user database functions
#
-# $Id: UserControl.pm,v 2.2 2004/06/03 11:53:01 racke Exp $
+# $Id: UserControl.pm,v 2.3 2004/06/27 19:00:44 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.2 $, 10);
+$VERSION = substr(q$Revision: 2.3 $, 10);
require Vend::UserDB;
use Vend::Data;
@@ -430,6 +430,29 @@
}
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 {
More information about the interchange-cvs
mailing list