use unit all over

[BackupPC.git] / lib / BackupPC / CGI / BurnMedia.pm

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index bf4dfaf..7fce5df 100644 (file)
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -67,8 +67,11 @@ EOF
                }
 
                if ($total_size > ($Conf{ArchiveMediaSize} * $parts)) {
-                       $cont .= eval( q{ ${h2(Error)}});
-                       $cont .= "Selected backups size " . sprintf("%1.2f", $total_size / 1024) ." Kb exceed max archive size " . sprintf("%1.2f", $Conf{ArchiveMediaSize} / 1024) ." Kb.";
+                       $cont .= eval(' ${h2(Error)} ');
+                       $cont .= join(' '
+                               , "Selected backups size", unit($total_size)
+                               , "exceed medium size ", unit($Conf{ArchiveMediaSize})
+                       );
                } elsif ($total_size == 0) {
                        $cont .= eval( q{ ${h2(Error)}});
                        $cont .= "No backups selected.";
@@ -130,7 +133,7 @@ EOF
                                Archived following backups:
                        } . join(", ", @selected_backup_ids) . q{
                                <br/>with total size of
-                       <b>} . sprintf("%1.2f Mb", $total_size / 1024 / 1024) 
+                       <b>} . unit($total_size)
                        . q{</b>
                                to media <b>} . $dvd_nr . q{</b>
                                with following message:
@@ -141,6 +144,11 @@ EOF
                }
        }
 
+       $cont .= join(' '
+               , "ArchiveMediaSize:", unit($Conf{ArchiveMediaSize})
+               , "ArchiveChunkSize:", unit($Conf{ArchiveChunkSize})
+       );
+
        Header($Lang->{Burn_media}, "", 1, "", $cont);
 
        Trailer();