[interchange-cvs] interchange - kwalsh modified
code/UserTag/formel.tag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Aug 1 02:35:02 EDT 2007
User: kwalsh
Date: 2007-08-01 06:35:02 GMT
Modified: code/UserTag formel.tag
Log:
* Closing bug #84 ([formel]: default value for signal option uses
deprecated HTML font tag).
-- Making use of the new "contrast" CSS class with a <span> tag
instead of <font>.
Revision Changes Path
1.18 +3 -4 interchange/code/UserTag/formel.tag
rev 1.18, prev_rev 1.17
Index: formel.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/formel.tag,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- formel.tag 30 Mar 2007 23:40:57 -0000 1.17
+++ formel.tag 1 Aug 2007 06:35:02 -0000 1.18
@@ -6,16 +6,15 @@
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
#
-# $Id: formel.tag,v 1.17 2007/03/30 23:40:57 pajamian Exp $
+# $Id: formel.tag,v 1.18 2007/08/01 06:35:02 kwalsh Exp $
UserTag formel Order label name type size
UserTag formel addAttr
-UserTag formel Version $Revision: 1.17 $
+UserTag formel Version $Revision: 1.18 $
UserTag formel Routine <<EOF
sub {
my ($label, $name, $type, $size, $opt) = @_;
my ($labelhtml, $elhtml, $fmt);
- my $contrast = $::Variable->{CONTRAST} || 'red';
my $checkfor = $opt->{'checkfor'} || $name;
my $sizestr = '';
my $labelproc;
@@ -39,7 +38,7 @@
sprintf($opt->{signal}, $label);
}
else {
- qq{<font color="$contrast">$label</font>};
+ qq{<span class="$::Variable->{CONTRAST}">$label</span>};
}
}
else {
More information about the interchange-cvs
mailing list