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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Thu Jul 3 20:12:00 EDT 2003


User:      heins
Date:      2003-07-03 23:12:56 GMT
Modified:  lib/Vend Form.pm
Log:
* Honor flag telling we already have data.

* Honor "db" passed parameter in lookup_query.

Revision  Changes    Path
2.35      +4 -4      interchange/lib/Vend/Form.pm


rev 2.35, prev_rev 2.34
Index: Form.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Form.pm,v
retrieving revision 2.34
retrieving revision 2.35
diff -u -r2.34 -r2.35
--- Form.pm	2 Jul 2003 04:05:51 -0000	2.34
+++ Form.pm	3 Jul 2003 23:12:56 -0000	2.35
@@ -1,6 +1,6 @@
 # Vend::Form - Generate Form widgets
 # 
-# $Id: Form.pm,v 2.34 2003/07/02 04:05:51 mheins Exp $
+# $Id: Form.pm,v 2.35 2003/07/03 23:12:56 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -38,7 +38,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.34 $, 10);
+$VERSION = substr(q$Revision: 2.35 $, 10);
 
 @EXPORT = qw (
 	display
@@ -1027,7 +1027,7 @@
 	my $look;
 
 	if($look = $opt->{lookup_query}) {
-		my $tab = $opt->{table} || $Vend::Cfg->{ProductFiles}[0];
+		my $tab = $opt->{db} || $opt->{table} || $Vend::Cfg->{ProductFiles}[0];
 		my $db = Vend::Data::database_exists_ref($tab);
 		my @looks = split /\s*;\s*/, $look;
 		$data = [];
@@ -1075,7 +1075,7 @@
 	elsif($opt->{passed}) {
 		$data = options_to_array($opt->{passed}, $opt);
 	}
-	elsif($opt->{column} and $opt->{table}) {
+	elsif(! $opt->{already_got_data} and $opt->{column} and $opt->{table} ) {
 		GETDATA: {
 			last GETDATA if $opt->{table} eq 'mv_null';
 			my $key = $opt->{outboard} || $item->{code} || $opt->{code};







More information about the interchange-cvs mailing list