report: Delete the machinery for pruning complete disc sets.

[dvddb] / report

diff --git a/report b/report
index 566c162..f8d0326 100755 (executable)
--- a/report
+++ b/report
@@ -48,12 +48,9 @@ while (my @r = $st_set->fetchrow_array) {
 }
 
 for my $name (keys %set_path) {
-  my $allp = 1;
   for my $path (@{$set_path{$name}}) {
     if (defined $path && exists $iso{$path}) { delete $iso{$path}; }
-    else { $allp = 0; }
   }
-  ##if ($allp) { delete $set_path{$name}; }
 }
 
 my @iso = sort keys %iso;