make the straight listing of rows for the file optional via --list

[migration-tools.git] / emig.d / bin / mig-quicksheet

diff --git a/emig.d/bin/mig-quicksheet b/emig.d/bin/mig-quicksheet
index b33e2e0..76d227e 100755 (executable)
--- a/emig.d/bin/mig-quicksheet
+++ b/emig.d/bin/mig-quicksheet
@@ -59,12 +59,14 @@ use EMig;
 my $outtable = '';
 my $outfile = '';
 my $force;
+my $list;
 my $drop;
 my $help;
 
 GetOptions(
        'outtable=s' => \$outtable,
        'outfile=s' => \$outfile,
+    'list' => \$list,
        'force' => \$force,
        'drop' => \$drop,
        'help|?' => \$help
@@ -286,7 +288,7 @@ sub write_worksheets {
         };
     }
 
-    handle_list();
+    handle_list() if $list;
     handle_columns();
 
     if ($outfile) {