version 1.21, 2011/11/30 18:01:33
|
version 1.22, 2014/12/15 00:52:40
|
Line 276 sub new {
|
Line 276 sub new {
|
|
|
}; |
}; |
|
|
foreach my $key (keys %$configuration) { |
foreach my $key (keys(%$configuration)) { |
$self->{$key} = $$configuration{$key}; |
$self->{$key} = $$configuration{$key}; |
} |
} |
|
|
Line 500 sub start_row {
|
Line 500 sub start_row {
|
# Override the defaults if the config hash is present: |
# Override the defaults if the config hash is present: |
|
|
if (defined($config)) { |
if (defined($config)) { |
foreach my $key (keys %$config) { |
foreach my $key (keys(%$config)) { |
$row_hash->{$key} = $config->{$key}; |
$row_hash->{$key} = $config->{$key}; |
} |
} |
} |
} |
Line 583 sub configure_row {
|
Line 583 sub configure_row {
|
} |
} |
|
|
my $row = $self->{'rows'}->{$self->{'part'}}->[-1]; |
my $row = $self->{'rows'}->{$self->{'part'}}->[-1]; |
foreach my $config_item (keys %$config) { |
foreach my $config_item (keys(%$config)) { |
$row->{$config_item} = $config->{$config_item}; |
$row->{$config_item} = $config->{$config_item}; |
} |
} |
} |
} |
Line 996 sub generate {
|
Line 996 sub generate {
|
|
|
my $specified_width = 0.0; |
my $specified_width = 0.0; |
my $specified_cols = 0; |
my $specified_cols = 0; |
foreach my $col (keys %$colwidths) { |
foreach my $col (keys(%$colwidths)) { |
$specified_width = $specified_width + $colwidths->{$col}; |
$specified_width = $specified_width + $colwidths->{$col}; |
$specified_cols++; |
$specified_cols++; |
} |
} |
Line 1026 sub generate {
|
Line 1026 sub generate {
|
$default_width = ($tablewidth/$unspecified_cols); # 'fair' default width. |
$default_width = ($tablewidth/$unspecified_cols); # 'fair' default width. |
my $width_remaining = $tablewidth - $default_width*$unspecified_cols; # What's left for the specified cols. |
my $width_remaining = $tablewidth - $default_width*$unspecified_cols; # What's left for the specified cols. |
my $reduction = $tablewidth/$width_remaining; # Reduction fraction for specified cols |
my $reduction = $tablewidth/$width_remaining; # Reduction fraction for specified cols |
foreach my $col (keys %$colwidths) { |
foreach my $col (keys(%$colwidths)) { |
$colwidths->{$col} = $colwidths->{$col}/$reduction; |
$colwidths->{$col} = $colwidths->{$col}/$reduction; |
} |
} |
|
|