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

[BackupPC.git] / bin / BackupPC_ASA_BurnArchiveMedia

diff --git a/bin/BackupPC_ASA_BurnArchiveMedia b/bin/BackupPC_ASA_BurnArchiveMedia
index 24107cc..2643918 100755 (executable)
--- a/bin/BackupPC_ASA_BurnArchiveMedia
+++ b/bin/BackupPC_ASA_BurnArchiveMedia
@@ -113,6 +113,7 @@ sub dumpArchive2XML($$$)
        my $backups_sql = q{
                SELECT
                        backup_id,
+                       backup_part_id,
                        host,
                        num,
                        date,
@@ -120,8 +121,7 @@ sub dumpArchive2XML($$$)
                        size
                FROM archive_backup_parts
                WHERE archive_id = ?
-               ORDER BY
-                       hosts.name, shares.name, backups.num
+               ORDER BY backup_part_id
        };
 
        my $sth = $dbh->prepare("SELECT dvd_nr, total_size, note, username, date, id FROM archive WHERE dvd_nr=?");
@@ -324,7 +324,7 @@ my $sth_archive_backup_parts = $dbh->prepare( qq{
                items,
                filename
        FROM archive_backup_parts
-       WHERE archive.dvd_nr = ?
+       WHERE dvd_nr = ?
        ORDER BY backup_id, part_nr
 });
 
@@ -530,7 +530,6 @@ print "Recoding finished, exiting...\n";
 $sth->finish;
 $sth_archive_backup_parts->finish;
 $sth_archive_burned->finish;
-$sth_archive_backup_check->finish;
 $sth_archive_burned->finish;
 
 $dbh->disconnect;