- $gfx->move( $xbase, $table_top_y);
- $gfx->vline( $cur_y );
- my $cur_x = $xbase;
- for( my $j = 0; $j < scalar(@$record); $j++ )
- {
- $cur_x += $calc_column_widths->[$j];
- $gfx->move( $cur_x, $table_top_y );
- $gfx->vline( $cur_y );
-
- }
- # ACTUALLY draw all the lines
- $gfx->fillcolor( $border_color);
- $gfx->stroke if $line_w;
+ if ($line_w) {
+ $gfx->move($xbase, $table_top_y);
+ $gfx->vline($cur_y);
+ $gfx->move($xbase + sum(@{ $calc_column_widths }[0..$num_cols - 1]), $table_top_y);
+ $gfx->vline($cur_y);
+ $gfx->fillcolor($border_color);
+ $gfx->stroke();
+ }