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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-10-18 07:12:37 GMT
Modified:  lib/Vend/Table Editor.pm
Log:
* Allow passing in of values useful for the "links" widget.

Revision  Changes    Path
1.15      +8 -2      interchange/lib/Vend/Table/Editor.pm


rev 1.15, prev_rev 1.14
Index: Editor.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Editor.pm	17 Oct 2002 04:46:24 -0000	1.14
+++ Editor.pm	18 Oct 2002 07:12:37 -0000	1.15
@@ -1,6 +1,6 @@
 # Vend::Table::Editor - Swiss-army-knife table editor for Interchange
 #
-# $Id: Editor.pm,v 1.14 2002/10/17 04:46:24 mheins Exp $
+# $Id: Editor.pm,v 1.15 2002/10/18 07:12:37 mheins Exp $
 #
 # Copyright (C) 2002 ICDEVGROUP <interchange@icdevgroup.org>
 # Copyright (C) 2002 Mike Heins <mike@perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Table::Editor;
=20
 use vars qw($VERSION);
-$VERSION =3D substr(q$Revision: 1.14 $, 10);
+$VERSION =3D substr(q$Revision: 1.15 $, 10);
=20
 use Vend::Util;
 use Vend::Interpolate;
@@ -1032,6 +1032,7 @@
                     extra
                     field
                     filter
+					form
                     height
                     help
                     help_url
@@ -1046,6 +1047,7 @@
                     pre_filter
                     prepend
                     template
+                    wid_href
                     widget
                     width
 				/ )
@@ -1362,10 +1364,12 @@
 	my $extra        =3D $opt->{extra};
 	my $field        =3D $opt->{field};
 	my $filter       =3D $opt->{filter};
+	my $form	     =3D $opt->{form};
 	my $height       =3D $opt->{height};
 	my $help         =3D $opt->{help};
 	my $help_url     =3D $opt->{help_url};
 	my $label        =3D $opt->{label};
+	my $wid_href     =3D $opt->{wid_href};
 	my $lookup       =3D $opt->{lookup};
 	my $lookup_query =3D $opt->{lookup_query};
 	my $meta         =3D $opt->{meta};
@@ -2775,9 +2779,11 @@
 							fallback			=3D> 1,
 							field				=3D> $field->{$c},
 							filter				=3D> $filter->{$c},
+							form				=3D> $form->{$c},
 							height				=3D> $height->{$c},
 							help				=3D> $help->{$c},
 							help_url			=3D> $help_url->{$c},
+							href				=3D> $wid_href->{$c},
 							key					=3D> $key,
 							label				=3D> $label->{$c},
 							lookup				=3D> $lookup->{$c},