[interchange-cvs] interchange - racke modified code/UserTag/formel.tag

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2005-12-19 21:58:52 GMT
Modified:  code/UserTag formel.tag
Log:
recognize password as known type

Revision  Changes    Path
1.15      +3 -3      interchange/code/UserTag/formel.tag


rev 1.15, prev_rev 1.14
Index: formel.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/formel.tag,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- formel.tag	19 Dec 2005 10:08:11 -0000	1.14
+++ formel.tag	19 Dec 2005 21:58:52 -0000	1.15
@@ -1,11 +1,11 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Copyright 2002-2005 Stefan Hornburg (racke at linuxia.de)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: formel.tag,v 1.14 2005/12/19 10:08:11 racke Exp $
+# $Id: formel.tag,v 1.15 2005/12/19 21:58:52 racke Exp $
 
 UserTag formel Order   label name type size
 UserTag formel addAttr
-UserTag formel Version $Revision: 1.14 $
+UserTag formel Version $Revision: 1.15 $
 UserTag formel Routine <<EOF
 sub {
 	my ($label, $name, $type, $size, $opt) = @_;
@@ -166,7 +166,7 @@
 		if ($type eq 'textarea') {
 			$elhtml = qq{<textarea name="${name}"$sizestr>$::Values->{$name}</textarea>};
 		}
-		elsif ($type eq 'text' || $type !~ /\S/) {
+		elsif ($type eq 'text' || $type eq 'password' || $type !~ /\S/) {
 			$elhtml = qq{<input type="$type" name="$name" value="$::Values->{$name}"$sizestr>};
 		}
 		else {