push @RelyxTable::table_array, $thistable;
- # Now that it's blessed, put the 0th row into the table
+ # Now that it's blessed, put the 0th row into the table
$thistable->addrow;
return $thistable;
foreach $col (@{$thistable->{"columns"}}) {
$to_print .= $col->print_info;
}
-
+
# Print cell info
my $cell;
foreach $row (@{$thistable->{"rows"}}) {
my $description = shift;
my $col;
- # Initially zero everything, since we set different
+ # Initially zero everything, since we set different
# fields for @ and non-@ columns
$col->{"alignment"} = "c"; # default
$col->{"left_line"} = 0;
);
$to_print .= join(" ",@arr);
$to_print .= "\n";
-
+
return $to_print;
}
} # end package RelyxTable::Column
);
$to_print .= join(" ",@arr);
$to_print .= "\n";
-
+
return $to_print;
} # end sub print_info
# alignment - alignment of this cell
# top_line - does the cell have a line on the top?
# bottom_line - does the cell have a line on the bottom?
-# has_cont_row-
+# has_cont_row-
# rotate - rotate cell?
# line_breaks - cell has line breaks in it (???)
# special - does this multicol have a special description (@ commands?)
);
$to_print .= join(" ",@arr);
$to_print .= "\n";
-
+
return $to_print;
}
} # end package RelyxTable::Cell