Merge pull request #5212 from solgenomics/topic/another_load_people.p…

…l_tweak

another tweak to load_people.pl

bin/load_people.pl

@@ -55,10 +55,11 @@ =head1 DESCRIPTION
 research_keywords
 research_interests
 webpage
+password
 
-The first four columns listed are required.
+The first four columns listed are required. If no password is provided the system will create one.
 
-The script outputs the username, first_name, last_name, email and assigned initial random password. This can be used to send the password to the user.
+The script outputs the username, first_name, last_name, email and assigned initial random password. This can be used to send the password to the user. 
 
 =head1 AUTHOR
 
@@ -102,7 +103,7 @@ =head1 AUTHOR
 
 my $dbh = CXGN::DB::InsertDBH->new( { dbhost=>$dbhost,
 				      dbname=>$dbname,
-				      dbargs => {AutoCommit => 0,
+				      dbargs => {AutoCommit => 1,
 						 RaiseError => 1}
 				    }
     );
@@ -201,7 +202,15 @@ =head1 AUTHOR
 	    # 	next();
 	    # }
 
-	    my $password =Crypt::RandPasswd->word( 8 , 8 );
+	    my $password;
+
+	    if ($data{password}) {
+		$password = $data{password};
+	    }
+	    else {
+		$password =Crypt::RandPasswd->word( 8 , 8 );
+	    }
+
 	    if ($data{username}) {
 		my $login = CXGN::People::Login->new($dbh);