[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