[interchange-cvs] interchange - docelic modified
code/Filter/mailto.filter
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sun May 29 06:54:04 EDT 2005
User: docelic
Date: 2005-05-29 10:54:04 GMT
Modified: code/Filter mailto.filter
Log:
* Lowercase <a href=""></a> output
Revision Changes Path
1.3 +3 -3 interchange/code/Filter/mailto.filter
rev 1.3, prev_rev 1.2
Index: mailto.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/mailto.filter,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- mailto.filter 12 Apr 2005 03:23:18 -0000 1.2
+++ mailto.filter 29 May 2005 10:54:04 -0000 1.3
@@ -1,18 +1,18 @@
# Copyright 2002-2004 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 1996-2002 Red Hat, Inc.
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: mailto.filter,v 1.2 2005/04/12 03:23:18 mheins Exp $
+# $Id: mailto.filter,v 1.3 2005/05/29 10:54:04 docelic Exp $
CodeDef mailto Filter
CodeDef mailto Description mailto: link
CodeDef mailto Routine <<EOR
sub {
my ($val,$tag, at arg) = @_;
- my $out = qq{<A HREF="mailto:$val">};
+ my $out = qq{<a href="mailto:$val">};
my $anchor = $val;
if(@arg) {
$anchor = join " ", @arg;
}
- $out .= "$anchor</A>";
+ $out .= "$anchor</a>";
}
EOR
More information about the interchange-cvs
mailing list