[Jifty-commit] r2249 - Template-Declare/lib/Template/Declare

jifty-commit at lists.jifty.org jifty-commit at lists.jifty.org
Fri Dec 1 04:54:52 EST 2006


Author: audreyt
Date: Fri Dec  1 04:54:52 2006
New Revision: 2249

Modified:
   Template-Declare/lib/Template/Declare/Tags.pm

Log:
* Template::Declare::Tags - Output "<tr>...</tr>" not "<Tr>...</Tr>"

Modified: Template-Declare/lib/Template/Declare/Tags.pm
==============================================================================
--- Template-Declare/lib/Template/Declare/Tags.pm	(original)
+++ Template-Declare/lib/Template/Declare/Tags.pm	Fri Dec  1 04:54:52 2006
@@ -11,8 +11,8 @@
 our %ATTRIBUTES = ();
 our $BUFFER = '';
 
-sub Tr (&) { die "tr {...} and td {...} are invalid; use row {...} and cell {...} instead." }
-sub td (&) { die "tr {...} and td {...} are invalid; use row {...} and cell {...} instead." }
+sub Tr (&) { die "Tr {...} and td {...} are invalid; use row {...} and cell {...} instead." }
+sub td (&) { die "Tr {...} and td {...} are invalid; use row {...} and cell {...} instead." }
 
 sub outs { $BUFFER .= join('',grep { defined } @_); return ''; }
 
@@ -39,13 +39,13 @@
 }
 
 our %TagAlternateSpelling = (
-    Tr   => 'row',
+    tr   => 'row',
     td   => 'cell',
     base => '', # Currently 'base' has no alternate spellings; simply ignore it
 );
 
 sub install_tag {
-    my $tag = shift;
+    my $tag = lc($_[0]);
     my $name = $tag;
 
     if (exists($TagAlternateSpelling{$tag})) {


More information about the Jifty-commit mailing list