X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_burnArchiveCLI;h=ab5a29f28fbe212cfe067649f07cfb366323b4b3;hp=6ec15187bfe78050abcb93720927ad84808aae30;hb=2c4fed2613239b442411047d76f96f3b7988a7e9;hpb=8657ef0acd1c7ff06258fa4c8fdb849a54ae007d

diff --git a/bin/BackupPC_burnArchiveCLI b/bin/BackupPC_burnArchiveCLI
index 6ec1518..ab5a29f 100755
--- a/bin/BackupPC_burnArchiveCLI
+++ b/bin/BackupPC_burnArchiveCLI
@@ -295,6 +295,10 @@ foreach my $arc (@archives_to_burn) {
 
 	$sth_archive_backup_parts->execute($dvd_nr);
 
+	if ($sth_archive_backup_parts->rows == 0) {
+		warn "ERROR: no backup parts found for $dvd_nr. You should re-create that DVD.\n";
+	}
+
 	my @volumes;
 	my $v;	# emtpy volume
 	my $v_size = 0;
@@ -317,6 +321,8 @@ foreach my $arc (@archives_to_burn) {
 	}
 	push @volumes, $v if ($v);
 
+	#warn "# volumes: ",Dumper(\@volumes),"\n";
+
 	my $volumes = $#volumes + 1;
 	my $volume_nr = 1;