added size format

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@42 8392b6e1-25fa-0310-8288-cc32f8e212ea

diff --git a/bin/BackupPC_xls_report b/bin/BackupPC_xls_report
index f7c10ab..b899d7d 100755 (executable)
--- a/bin/BackupPC_xls_report
+++ b/bin/BackupPC_xls_report
@@ -48,11 +48,17 @@ my $date_format = $workbook->add_format(num_format => 'yyyy-mm-dd hh:mm:ss');
 my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss');
 my $header_format = $workbook->add_format(color => 'gray');
 my $pcnt_format = $workbook->add_format(num_format => '0.0%');
+my $size_format = $workbook->add_format(num_format => '0');
 
 my $formats = {
        duration => $duration_format,
        sizeNewRatio => $pcnt_format,
        sizeExistRatio => $pcnt_format,
+       size => $size_format,
+       sizeNew => $size_format,
+       sizeExist => $size_format,
+       sizeNewComp => $size_format,
+       sizeExistComp => $size_format,
 };
 
 my $bpc = BackupPC::Lib->new || die;
@@ -98,7 +104,7 @@ foreach my $host_key (keys %{$hosts}) {
                                $f =~ s/##/($row+1)/ge;
                                $worksheet->write($row, $i, $f, $formats->{$n});
                        } else {
-                               $worksheet->write($row, $i, $backup->{ $cols[$i] });
+                               $worksheet->write($row, $i, $backup->{$col}, $formats->{$col});
                        }
                }
                $row++;