X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=bin%2FBackupPC_ASA_BurnArchiveMedia;h=2643918d4d94a4c5959c10d422b43ed65f82e875;hb=5da6f2d3b119993d9def86b5481a86ce6fd84059;hp=24107cc5407c9c0f5bd9e6870720b441852e99ab;hpb=ffbf3b45b24613d268bbb64a901131612b86b4d6;p=BackupPC.git

diff --git a/bin/BackupPC_ASA_BurnArchiveMedia b/bin/BackupPC_ASA_BurnArchiveMedia
index 24107cc..2643918 100755
--- 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;