Index: /trunk/ippToPsps/perl/checkOdmStatus.pl
===================================================================
--- /trunk/ippToPsps/perl/checkOdmStatus.pl	(revision 29651)
+++ /trunk/ippToPsps/perl/checkOdmStatus.pl	(revision 29652)
@@ -22,4 +22,5 @@
 my $onlyCheckUndeleted = undef;
 my $onlyCheckMergeWorthy = undef;
+my $onlyCheckMerged = undef;
 
 
@@ -31,5 +32,6 @@
         'location|l=s' => \$filePath,
         'onlyundeleted|u' => \$onlyCheckUndeleted,
-        'onlymergeworthy|m' => \$onlyCheckMergeWorthy,
+        'onlymergeworthy|w' => \$onlyCheckMergeWorthy,
+        'onlymerged|m' => \$onlyCheckMerged,
         'remove|r' => \$removeUnprocessed,
         'verbose|v' => \$verbose,
@@ -54,7 +56,11 @@
     print "* OPTIONAL: location for files to be deleted    -l <path>\n";
 }
+if (!defined $onlyCheckMerged) {
+    $onlyCheckMerged = 0;
+    print "* OPTIONAL: only check merged batches           -m                   (default = $onlyCheckMerged)\n";
+}
 if (!defined $onlyCheckMergeWorthy) {
     $onlyCheckMergeWorthy = 0;
-    print "* OPTIONAL: only check merge worthy batches     -m                   (default = $onlyCheckMergeWorthy)\n";
+    print "* OPTIONAL: only check merge worthy batches     -w                   (default = $onlyCheckMergeWorthy)\n";
 }
 if (!defined $onlyCheckUndeleted) {
@@ -130,5 +136,6 @@
         if (!$onDatastore) {next;}
         if ($onlyCheckUndeleted && $deleted) {next;}
-        if ($onlyCheckMergeWorthy && !$mergeWorthy) {next;}
+        if ($onlyCheckMergeWorthy && (!$mergeWorthy || $merged)) {next;}
+        if ($onlyCheckMerged && !$merged) {next;}
 
         my $batch = ippToPsps::Batch->existing(