[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