From 44c3b5e366f7375740c31e866783014d7d22c29c Mon Sep 17 00:00:00 2001
From: Mike Mundy <mundy.michael@mayo.edu>
Date: Mon, 3 Aug 2015 16:27:41 -0500
Subject: [PATCH] fix option definition and creating input structure

---
 scripts/ws-mkdir.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/scripts/ws-mkdir.pl b/scripts/ws-mkdir.pl
index 198d381..1ada947 100644
--- a/scripts/ws-mkdir.pl
+++ b/scripts/ws-mkdir.pl
@@ -1,7 +1,6 @@
 
 use strict;
 use Bio::P3::Workspace::ScriptHelpers;
-use Bio::P3::Workspace::Utils;
 
 =head1 NAME
 
@@ -28,16 +27,16 @@ =head1 COMMAND-LINE OPTIONS
 =cut
 
 my($opt, $usage) = Bio::P3::Workspace::ScriptHelpers::options("%c %o <path> [<path> ...]",[
-	["permission|p", "Permissions for folders created"],
+	["permission|p:s", "Permissions for folders created"]
 ]);
 my $paths = Bio::P3::Workspace::ScriptHelpers::process_paths([@ARGV]);
 my $input = {
-	objects => [[$paths->[0],$type,{},$data]],
+	objects => [],
 	permission => $opt->permission,
 	overwrite => 0
 };
-for (my $i=0; $i < @{$paths}, $i++) {
-	push(@{$input->{objects}},[$paths->[$i],"folder"]);
+for (my $i=0; $i < @{$paths}; $i++) {
+	push(@{$input->{objects}},[$paths->[$i],"folder",{}]);
 }
 my $res = Bio::P3::Workspace::ScriptHelpers::wscall("create",$input);
 print "Folders created:\n";