*** TablePlugin.pm.orig Mon Aug 2 00:01:53 2004 --- TablePlugin.pm Tue Jun 28 09:02:55 2005 *************** *** 38,44 **** $headerRows $footerRows @fields $upchar $downchar $diamondchar $url $curTablePre @isoMonth %mon2num $initSort $initDirection $pluginAttrs $prefsAttrs ! @rowspan ); $VERSION = '1.013'; # 01 Aug 2004 --- 38,44 ---- $headerRows $footerRows @fields $upchar $downchar $diamondchar $url $curTablePre @isoMonth %mon2num $initSort $initDirection $pluginAttrs $prefsAttrs ! @rowspan %defaultClass ); $VERSION = '1.013'; # 01 Aug 2004 *************** *** 293,298 **** --- 293,299 ---- my $l2 = 0; if( ! $insideTABLE ) { @curTable = (); + %defaultClass = {}; @rowspan = (); $tableCount++; } *************** *** 312,317 **** --- 313,328 ---- $span = $1; $attr = " colspan=\"$span\"" ; } + + # Parse '|=' for applying style sheets to individual cells. + if ( s/^=(\w+)// ) { + $attr .= " class=\"$1\""; + } + elsif ( s/^\+(\w+)// ) { + $attr .= " class=\"$1\""; + $defaultClass{scalar(@curTable)} = $1; + } + s/^\s+$/ /o; /^(\s*).*?(\s*)$/; $l1 = length( $1 || "" ); *************** *** 458,463 **** --- 469,475 ---- my $type = ""; my $attr = ""; my $stype = ""; + my $bgClass = ""; #Flush out any remaining rowspans for (my $i = 0; $i < @rowspan; $i++) { *************** *** 520,526 **** --- 532,541 ---- my $resetCountNeeded = 0; my $arrow = ""; my $color = ""; + my $bgClass=""; foreach my $row ( @curTable ) { + $bgClass = $defaultClass{$rowCount} if ( exists($defaultClass{$rowCount}) ); + $text .= "$currTablePre