*** TablePlugin.pm.orig	Mon Jul 14 09:36:32 2003
--- TablePlugin.pm	Mon Jul 14 10:15:18 2003
***************
*** 33,38 ****
--- 33,39 ----
          $insideTABLE $tableCount @curTable $sortCol $requestedTable $up
          $doBody $doAttachments $currTablePre $tableWidth @columnWidths
          $tableBorder $tableFrame $tableRules $cellPadding $cellSpacing 
+         $tableClass @rowClasses @colClasses 
          @headerAlign @dataAlign $vAlign
          $headerBg $headerColor $doSort $twoCol @dataBg @dataColor @isoMonth
          $headerRows $footerRows
***************
*** 155,160 ****
--- 156,162 ----
  {
      $doSort       = $doBody;
      $tableBorder  = 1;
+     $tableClass   = "";
      $tableFrame   = "";
      $tableRules   = "";
      $cellSpacing  = 1;
***************
*** 163,168 ****
--- 165,172 ----
      @columnWidths = ( );
      $headerRows   = 1;
      $footerRows   = 0;
+     @rowClasses   = ( );
+     @colClasses   = ( );
      @headerAlign  = ( );
      @dataAlign    = ( );
      $vAlign       = "";
***************
*** 201,206 ****
--- 205,213 ----
      $tmp = TWiki::Func::extractNameValuePair( $args, "tableborder" );
      $tableBorder = $tmp if( $tmp ne "" );
  
+     $tmp = TWiki::Func::extractNameValuePair( $args, "tableclass" );
+     $tableClass = $tmp if( $tmp ne "" );
+ 
      $tmp = TWiki::Func::extractNameValuePair( $args, "tableframe" );
      $tableFrame = $tmp if( $tmp ne "" );
  
***************
*** 213,218 ****
--- 220,231 ----
      $tmp = TWiki::Func::extractNameValuePair( $args, "cellspacing" );
      $cellSpacing = $tmp if( $tmp ne "" );
  
+     $tmp = TWiki::Func::extractNameValuePair( $args, "rowclasses" );
+     @rowClasses = split( /,\s*/, $tmp ) if( $tmp );
+ 
+     $tmp = TWiki::Func::extractNameValuePair( $args, "colclasses" );
+     @colClasses = split( /,\s*/, $tmp ) if( $tmp );
+ 
      $tmp = TWiki::Func::extractNameValuePair( $args, "headeralign" );
      @headerAlign = split( /,\s*/, $tmp ) if( $tmp );
  
***************
*** 337,342 ****
--- 350,359 ----
                      undef($rowspan[$col]);
                  }
              }
+             if( @colClasses ) {
+                 $class = @colClasses[($colCount - 1) % ($#colClasses + 1) ];
+                 $attr .= " class=\"$class\""; # override $attr
+             }
              if( /^\s*\*(.*)\*\s*$/ ) {
                  $value = $1;
                  if( @headerAlign ) {
***************
*** 447,452 ****
--- 464,470 ----
      my $direction = $up ? 0 : 1;
      my $doIt = doIt( $curTable[$headerRows-1] );
      my $text = "$currTablePre<table border=\"$tableBorder\"";
+     $text .= " class=\"$tableClass\"" if( $tableClass );
      $text .= " frame=\"$tableFrame\"" if( $tableFrame );
      $text .= " cellspacing=\"$cellSpacing\" cellpadding=\"$cellPadding\"";
      $text .= " rules=\"$tableRules\"" if( $tableRules );
***************
*** 516,522 ****
      my $arrow = "";
      my $color = "";
      foreach my $row ( @curTable ) {
!         $text .= "$currTablePre<tr>";
          my $colCount = 0;
          foreach my $fcell ( @$row ) {
              $arrow = "";
--- 534,545 ----
      my $arrow = "";
      my $color = "";
      foreach my $row ( @curTable ) {
!         $attr = "";
!         if ( @rowClasses ) {
!             $class = @rowClasses[$rowCount % ($#rowClasses + 1) ];
!             $attr .= " class=\"$class\""; # override $attr
!         }
!         $text .= "$currTablePre<tr$attr>"; 
          my $colCount = 0;
          foreach my $fcell ( @$row ) {
              $arrow = "";