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

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-04-16 13:40:29 GMT
Modified:  lib/Vend Form.pm
Log:
* Add nbsp=1 option to "links" widget.

* Prevent empty mv_arg from being passed in URL automatically.

* Add parser to handle links_nbsp.

Revision  Changes    Path
2.57      +9 -3      interchange/lib/Vend/Form.pm


rev 2.57, prev_rev 2.56
Index: Form.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Form.pm,v
retrieving revision 2.56
retrieving revision 2.57
diff -u -r2.56 -r2.57
--- Form.pm	16 Apr 2005 13:08:18 -0000	2.56
+++ Form.pm	16 Apr 2005 13:40:29 -0000	2.57
@@ -1,6 +1,6 @@
 # Vend::Form - Generate Form widgets
 # 
-# $Id: Form.pm,v 2.56 2005/04/16 13:08:18 mheins Exp $
+# $Id: Form.pm,v 2.57 2005/04/16 13:40:29 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.56 $, 10);
+$VERSION = substr(q$Revision: 2.57 $, 10);
 
 @EXPORT = qw (
 	display
@@ -351,9 +351,11 @@
 
 		my $form = $opt->{form};
 
+		$attr->{label} =~ s/\s/ /g if $opt->{nbsp};
+
 		$attr->{url} = Vend::Interpolate::tag_area(
 						$href,
-						'',
+						undef,
 						{
 							form => "$name=$attr->{value}\n$opt->{form}",
 							secure => $opt->{secure},
@@ -1482,6 +1484,10 @@
 		$opt->{cols} = $opt->{cols} || $2 || 16;
 		$opt->{type} = 'combo';
 		$opt->{reverse} = 1;
+	}
+	elsif($type =~ /^links_*nbsp/i) {
+		$opt->{nbsp} = 1;
+		$opt->{type} = 'links';
 	}
 	elsif($type =~ /^move_*combo[ _]*(?:(\d+)(?:[ _]+(\d+))?)?/i) {
 		$opt->{rows} = $opt->{rows} || $opt->{height} || $1 || 1;