diff Perl/generateConfig.pl @ 14:5a5c9a6b047b draft

Uploaded

--- a/Perl/generateConfig.pl	Thu May 30 20:07:55 2024 +0000
+++ b/Perl/generateConfig.pl	Tue Dec 10 16:20:53 2024 +0000
@@ -17,11 +17,14 @@
 my @list_ids = split(/,/,$list);
 
 my %data = ();
-foreach my $id(@list_ids){
-	push @{$data{"ids"}}, "$id";
+# case list of accessions
+if ($list ne 'None'){
+	foreach my $id(@list_ids){
+		push @{$data{"ids"}}, "$id";
+	}
 }
 # case fasta+gff
-if ($zip ne "None" && $zip_fasta ne "None"){
+elsif ($zip ne "None" && $zip_fasta ne "None"){
 	system("rm -rf $zip.genomeszip");
 	mkdir("$zip.genomeszip");
 	chdir("$zip.genomeszip");