[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