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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Oct 2 15:13:13 EDT 2004


User:      docelic
Date:      2004-10-02 19:13:13 GMT
Modified:  code/UserTag formel.tag
Log:
- fixed quoting, paying attention not to subtly change functionality :-)

Revision  Changes    Path
1.10      +8 -8      interchange/code/UserTag/formel.tag


rev 1.10, prev_rev 1.9
Index: formel.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/formel.tag,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- formel.tag	2 Oct 2004 18:30:46 -0000	1.9
+++ formel.tag	2 Oct 2004 19:13:13 -0000	1.10
@@ -1,7 +1,7 @@
 # Copyright 2002-2003 Interchange Development Group (http://www.icdevgroup.org/)
 # Copyright 2000-2003 Stefan Hornburg (racke at linuxia.de)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: formel.tag,v 1.9 2004/10/02 18:30:46 docelic Exp $
+# $Id: formel.tag,v 1.10 2004/10/02 19:13:13 docelic Exp $
 
 UserTag formel Order label name type size
 UserTag formel addAttr
@@ -61,15 +61,15 @@
 	if ($opt->{'size'}) {
 		if ($type eq 'textarea') {
 			my ($cols, $rows) = split (/\s*[,x\s]\s*/, $opt->{'size'});
-			$sizestr = " rows=$rows cols=$cols";
+			$sizestr = qq{ rows="$rows" cols="$cols"};
 		}
 		else {
-			$sizestr = " size=$opt->{size}";
+			$sizestr = qq{ size="$opt->{size}"};
 		}
 	}
 
 	if ($opt->{'maxlength'}) {
-		$sizestr .= " maxlength=$opt->{maxlength}";
+		$sizestr .= qq{ maxlength="$opt->{maxlength}"};
 	}
 
 	if ($type eq 'radio' || $type eq 'checkbox') {		
@@ -91,7 +91,7 @@
 
 			$rlabel = &$labelproc($rlabel, 1);
 
-			$elhtml .= qq{<input type=$type name=$name value="${rvalue}"$select> $rlabel};
+			$elhtml .= qq{<input type="$type" name="$name" value="${rvalue}"$select> $rlabel};
 		}
 		# delete error implicitly
 		$labelhtml = &$labelproc($label);
@@ -124,7 +124,7 @@
 			}
 		}
 		return sprintf ($fmt, $labelhtml, 
-				qq{<select name=$name>$elhtml</select>});
+				qq{<select name="$name">$elhtml</select>});
 	}
 
 	if ($type eq 'display') {
@@ -146,7 +146,7 @@
 			$elhtml = qq{<textarea name="${name}"$sizestr></textarea>};
 		}
 		else {
-			$elhtml = qq{<input type=$type name="${name}"$sizestr>};
+			$elhtml = qq{<input type="$type" name="${name}"$sizestr>};
 		}
 	}
 	else {
@@ -154,7 +154,7 @@
 			$elhtml = qq{<textarea name="${name}"$sizestr>$::Values->{$name}</textarea>};
 		}
 		else {
-			$elhtml = qq{<input type=$type name=$name value="$::Values->{$name}"$sizestr>};
+			$elhtml = qq{<input type="$type" name="$name" value="$::Values->{$name}"$sizestr>};
 		}
 	}
 








More information about the interchange-cvs mailing list