fu: Close-up of Fu, bringing a scoop of water to her mouth (Default)
fu ([personal profile] fu) wrote in [site community profile] changelog2010-12-29 05:13 am
  • Add Memory
  • Share This Entry

[dw-free] Need consistent styling across the site

[commit: http://hg.dwscoalition.org/dw-free/rev/51f91108e1ed]

http://bugs.dwscoalition.org/show_bug.cgi?id=3243

Tweak HTML -- use thead where applicable; this improves the styling in most
cases. Also tweak the logic/class names for alternating rows in a couple of
pages (missed them!)

Patch by [personal profile] fu.


Files modified:
  • cgi-bin/DW/Setting/XPostAccounts.pm
  • cgi-bin/LJ/SpellCheck.pm
  • cgi-bin/LJ/Widget/LinksList.pm
  • cgi-bin/LJ/Widget/ManageSiteMessages.pm
  • htdocs/admin/faq/faqcat.bml
  • htdocs/admin/invites/codetrace.bml
  • htdocs/admin/invites/promo.bml
  • htdocs/admin/invites/requests.bml
  • htdocs/admin/invites/review.bml
  • htdocs/admin/memcache.bml
  • htdocs/admin/navtag.bml
  • htdocs/admin/pay/index.bml
  • htdocs/admin/priv/index.bml
  • htdocs/admin/schema/index.bml
  • htdocs/admin/spamreports.bml
  • htdocs/admin/statushistory.bml
  • htdocs/admin/sysban.bml
  • htdocs/admin/translate/help-severity.bml
  • htdocs/admin/translate/index.bml
  • htdocs/admin/translate/teams.bml
  • htdocs/admin/userlog.bml
  • htdocs/community/manage.bml
  • htdocs/community/members.bml
  • htdocs/community/moderate.bml
  • htdocs/community/pending.bml
  • htdocs/community/sentinvites.bml
  • htdocs/customize/advanced/layers.bml
  • htdocs/feeds/index.bml
  • htdocs/feeds/list.bml
  • htdocs/manage/banusers.bml
  • htdocs/manage/emailpost.bml
  • htdocs/manage/invitecodes.bml
  • htdocs/manage/invites.bml
  • htdocs/manage/logins.bml
  • htdocs/manage/moodthemes.bml
  • htdocs/shop/history.bml
  • htdocs/support/help.bml
  • htdocs/support/highscores.bml
  • htdocs/support/history.bml
  • htdocs/tools/emailmanage.bml
  • htdocs/tools/recent_comments.bml
  • htdocs/tools/recent_emailposts.bml
  • views/admin/rename.tt
  • views/interests/findsim.tt
  • views/interests/popular.tt
  • views/stats/site.tt
--------------------------------------------------------------------------------
diff -r dec5adeda112 -r 51f91108e1ed cgi-bin/DW/Setting/XPostAccounts.pm
--- a/cgi-bin/DW/Setting/XPostAccounts.pm	Wed Dec 29 11:11:03 2010 +0800
+++ b/cgi-bin/DW/Setting/XPostAccounts.pm	Wed Dec 29 13:13:46 2010 +0800
@@ -65,6 +65,7 @@ sub option {
     $ret .= "<h2>" . $class->ml('setting.xpost.accounts') ."</h2><br/>"; 
     $ret .= "<table class='setting_table'>\n";
     if (scalar @accounts) {
+        $ret .= "<thead>";
         $ret .= "<tr>\n";
         $ret .= "<th>" . $class->ml('setting.xpost.option.username') . "</th>\n";
         $ret .= "<th>" . $class->ml('setting.xpost.option.server') . "</th>\n";
@@ -73,6 +74,7 @@ sub option {
         $ret .= "<th>" . $class->ml('setting.xpost.option.change') . "</th>\n";
         $ret .= "<th>" . $class->ml('setting.xpost.option.delete') . "</th>\n";
         $ret .= "</tr>\n";
+        $ret .= "</thead>";
 
         # display each account
         foreach my $externalacct (@accounts) {
diff -r dec5adeda112 -r 51f91108e1ed cgi-bin/LJ/SpellCheck.pm
--- a/cgi-bin/LJ/SpellCheck.pm	Wed Dec 29 11:11:03 2010 +0800
+++ b/cgi-bin/LJ/SpellCheck.pm	Wed Dec 29 13:13:46 2010 +0800
@@ -138,7 +138,7 @@ sub check_html {
     $iwrite->close;
 
 
-    return ( ( $mscnt || $other_bad ) ? "$output<table cellpadding=3 border=0><tr><th>Text</th><th>Suggestions</th></tr>$footnotes</table>" : "" );
+    return ( ( $mscnt || $other_bad ) ? "$output<table cellpadding=3 border=0><thead><tr><th>Text</th><th>Suggestions</th></tr></thead>$footnotes</table>" : "" );
 }
 
 1;
diff -r dec5adeda112 -r 51f91108e1ed cgi-bin/LJ/Widget/LinksList.pm
--- a/cgi-bin/LJ/Widget/LinksList.pm	Wed Dec 29 11:11:03 2010 +0800
+++ b/cgi-bin/LJ/Widget/LinksList.pm	Wed Dec 29 13:13:46 2010 +0800
@@ -49,8 +49,8 @@ sub render_body {
     $showlinks = $caplinks if $showlinks > $caplinks;
 
     $ret .= "<table border='0' cellspacing='5' cellpadding='0'>";
-    $ret .= "<tr><th>" . $class->ml('widget.linkslist.table.order') . "</th>";
-    $ret .= "<th>" . $class->ml('widget.linkslist.table.title') . "</th><td>&nbsp;</td></tr>";
+    $ret .= "<thead><tr><th>" . $class->ml('widget.linkslist.table.order') . "</th>";
+    $ret .= "<th>" . $class->ml('widget.linkslist.table.title') . "</th><td>&nbsp;</td></tr></thead>";
 
     foreach my $ct (1..$showlinks) {
         my $it = $linkobj->[$ct-1] || {};
diff -r dec5adeda112 -r 51f91108e1ed cgi-bin/LJ/Widget/ManageSiteMessages.pm
--- a/cgi-bin/LJ/Widget/ManageSiteMessages.pm	Wed Dec 29 11:11:03 2010 +0800
+++ b/cgi-bin/LJ/Widget/ManageSiteMessages.pm	Wed Dec 29 13:13:46 2010 +0800
@@ -58,7 +58,7 @@ sub render_body {
     return $ret . "<?p No messages started during the selected month. p?>" unless @this_months_messages;
 
     $ret .= "<table border='1' cellpadding='3'>";
-    $ret .= "<tr><th>Message</th><th>Start Date</th><th>End Date</th><th colspan='2'>Active Status</th><th>Edit</th></tr>";
+    $ret .= "<thead><tr><th>Message</th><th>Start Date</th><th>End Date</th><th colspan='2'>Active Status</th><th>Edit</th></tr></thead>";
     foreach my $row (@this_months_messages) {
         my $start_date = DateTime->from_epoch( epoch => $row->{time_start}, time_zone => 'America/Los_Angeles' );
         my $end_date = DateTime->from_epoch( epoch => $row->{time_end}, time_zone => 'America/Los_Angeles' );
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/faq/faqcat.bml
--- a/htdocs/admin/faq/faqcat.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/faq/faqcat.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -210,7 +210,7 @@ body<=
             $ret .= "<form action='faqcat.bml' method='post'>\n";
             $ret .= LJ::form_auth();
             $ret .= LJ::html_hidden( 'faqcats' => join ( ",", map { $faqcat{$_}->{faqcat} } keys %faqcat ) );
-            $ret .= "<table><tr><th style='padding: 5px'><?_ml .label.catname _ml?></th><th style='padding: 5px'><?_ml .label.catkey _ml?></th><th style='padding: 5px'><?_ml .label.catorder _ml?></th><th>&nbsp;</th><th>&nbsp;</th><th>&nbsp;</th><th>&nbsp</th></tr>";
+            $ret .= "<table><thead><tr><th style='padding: 5px'><?_ml .label.catname _ml?></th><th style='padding: 5px'><?_ml .label.catkey _ml?></th><th style='padding: 5px'><?_ml .label.catorder _ml?></th><th>&nbsp;</th><th>&nbsp;</th><th>&nbsp;</th><th>&nbsp</th></tr></thead>";
 
             foreach my $faqcat ( sort { $faqcat{$a}->{catorder} <=> $faqcat{$b}->{catorder} } keys %faqcat ) {
 
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/invites/codetrace.bml
--- a/htdocs/admin/invites/codetrace.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/invites/codetrace.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -57,7 +57,7 @@ sub display_codes {
 sub display_codes {
     my ($account, @codes) = @_;
 
-    my $ret = "<table border='1' cellpadding='5'><tr><th>Code</th><th>Owner</th><th>Recipient</th><th>Reason</th><th>Date generated</th><th>Date sent</th><th>Date used</th><th>Email</th></tr>";
+    my $ret = "<table border='1' cellpadding='5'><thead><tr><th>Code</th><th>Owner</th><th>Recipient</th><th>Reason</th><th>Date generated</th><th>Date sent</th><th>Date used</th><th>Email</th></tr></thead>";
 
     foreach my $code ( @codes ) {
         my $owner = $code->owner == $account->id ? $account : LJ::load_userid( $code->owner );
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/invites/promo.bml
--- a/htdocs/admin/invites/promo.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/invites/promo.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -213,7 +213,7 @@ body<=
         $ret .= '<a href="/admin/invites/promo?state=noneleft">' . $ML{'.state.noneleft'} . '</a>';
 
         $ret .= "<table>";
-        $ret .= "<tr><th>$ML{'.heading.code'}</th><th>$ML{'.heading.active'}</th><th>$ML{'.heading.count'}</th><th>$ML{'.heading.suggest'}</th><th>$ML{'.heading.paid'}</tr>";
+        $ret .= "<thead><tr><th>$ML{'.heading.code'}</th><th>$ML{'.heading.active'}</th><th>$ML{'.heading.count'}</th><th>$ML{'.heading.suggest'}</th><th>$ML{'.heading.paid'}</tr></thead>";
         
         if ( scalar( @$codes ) ) {
             foreach my $code (@$codes) {
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/invites/requests.bml
--- a/htdocs/admin/invites/requests.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/invites/requests.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -59,7 +59,7 @@ body<=
     $ret .= "<form method='post'>";
     $ret .= LJ::form_auth();
     $ret .= "<table>";
-    $ret .= "<tr><th>User</th><th>Time Generated</th><th>P/C</th><th>Ct</th><th>Give</th><th>Reason</th></tr>";
+    $ret .= "<thead><tr><th>User</th><th>Time Generated</th><th>P/C</th><th>Ct</th><th>Give</th><th>Reason</th></tr></thead>";
     foreach my $outstanding ( @outstanding ) {
         my $u = $users->{$outstanding->userid};
         
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/invites/review.bml
--- a/htdocs/admin/invites/review.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/invites/review.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -53,7 +53,7 @@ body<=
 
     my @codes = DW::InviteCodes->by_owner( userid => $u->id );
     $ret .= "<table>";
-    $ret .= "<tr><th>Recipient</th><th>Last Active</th><th>Paid?</th></tr>";
+    $ret .= "<thead><tr><th>Recipient</th><th>Last Active</th><th>Paid?</th></tr></thead>";
 
     foreach my $code ( @codes ) {
         my $recipient = LJ::load_userid( $code->recipient );
@@ -73,7 +73,7 @@ body<=
     $ret .= "<?h2 Requests for Invite Codes h2?>";    
     my @requests = DW::InviteCodeRequests->by_user( userid => $u->id );
     $ret .= "<table>";
-    $ret .= "<tr><th>Requested on</th><th>Processed on</th><th>Status</th><th>Request reason</th></tr>";
+    $ret .= "<thead><tr><th>Requested on</th><th>Processed on</th><th>Status</th><th>Request reason</th></tr></thead>";
 
     foreach my $request ( @requests ) {
         $ret .= "<tr>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/memcache.bml
--- a/htdocs/admin/memcache.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/memcache.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -46,7 +46,7 @@ _c?>
 </div>
 <h1>Memory Cache Overview</h1>
 <table border='1' cellpadding='5'>
-<tr><th>Host</th><th>Hit Rate</th><th>Curr/Max Size</th><th><span title='Utilization'>Utlz %</span></th><th>Uptime</th><th>Version</th></tr>
+<thead><tr><th>Host</th><th>Hit Rate</th><th>Curr/Max Size</th><th><span title='Utilization'>Utlz %</span></th><th>Uptime</th><th>Version</th></tr></thead>
 END_TOP
     }
 
@@ -153,7 +153,7 @@ END_TOP
 
 	    $ret .= "<h2>Slab classes</h2>";
 	    $ret .= "<table border='1' cellpadding='2'>";
-	    $ret .= "<tr><th>class</th><th>size</th><th>used</th><th>total</th><th colspan='2'>free</th><th>pages</th><th>max age</th></tr>\n";
+	    $ret .= "<thead><tr><th>class</th><th>size</th><th>used</th><th>total</th><th colspan='2'>free</th><th>pages</th><th>max age</th></tr></thead>\n";
 	    foreach my $cls (0..31) {
 		my $size = $stat{'slabs'}{"$cls:chunk_size"};
 		next unless $size;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/navtag.bml
--- a/htdocs/admin/navtag.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/navtag.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -112,7 +112,7 @@ _c?>
 	    $ret .= LJ::html_text({ name => 'add_tags', size => 30 });
 	    $ret .= LJ::html_hidden('add_tags_url', $dest);
 	} else {
-	    $ret .= "<table><tr><th>Add Tags</th><th>URL</th></tr>";
+	    $ret .= "<table><thead><tr><th>Add Tags</th><th>URL</th></tr></thead>";
 	    $ret .= "<tr><td>";
 	    $ret .= LJ::html_text({ name => 'add_tags', size => 30 });
 	    $ret .= "</td><td>";
@@ -153,7 +153,7 @@ _c?>
         $ret .= LJ::form_auth();
         $ret .= "<?h1 Tags Pointing At " . LJ::ehtml($url) . " h1?>";
 
-        $ret .= "<table><tr><th>Tag</th><th>Remove</th></tr>";
+        $ret .= "<table><thead><tr><th>Tag</th><th>Remove</th></tr></thead>";
 
         my $dest = LJ::NavTag::Dest->new_from_url($url);
 
@@ -181,7 +181,7 @@ _c?>
 	my $ret;
 
 	$ret .= "<?h1 Destinations Of Tag " . LJ::ehtml($tag) . " h1?>";
-	$ret .= "<table><tr><th>Title</th><th>Destination</th></tr>";
+	$ret .= "<table><thead><tr><th>Title</th><th>Destination</th></tr></thead>";
 
 	my @dests = LJ::NavTag->dests_of_tag($tag);
 
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/pay/index.bml
--- a/htdocs/admin/pay/index.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/pay/index.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -133,8 +133,8 @@ EOF
 
         if ( @carts ) {
             $body .= "<table border='1'>";
-            $body .= "<tr><th>Cart Number</th><th>Date</th><th>Total</th>";
-            $body .= "<th>Payment Method</th><th>Status</th><th>Details</th>";
+            $body .= "<thead><tr><th>Cart Number</th><th>Date</th><th>Total</th>";
+            $body .= "<th>Payment Method</th><th>Status</th><th>Details</th></tr></thead>";
             foreach my $cart ( @carts ) {
                 my $state = $cart->state;
                 my $paymentmethod = $cart->paymentmethod;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/priv/index.bml
--- a/htdocs/admin/priv/index.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/priv/index.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -208,7 +208,7 @@ body<=
         $ret .= "<input type='hidden' name='user' value='$user' />\n";
         $sth = $dbh->prepare("SELECT pm.prmid, pm.prlid, pm.arg FROM priv_map pm, priv_list pl WHERE pm.prlid=pl.prlid AND pm.userid=$userid ORDER BY pl.privcode,pm.arg");
         $sth->execute;
-        $ret .= "<table cellpadding='5' cellspacing='1' border='1'><tr><th>Revoke</th><th>Privilege</th><th>Arg</th></tr>\n";
+        $ret .= "<table cellpadding='5' cellspacing='1' border='1'><thead><tr><th>Revoke</th><th>Privilege</th><th>Arg</th></tr></thead>\n";
         while (my ($prmid, $prlid, $arg) = $sth->fetchrow_array)
         {
             my $prec = $priv{$prlid};
@@ -294,7 +294,7 @@ body<=
                           "FROM priv_map pm, useridmap u WHERE pm.prlid=$priv AND pm.userid=u.userid$viewarg ".
                           "ORDER BY u.user,pm.arg LIMIT $skip,$limit");
         $sth->execute;
-        $ret .= "<table cellpadding='5' cellspacing='1' border='1'><tr><th>Revoke</th><th>User</th><th>Arg</th></tr>\n";
+        $ret .= "<table cellpadding='5' cellspacing='1' border='1'><thead><tr><th>Revoke</th><th>User</th><th>Arg</th></tr></thead>\n";
 
         my $showgrant = remote_can_grant($remote, $pcode, $FORM{'viewarg'});
         my $foundcount = 0;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/schema/index.bml
--- a/htdocs/admin/schema/index.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/schema/index.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -48,7 +48,7 @@ body<=
          $table{$name} = { 'public' => $public, 'des' => $des };
      }
 
-     $body .= "<?h1 Tables h1?><?p Click a table for more information. p?><p><table cellpadding=4><tr bgcolor=<?emcolor?>><th>Table</th><th>Description</th></tr>\n";
+     $body .= "<?h1 Tables h1?><?p Click a table for more information. p?><p><table cellpadding=4><thead><tr bgcolor=<?emcolor?>><th>Table</th><th>Description</th></tr></thead>\n";
      $sth = $dbh->prepare("SHOW TABLES");
      $sth->execute;
      while (my ($table) = $sth->fetchrow_array) {
@@ -99,14 +99,14 @@ body<=
 
      $sth = $dbh->prepare("DESCRIBE $table");
      $sth->execute;
-     $body .= "<table cellpadding=3><tr bgcolor=<?emcolor?>>";
+     $body .= "<table cellpadding=3><thead><tr bgcolor=<?emcolor?>>";
      $body .= "<th>Key?</th>";
      $body .= "<th>Column</th>";
      $body .= "<th>Type</th>";
      $body .= "<th>Null</th>";
      $body .= "<th>Default</th>";
      $body .= "<th>Description</th>";
-     $body .= "</tr>\n";
+     $body .= "</tr></thead>\n";
      while (my $row = $sth->fetchrow_hashref)
      {
          my $name = $row->{'Field'};
@@ -148,11 +148,11 @@ body<=
 
      $sth = $dbh->prepare("SELECT * FROM $table LIMIT $MAX_ROWS");
      $sth->execute;
-     $body .= "<table cellpadding=3><tr bgcolor=<?emcolor?>>";
+     $body .= "<table cellpadding=3><thead><tr bgcolor=<?emcolor?>>";
      foreach my $col (@{$sth->{'NAME'}}) {
          $body .= "<th>$col</th>\n";
      }
-     $body .= "</tr>\n";
+     $body .= "</tr></thead>\n";
 
      while (my $row = $sth->fetchrow_arrayref) {
          $body .= "<tr valign=top>\n";
@@ -194,11 +194,11 @@ body<=
 
      $sth = $dbh->prepare("DESCRIBE $table");
      $sth->execute;
-     $body .= "<p><table cellpadding=3><tr bgcolor=<?emcolor?>>";
+     $body .= "<p><table cellpadding=3><thead><tr bgcolor=<?emcolor?>>";
      $body .= "<th>Column</th>";
      $body .= "<th>Type</th>";
      $body .= "<th>Description</th>";
-     $body .= "</tr>\n";
+     $body .= "</tr></thead>\n";
      while (my $row = $sth->fetchrow_hashref)
      {
          my $name = $row->{'Field'};
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/spamreports.bml
--- a/htdocs/admin/spamreports.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/spamreports.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -288,9 +288,9 @@ _c?>
     # now spit out the requested table
     return unless @headers;
     $body .= "<?p [ <a href=\"spamreports\">&lt;&lt; Front Page</a> ] p?>";
-    $body .= "<table width=\"50%\">\n<tr>";
+    $body .= "<table width=\"50%\">\n<thead><tr>";
     $body .= "<th align=\"center\">$_</th>" foreach @headers;
-    $body .= "</tr>\n";
+    $body .= "</tr></thead>\n";
     foreach (@rows) {
         $body .= "<tr>";
         $body .= "<td align=\"center\">$_</td>" foreach @$_;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/statushistory.bml
--- a/htdocs/admin/statushistory.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/statushistory.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -91,13 +91,13 @@ _c?>
         $ret .= "&nbsp;&nbsp;$_=" . LJ::eall($FORM{$_}) if $FORM{$_}
     }
     $ret .= "</b></p>\n";
-    $ret .= "<table border='1' cellpadding='5' width='100%'>\n<tr>";
+    $ret .= "<table border='1' cellpadding='5' width='100%'>\n<thead><tr>";
     foreach (qw(user admin shtype shdate notes)) {
         my $link = "statushistory?user=$FORM{'user'}&admin=$FORM{'admin'}&type=$FORM{'type'}&orderby=$_";
         $link .= $FORM{'orderby'} eq $_ && $FORM{'flow'} eq 'asc' ? "&flow=desc" : "&flow=asc";
         $ret .= "<th><a href='$link'>$_</a></th>";
     }
-    $ret .= "</tr>\n";
+    $ret .= "</tr></thead>\n";
 
     # query built above
     my $ct = 0;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/sysban.bml
--- a/htdocs/admin/sysban.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/sysban.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -108,7 +108,7 @@ FORM
 
         $ret = <<QUERYFORM;
 <table>
-<tr><th>Value</th><th>Expiration</th><th>Change expiry</th><th>Note</th><th>Action</th></tr>
+<thead><tr><th>Value</th><th>Expiration</th><th>Change expiry</th><th>Note</th><th>Action</th></tr></thead>
 QUERYFORM
 
         foreach my $value ( keys %$existing_bans ) {
@@ -178,7 +178,7 @@ QUERYFORM
         my $sysbans = LJ::sysban_populate_full_by_value( $banquery, @sysban_privs ) || {};
         if ( %$sysbans ) {
             $ret .= "Sysbans for " . LJ::ehtml( $banquery );
-            $ret .= "<table><tr><th>Type</th><th>Expiration</th><th>Note</th></tr>";
+            $ret .= "<table><thead><tr><th>Type</th><th>Expiration</th><th>Note</th></tr></thead>";
             while ( my ( $what, $details ) = each %$sysbans  ) {
                 $ret .= "<tr>";
                 $ret .= "<td>$what</td>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/translate/help-severity.bml
--- a/htdocs/admin/translate/help-severity.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/translate/help-severity.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -1,7 +1,7 @@
 <h1>Description of severity levels:</h1>
 
 <table cellpadding='3'>
-<tr valign='top'><th>Severity</th><th>Description</th></tr>
+<thead><tr valign='top'><th>Severity</th><th>Description</th></tr></thead>
 <tr valign='top'><td><b>0</b></td><td>Translate is up-to-date</td></tr>
 <tr valign='top'><td><b>1</b></td><td>Parent language has changed a little.  Your translation might need updating.</td></tr>
 <tr valign='top'><td><b>2</b></td><td>Parent language has changed.  Your translation probably needs updating.</td></tr>
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/translate/index.bml
--- a/htdocs/admin/translate/index.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/translate/index.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -49,7 +49,7 @@ body<=
 
     $ret .= BML::ml('.text', {'aopts' => "href='$LJ::SITEROOT/admin/translate/teams'"});
 
-    $ret .= "<p><table border='1' cellspacing='1' cellpadding='3'><tr>";
+    $ret .= "<p><table border='1' cellspacing='1' cellpadding='3'><thead><tr>";
     foreach (@cols) {
         if ($sortcol eq $_->[0]) {
             $ret .= "<th>$_->[1]</th>";
@@ -58,7 +58,7 @@ body<=
         }
         if ($_->[0] eq $sortcol && $_->[3]) { $sorter = $_->[3]; }
     }
-    $ret .= "</tr>\n";
+    $ret .= "</tr></thead>\n";
 
     foreach my $r (sort $sorter values %lang) {
         $ret .= "<tr>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/translate/teams.bml
--- a/htdocs/admin/translate/teams.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/translate/teams.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -40,7 +40,7 @@ body<=
     }
 
     $ret .= "<p><table cellpadding='5' border='1'>";
-    $ret .= "<tr><th>$ML{'.table.language'}</th><th>$ML{'.table.community'}</th><th>$ML{'.table.users'}</th></tr>";
+    $ret .= "<thead><tr><th>$ML{'.table.language'}</th><th>$ML{'.table.community'}</th><th>$ML{'.table.users'}</th></tr></thead>";
 
     foreach my $l (sort { $a->{'lnname'} cmp $b->{'lnname'} } values %lang) {
         $ret .= "<tr valign='top' align='left'><td><b>$l->{'lnname'}</b></td>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/admin/userlog.bml
--- a/htdocs/admin/userlog.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/admin/userlog.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -77,9 +77,9 @@ FORM
 
     $ret .= "<?p Latest log entries for " . LJ::ljuser($u) . ". p?>";
     $ret .= "<table style='border: solid 1px black; width: 95%;'>\n";
-    $ret .= "<tr>";
+    $ret .= "<thead><tr>";
     $ret .= join('', map { "<th class='logrow'>$_</th>" } ("Date and Time", "Action", "Initiator", "IP Address", "Uniq Cookie"));
-    $ret .= "</tr>\n";
+    $ret .= "</tr></thead>\n";
 
     while (my $row = $sth->fetchrow_hashref) {
         my $extra = {};
diff -r dec5adeda112 -r 51f91108e1ed htdocs/community/manage.bml
--- a/htdocs/community/manage.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/community/manage.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -80,7 +80,7 @@ body<=
 
        # Make up the first table row, linking to the other sort methods
        my @snames;
-       $ret .= "<table cellpadding='0' cellspacing='0' style='width: 100%;'><tr>";
+       $ret .= "<table cellpadding='0' cellspacing='0' style='width: 100%;'><thead><tr>";
 
        if (!defined $GET{'sortby'} || $GET{'sortby'} eq 'username') {
            $ret .= "<th>$ML{'.commlist.username'}</th>";
@@ -107,11 +107,13 @@ body<=
            $ret .= "<th>&nbsp;</th>";
        }
 
+       $ret .= "</tr></thead>";
+
        my $rc = 0;
        foreach my $id (@snames) {
            my $user = $names{$id}->[0];
            my $name = $names{$id}->[1];
-           my $rstyle = ($rc++ & 1) ? "odd" : "even";
+           my $rstyle = ($rc++ & 1) ? "even" : "odd";
            $ret .= "<tr class='$rstyle'><td><?ljcomm $user ljcomm?></td><td>" . LJ::eall($name) . "</td><td nowrap='nowrap'>";
            if ($admin{$id}) {
                $ret .= BML::ml('Actionlink', {
diff -r dec5adeda112 -r 51f91108e1ed htdocs/community/members.bml
--- a/htdocs/community/members.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/community/members.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -527,16 +527,16 @@ body<=
     }
 
     my $sortlink = BML::get_uri() . "?authas=$cname&sort=";
-    $ret .= "<br /><div align='center'><table cellpadding='0' cellspacing='0'>\n<tr>" .
+    $ret .= "<br /><div align='center'><table cellpadding='0' cellspacing='0'>\n<thead><tr>" .
             "<th><a href='${sortlink}name'>$ML{'.key.user'}</a></th>";
     $ret .= "<th><a href='${sortlink}$_'>".$ML{".key.$_"}."</a></th>" for (@attribs);
-    $ret .= "</tr>\n";
+    $ret .= "</tr></thead>\n";
 
     # rows for existing users
     my $rc = 0;
     my @wstrs;
     foreach(@users) {
-        my $rstyle = ($rc++ & 1) ? "odd" : "even";
+        my $rstyle = ($rc++ & 1) ? "even" : "odd";
         $ret .= "<tr class='$rstyle'><td>" . LJ::ljuser($_->{'name'}) . "</td>";
         my $wstr;
         foreach my $key (@attribs) {
@@ -553,7 +553,7 @@ body<=
     # if on the last page, let users add to the list
     if ($items{'page'} == $items{'pages'}) {
         foreach(1..5) {
-            my $rstyle = ($rc++ & 1) ? "altrow2" : "altrow1";
+            my $rstyle = ($rc++ & 1) ? "even" : "odd";
             $ret .= "<tr class='$rstyle'><td>";
             $ret .= LJ::html_text({ 'name' => "add_$_", 'size' => '10', 'class' => 'text', 'maxlength' => '75' }) . "</td>";
             foreach my $key (@attribs) {
diff -r dec5adeda112 -r 51f91108e1ed htdocs/community/moderate.bml
--- a/htdocs/community/moderate.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/community/moderate.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -324,11 +324,12 @@ body<=
         } else {
             $ret .= qq{
             <table cellpadding='5'>
-                <tr>
-                    <th>$ML{'.brlist.time'}</th>                <th>$ML{'.brlist.poster'}</th>
+                <thead><tr>
+                    <th>$ML{'.brlist.time'}</th>
+                    <th>$ML{'.brlist.poster'}</th>
                     <th>$ML{'.brlist.subject'}</th>
                     <th>$ML{'.brlist.actions'}</th>
-                </tr>
+                </tr></thead>
             };
 
             my %users;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/community/pending.bml
--- a/htdocs/community/pending.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/community/pending.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -168,7 +168,7 @@ body<=
     }
 
     # table headers
-    $ret .= "<br /><div align='center'><table class='userslist-table' cellspacing='0' cellpadding='2'>\n<tr><th>";
+    $ret .= "<br /><div align='center'><table class='userslist-table' cellspacing='0' cellpadding='2'>\n<thead><tr><th>";
     $ret .= LJ::html_check({ id => 'all', name => 'all', checked => 'checked', 
 	onchange =>
 		"var inputs = document.pending_member_form.getElementsByTagName('input');
@@ -185,13 +185,13 @@ body<=
 			}
 		}", 
   	 selected => 0 });
-    $ret .= "</th><th>$ML{'/community/members.bml.key.user'}</th></tr>\n";
+    $ret .= "</th><th>$ML{'/community/members.bml.key.user'}</th></tr></thead>\n";
 
     # rows for existing users
     my $rc = 0;
     foreach (@users) {
-        my $rstyle = ($rc++ & 1) ? '#efefef' : '#fff';
-        $ret .= "<tr style='background-color: $rstyle;'><td>";
+        my $rstyle = ($rc++ & 1) ? 'even' : 'odd';
+        $ret .= "<tr class='$rstyle'><td>";
         $ret .= LJ::html_check({ id => 'pending_' . $_->userid, name => 'pending_' . $_->userid, 
                                  selected => $jumpto ? ($_->user eq $jumpto ? 1 : 0) : 1 });
         $ret .= "</td><td>" . LJ::ljuser($_->{user}) . "</td></tr>\n";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/community/sentinvites.bml
--- a/htdocs/community/sentinvites.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/community/sentinvites.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -219,13 +219,13 @@ body<=
 </table>
 <br />
 END
-    $ret .= "<table cellpadding='0' cellspacing='0'>\n<tr>" .
+    $ret .= "<table cellpadding='0' cellspacing='0'>\n<thead><tr>" .
             "<th><a href='${sortlink}name'>$ML{'/community/members.bml.key.user'}</a></th>";
     $ret .= "<th><a href='${sortlink}$_'>$_</a></th>" foreach @titleattribs;
     $ret .= "<th><a href='${sortlink}maint'>$ML{'.key.sentby'}</a></th>";
     $ret .= "<th><a href='${sortlink}date'>$ML{'.key.date'}</a></th>";
     $ret .= "<th><a href='${sortlink}status'>$ML{'.key.status'}</a></th>";
-    $ret .= "</tr>\n";
+    $ret .= "</tr></thead>\n";
 
     $ret .= "<form method='post'>";
     $ret .= LJ::form_auth();
@@ -238,7 +238,7 @@ END
     # rows for existing users
     my $rc = 0;
     foreach(@users) {
-        my $rstyle = ($rc++ & 1) ? "odd" : "even";
+        my $rstyle = ($rc++ & 1) ? "even" : "odd";
         $ret .= "<tr class='$rstyle'><td>" . LJ::ljuser($_->{user}) . "</td>";
         foreach my $key (@attribs) {
             $ret .= "<td align='center'>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/customize/advanced/layers.bml
--- a/htdocs/customize/advanced/layers.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/customize/advanced/layers.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -195,7 +195,7 @@ _c?>
     $body .= "<?h1 $ML{'.yourlayers.header'} h1?>\n";
     if (%$ulay) {
         $body .= "<table id='table_yourlayers' class='grid' cellpadding='3' border='1'>\n";
-        $body .= "<tr><th>$ML{'.yourlayers.table.layerid'}</th><th>$ML{'.yourlayers.table.type'}</th><th>$ML{'.yourlayers.table.name'}</th><th>$ML{'.yourlayers.table.actions'}</th></tr>\n";
+        $body .= "<thead><tr><th>$ML{'.yourlayers.table.layerid'}</th><th>$ML{'.yourlayers.table.type'}</th><th>$ML{'.yourlayers.table.name'}</th><th>$ML{'.yourlayers.table.actions'}</th></tr></thead>\n";
         my $lastbase = 0;
         foreach my $lid (sort { $ulay->{$a}->{'b2lid'} <=> $ulay->{$b}->{'b2lid'} || $a <=> $b } 
                          keys %$ulay) 
diff -r dec5adeda112 -r 51f91108e1ed htdocs/feeds/index.bml
--- a/htdocs/feeds/index.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/feeds/index.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -226,8 +226,8 @@ body<=
     if (@pop) {
         $ret .= "<?h1 $ML{'.add.pop.title'} h1?><?p $ML{'.add.pop.text'} p?>";
         $ret .= "<p><table cellpadding='3' style='margin-bottom: 10px; width: 80%;'>";
-        $ret .= "<tr><th>$ML{'.table.account'}</th><th>$ML{'.table.feed'}</th><td></td>";
-        $ret .= "<th align='right'>$ML{'.table.watchers'}</th></tr>";
+        $ret .= "<thead><tr><th>$ML{'.table.account'}</th><th>$ML{'.table.feed'}</th><td></td>";
+        $ret .= "<th align='right'>$ML{'.table.watchers'}</th></tr></thead>";
         foreach (@pop) {
             my ($user, $url, $count) = @$_;
             $ret .= "<tr>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/feeds/list.bml
--- a/htdocs/feeds/list.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/feeds/list.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -29,14 +29,14 @@ body<=
  my $navbar = LJ::paging_bar($items{'page'}, $items{'pages'});
  @data = @{$items{'items'}};
 
- $ret .= $navbar . "<table id='synlist'><tr valign='bottom'>";
+ $ret .= $navbar . "<table id='synlist'><thead><tr valign='bottom'>";
  $ret .= $GET{'sort'} eq "username" ? "<th>" . $ML{'.username'} . "</th>":
                                       "<th><a href='" . BML::self_link({ 'sort' => "username"}) . "'>" . $ML{'.username'} . "</a>";
  $ret .= $GET{'sort'} eq "feeddesc" ? "<th>" . $ML{'.feeddesc'} . "</th>":
                                       "<th><a href='" . BML::self_link({ 'sort' => "feeddesc"}) . "'>" . $ML{'.feeddesc'} . "</a>";
  $ret .= $GET{'sort'} eq "numreaders" ? "<th>" . $ML{'.numreaders'} . "</th>":
                                         "<th><a href='" . BML::self_link({ 'sort' => "numreaders"}) . "'>" . $ML{'.numreaders'} . "</a>";
- $ret .= "</th><th>&nbsp;</th></tr>";
+ $ret .= "</th><th>&nbsp;</th></tr></thead>";
  foreach (@data) {
      $ret .= "<tr>";
      $ret .= "<td>" . LJ::ljuser($_->{'user'}, { 'type' => 'Y' }) . "</td>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/manage/banusers.bml
--- a/htdocs/manage/banusers.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/manage/banusers.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -108,7 +108,7 @@ body<=
         my $us = LJ::load_userids(@$banned);
 
         $ret .= $u->is_community ? "<p>$ML{'.intro.unban.comm'}</p>" : "<p>$ML{'.intro.unban.self'}</p>";
-        $ret .= "<table class='userslist-table' cellspacing=0 cellpadding=0><tr><th>";
+        $ret .= "<table class='userslist-table' cellspacing=0 cellpadding=0><thead><tr><th>";
         $ret .= LJ::html_check({ id => 'all', name => 'all', onchange =>
                 "var inputs=document.ban_users_form.getElementsByTagName('input');
                 for (var i = 0; i < inputs.length; i++) {
@@ -123,7 +123,7 @@ body<=
                         inputs[i].checked = this.checked;                  
                     } 
                }", selected => 0 });
-        $ret .= "</th><th>$ML{'/community/members.bml.key.user'}</th></tr>\n";
+        $ret .= "</th><th>$ML{'/community/members.bml.key.user'}</th></tr></thead>\n";
 		
 		my $rc = 0;
 		
diff -r dec5adeda112 -r 51f91108e1ed htdocs/manage/emailpost.bml
--- a/htdocs/manage/emailpost.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/manage/emailpost.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -397,10 +397,9 @@ body<=
     $ret .= "<form method='post' action='emailpost'>\n";
     $ret .= LJ::form_auth();
     $ret .= "<div style='margin-left:40px;'>";
-    $ret .= "<table border=\"0\"><th>$ML{'.addresses.table.address'}</th>";
+    $ret .= "<table border=\"0\"><thead><tr><th>$ML{'.addresses.table.address'}</th>";
     $ret .= "<th>$ML{'setting.emailposting.option.senderrors'}</th>";
-    $ret .= "<td>&nbsp;</td>";
-    $ret .= "<th>$ML{'setting.emailposting.option.helpmessage'}</th></tr>";
+    $ret .= "<th>$ML{'setting.emailposting.option.helpmessage'}</th></tr></thead>";
     for(0..2) { # Limited to 3 addresses.
         $ret .= '<tr><td>';
         my $selected = 0;
@@ -411,7 +410,7 @@ body<=
         $ret .= '<center>' . 
             LJ::html_check({name => "check_$_", selected => $selected})
             . '</center>';
-        $ret .= '</td><td width="20"></td><td>';
+        $ret .= '</td><td>';
         $ret .= '<center>' . 
             LJ::html_check( { name => "help_$_", selected => 0 } )
             . '</center>';
diff -r dec5adeda112 -r 51f91108e1ed htdocs/manage/invitecodes.bml
--- a/htdocs/manage/invitecodes.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/manage/invitecodes.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -86,7 +86,7 @@ body<=
         } @invitecodes;
 
 
-        $ret .= "<table class='invitecodes' id='invitecodes'><tr><th>$ML{'.header.code'}</th><th>$ML{'.header.recipient'}</th><th width='200'>$ML{'.header.used'}</th><th width='200'>$ML{'.header.sent'}</th><th>$ML{'.header.email'}</th></tr>";
+        $ret .= "<table class='invitecodes' id='invitecodes'><thead><tr><th>$ML{'.header.code'}</th><th>$ML{'.header.recipient'}</th><th width='200'>$ML{'.header.used'}</th><th width='200'>$ML{'.header.sent'}</th><th>$ML{'.header.email'}</th></tr></thead>";
     
         foreach my $code ( @invitecodes ) {
             $ret .= "<tr>";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/manage/invites.bml
--- a/htdocs/manage/invites.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/manage/invites.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -113,15 +113,15 @@ body<=
     # prepare table
     $ret .= "<form method='post'>\n<div align='center'><table id='invites-list' cellspacing='0' cellpadding='0'>";
     $ret .= LJ::form_auth();
-    $ret .= "<tr><th>$ML{'.community.title'}</th><th>$ML{'.abilities.title'}</th>";
+    $ret .= "<thead><tr><th>$ML{'.community.title'}</th><th>$ML{'.abilities.title'}</th>";
     $ret .= "<th colspan='2'>$ML{'.actions.title'}</th>";
-    $ret .= "</tr>";
+    $ret .= "</tr></thead>";
 
     # now list memberships
     my $rc = 0;
     foreach my $invite (@$pending) {
         # get variables we'll need for HTML generation
-        my $rstyle = ($rc++ & 1) ? "odd" : "even";
+        my $rstyle = ($rc++ & 1) ? "even" : "odd";
         my $cu = $us->{$invite->[0]};
         my $key = "pending_$invite->[0]";
         my @tags = ();
diff -r dec5adeda112 -r 51f91108e1ed htdocs/manage/logins.bml
--- a/htdocs/manage/logins.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/manage/logins.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -74,9 +74,10 @@ body<=
     } else {
         $body .= "<?h1 $ML{'.loggedin.header'} h1?>";
     }
-    $body .= "<table width='100%'><tr><th>$ML{'.loggedin.table.time'}</th><th>$ML{'.loggedin.table.ip'}</th><th width='45%'>$ML{'.loggedin.table.useragent'}</th>";
+    $body .= "<table width='100%'><thead><tr><th>$ML{'.loggedin.table.time'}</th><th>$ML{'.loggedin.table.ip'}</th><th width='45%'>$ML{'.loggedin.table.useragent'}</th>";
     $body .= "<th>$ML{'.loggedin.table.exptype'}</th><th>$ML{'.loggedin.table.bound'}</th><th>$ML{'.loggedin.table.create'}</th><th>$ML{'.loggedin.table.expire'}</th>" if $adminmode;
-    $body .= "<th>$ML{'.loggedin.table.logout'}</th></tr>\n" unless $user;
+    $body .= "<th>$ML{'.loggedin.table.logout'}</th>\n" unless $user;
+    $body .= "</tr></thead>";
 
     foreach my $login (sort { $a->[1] <=> $b->[1] } @$logins) {
         unless (defined $sessions->{$login->[1]}) {
@@ -117,7 +118,7 @@ body<=
     } else {
         $body .= "<?h1 $ML{'.prior.header'} h1?>\n";
     }
-    $body .= "<table width='100%'><tr><th>$ML{'.prior.table.time'}</th><th>$ML{'.prior.table.ip'}</th><th width='57%'>$ML{'.prior.table.useragent'}</th></tr>";
+    $body .= "<table width='100%'><thead><tr><th>$ML{'.prior.table.time'}</th><th>$ML{'.prior.table.ip'}</th><th width='57%'>$ML{'.prior.table.useragent'}</th></tr></thead>";
     foreach my $login (sort { $b->[1] <=> $a->[1] } @prior) {
         $body .= "<tr>\n";
         $body .= "<td>" . LJ::ehtml(LJ::time_to_http($login->[0])) . "</td>\n";
diff -r dec5adeda112 -r 51f91108e1ed htdocs/manage/moodthemes.bml
--- a/htdocs/manage/moodthemes.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/manage/moodthemes.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -451,7 +451,7 @@ body<=
                 $ret .= LJ::html_hidden('edit' => 1,
                                         'themeids' => join(",", map { $_->{moodthemeid} } @user_themes));
                 $ret .= "<table>";
-                $ret .= "<tr><th></th><th>$ML{'.yourthemes.example.happy'}</th><th>$ML{'.yourthemes.example.sad'}</th><th>$ML{'.yourthemes.example.angry'}</th><th></th></tr>";
+                $ret .= "<thead><tr><th></th><th>$ML{'.yourthemes.example.happy'}</th><th>$ML{'.yourthemes.example.sad'}</th><th>$ML{'.yourthemes.example.angry'}</th><th></th></tr></thead>";
                 foreach my $theme ( @user_themes ) {
                     my $ename = LJ::ehtml( $theme->{name} );
                     my $tid = $theme->{moodthemeid};
diff -r dec5adeda112 -r 51f91108e1ed htdocs/shop/history.bml
--- a/htdocs/shop/history.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/shop/history.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -39,8 +39,8 @@ body<=
 
     my $ret;
     $ret .= "<table class='shop-cart'>";
-    $ret .= "<tr><th>$ML{'.cart.header.ordernumber'}</th><th>$ML{'.cart.header.date'}</th><th>$ML{'.cart.header.total'}</th>";
-    $ret .= "<th>$ML{'.cart.header.paymentmethod'}</th><th>$ML{'.cart.header.status'}</th><th>$ML{'.cart.header.details'}</th></tr>";
+    $ret .= "<thead><tr><th>$ML{'.cart.header.ordernumber'}</th><th>$ML{'.cart.header.date'}</th><th>$ML{'.cart.header.total'}</th>";
+    $ret .= "<th>$ML{'.cart.header.paymentmethod'}</th><th>$ML{'.cart.header.status'}</th><th>$ML{'.cart.header.details'}</th></tr></thead>";
     foreach my $cart ( @carts ) {
         my $state = $cart->state;
         my $paymentmethod = $cart->paymentmethod;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/support/help.bml
--- a/htdocs/support/help.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/support/help.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -258,7 +258,7 @@ body<=
 
  my %marked = map { $_ => 1 } split( ',', $GET{mark} );
  my $uri = "$LJ::SITEROOT/support/help?cat=$filtercat&state=$state";
- $ret .= "<p><table class='supporttable'><tr bgcolor='#d0d0d0'>\n";
+ $ret .= "<p><table class='supporttable'><thead><tr bgcolor='#d0d0d0'>\n";
  if ( $can_close ) {
     my $link = "$uri&sort=$sort&closeall=" . ( $GET{closeall} ? 0 : 1 );
     $ret .= "<th>&nbsp;<a href='$link'>X</a></th>\n";
@@ -272,7 +272,7 @@ body<=
      }
  }
  $ret .= "<th>$ML{'.th.status'}</th>\n";
- $ret .= "</tr>";
+ $ret .= "</tr></thead>";
 
  foreach my $sp (@support_log)
  {
diff -r dec5adeda112 -r 51f91108e1ed htdocs/support/highscores.bml
--- a/htdocs/support/highscores.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/support/highscores.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -80,12 +80,12 @@ body<=
  $ret .= $navbar;
  $ret .= "<table id='support-highscores'>";
  $ret .= qq{
-    <tr>
+    <thead><tr>
         <th>$ML{'.header.rank'}</th>
         <th>$ML{'.header.delta'}</th>
         <th>$ML{'.header.user'}</th>
         <th>$ML{'.header.points'}</th>
-    </tr>};
+    </tr></thead>};
  my $count = 0;
  foreach (@rows)
  {
diff -r dec5adeda112 -r 51f91108e1ed htdocs/support/history.bml
--- a/htdocs/support/history.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/support/history.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -86,8 +86,8 @@ body<=
             # get categories
             my $cats = LJ::Support::load_cats();
 
-            $ret .= '<table><tr><th>Summary</th><th>State</th><th>Answered By</th>' .
-                    '<th>Category</th><th>Opened By</th><th>Time Opened</th></tr>';
+            $ret .= '<table><thead><tr><th>Summary</th><th>State</th><th>Answered By</th>' .
+                    '<th>Category</th><th>Opened By</th><th>Time Opened</th></tr></thead>';
             foreach my $id (sort { $a <=> $b } keys %reqs) {
                 # verify user can see this category (public_read or has supportread in it)
                 next unless $cats->{$reqs{$id}->{spcatid}}{public_read} ||
diff -r dec5adeda112 -r 51f91108e1ed htdocs/tools/emailmanage.bml
--- a/htdocs/tools/emailmanage.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/tools/emailmanage.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -133,11 +133,11 @@ body<=
         $ret .= "<form method='post' action='emailmanage$getextra'>";
         $ret .= LJ::form_auth();
         $ret .= "<table border='1' cellpadding='2' style='margin-bottom: 3px;'>\n";
-        $ret .= qq{<tr>
+        $ret .= qq{<thead><tr>
                     <th>$ML{'.header.check'}</th>
                     <th>$ML{'.header.email'}</th>
                     <th>$ML{'.header.date'}</th>
-                </tr>};
+                </tr></thead>};
         $ret .= $rows;
         $ret .= "</table>\n";
         $ret .= LJ::html_submit(undef, $ML{'.delete_selected'});
diff -r dec5adeda112 -r 51f91108e1ed htdocs/tools/recent_comments.bml
--- a/htdocs/tools/recent_comments.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/tools/recent_comments.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -284,9 +284,9 @@ body<=
         $ret .= "<?h1 $ML{ '.latest.posted' } h1?><?p " . BML::ml('.last.num.posted.by', {num => $count, user => LJ::ljuser($u) }) . " p?>";
         my %jcount;  # jid -> ct
         $ret .= "<table style='text-align: left'>";
-        $ret .= "<tr><th>$ML{ '.time' }</th><th>&nbsp;$ML{ '.location' }</th><th>&nbsp;$ML{ '.delete' }</th>";
+        $ret .= "<thead><tr><th>$ML{ '.time' }</th><th>&nbsp;$ML{ '.location' }</th><th>&nbsp;$ML{ '.delete' }</th>";
         $ret .= "<th>&nbsp;$ML{ '.edit' }</th>" if $remote->can_edit_comments;
-        $ret .= "</tr>";
+        $ret .= "</tr></thead>";
 
         foreach my $r (@posted) {
             $jcount{$r->{'journalid'}}++;
diff -r dec5adeda112 -r 51f91108e1ed htdocs/tools/recent_emailposts.bml
--- a/htdocs/tools/recent_emailposts.bml	Wed Dec 29 11:11:03 2010 +0800
+++ b/htdocs/tools/recent_emailposts.bml	Wed Dec 29 13:13:46 2010 +0800
@@ -14,41 +14,6 @@ _c?>
 _c?>
 <?page
 title=>Email gateway log
-head<=
-    <style type="text/css">
-
-    .disp
-    {
-        width: 700px;
-        border-left: 1px solid #c2c2c2;
-        border-top: 1px solid #c2c2c2;
-    }
-
-    .disp td
-    {
-        font-size: 0.85em;
-        border-right: 1px solid #c2c2c2;
-        padding: 6px;
-        border-bottom: 1px solid #c2c2c2;
-        vertical-align: top;
-    }
-
-    .err
-    {
-        background-color: #efefef;
-    }
-
-    .disp th
-    {
-        padding: 6px;
-        border-bottom: 1px solid #999;
-        border-right: 1px solid #999;
-        background-color: #dedede;
-        text-align: left;
-    }
-    
-    </style>
-<=head
 body<=
 <?_code
 {
@@ -110,19 +75,19 @@ body<=
     }
 
     $ret .= q{
-        <table class="disp" cellspacing="0">
-            <tr>
+        <table class="grid" cellspacing="0">
+            <thead><tr>
                 <th>When</th>
                 <th>Subject</th>
                 <th>Error?</th>
                 <th>Server Message</th>
-            </tr>
+            </tr></thead>
     };
 
     foreach ( reverse sort keys %$data ) {
         my $row = {};
         LJ::decode_url_string( $data->{$_}->{extra}, $row );
-        $ret .= $row->{e} ? "<tr class='err'>" : "<tr class='ok'>";
+        $ret .= $row->{e} ? "<tr class='error-box'>" : "<tr class='ok'>";
         $ret .= qq{
             <td nowrap="1">$data->{$_}->{ftime}</td>
             <td nowrap="1"><em>$row->{s}</em></td>
diff -r dec5adeda112 -r 51f91108e1ed views/admin/rename.tt
--- a/views/admin/rename.tt	Wed Dec 29 11:11:03 2010 +0800
+++ b/views/admin/rename.tt	Wed Dec 29 13:13:46 2010 +0800
@@ -18,7 +18,7 @@ the same terms as Perl itself.  For a co
         <p>[% '.renames.list.empty' | ml( user = user ) | html %]</p>
     [% ELSE %]
         <table>
-            <tr><th>From</th><th>To</th><th>Renamed by</th><th>Account renamed</th><th>Renamed on</th></tr>
+            <thead><tr><th>From</th><th>To</th><th>Renamed by</th><th>Account renamed</th><th>Renamed on</th></tr></thead>
         
             [% FOREACH rename = renames %]
             <tr>
diff -r dec5adeda112 -r 51f91108e1ed views/interests/findsim.tt
--- a/views/interests/findsim.tt	Wed Dec 29 11:11:03 2010 +0800
+++ b/views/interests/findsim.tt	Wed Dec 29 13:13:46 2010 +0800
@@ -24,11 +24,11 @@
 
 <h1>[% '.findsim_do.similar.head' | ml %]</h1>
 <p>[% ".findsim_do.similar.text" | ml(user = findsim_u.ljuser_display) %]</p>
-<p><table cellpadding='3'><tr valign='bottom'>
+<p><table cellpadding='3'><thead><tr valign='bottom'>
     <th>#</th>
     <th width='250'>[% 'username' | ml %]</th>
     <th>[% '.findsim_do.magic' | ml %]</th>
-</tr>
+</tr></thead>
 [%- FOREACH findsim_data -%]
     <tr>
         <td>[% count %]</td>
diff -r dec5adeda112 -r 51f91108e1ed views/interests/popular.tt
--- a/views/interests/popular.tt	Wed Dec 29 11:11:03 2010 +0800
+++ b/views/interests/popular.tt	Wed Dec 29 13:13:46 2010 +0800
@@ -30,11 +30,11 @@
 </p>
 [%- IF pop_ints -%]
     [%- IF no_text_mode; pop_cloud; ELSE -%]
-        <p><table><tr>
+        <p><table><thead><tr>
             <th width='150' style="text-align: left">
             [% '.interest' | ml %]</th>
             <th>[% '.count' | ml %]</th>
-        </tr>
+        </tr></thead>
         [%- FOREACH i = pop_ints -%]
         <tr>
             <td><a href='[% i.url | url %]'>[% i.eint %]</a></td>
diff -r dec5adeda112 -r 51f91108e1ed views/stats/site.tt
--- a/views/stats/site.tt	Wed Dec 29 11:11:03 2010 +0800
+++ b/views/stats/site.tt	Wed Dec 29 13:13:46 2010 +0800
@@ -143,11 +143,11 @@ class="bargraph" />
 <h2>[% '.paid.title' | ml %]</h2>
 <p>[% '.paid.explanation' | ml %]</p>
 [% IF paid.defined %]
-    <table class='stats-matrix'><tr>
+    <table class='stats-matrix'><thead><tr>
     [% FOREACH h = [ 'level' 'number' 'pct_total' 'pct_active' ] %]
         <th>[% ".paid.colhdr.$h" | ml %]</th>
     [% END %]
-    </tr>
+    </tr></thead>
     [% allpaid = 0 %]
     [% FOREACH level = [ 'paid' 'premium' 'seed' ] %]
         <tr><th>[% ".paid.rowhdr.$level" | ml %]</th>
--------------------------------------------------------------------------------