use DateTime::Duration to correctly convert partial dates in to fields

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

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index c24a530..a3a202e 100644 (file)
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -106,10 +106,9 @@ EOF
                                select
                                        filename,
                                        part_nr,
-                                       TIMESTAMP 'epoch' + a.date * INTERVAL '1 second' as date,
+                                       TIMESTAMP 'epoch' + date * INTERVAL '1 second' as date,
                                        size
-                               from archive_backup_parts a
-                               join archive on archive_id = archive.id
+                               from archive_backup_parts
                                where dvd_nr = ?
                                order by backup_part_id
                        });
@@ -135,10 +134,7 @@ EOF
                }
        }
 
-       $cont .= join(' '
-               , "ArchiveMediaSize:", unit($Conf{ArchiveMediaSize})
-               , "ArchiveChunkSize:", unit($Conf{ArchiveChunkSize})
-       );
+       $cont .= "ArchiveMediaSize:" . unit($Conf{ArchiveMediaSize});
 
        Header($Lang->{Burn_media}, "", 1, "", $cont);