Add silent option to avoid email when setting up elabinelab. This started

happening when I moved the email generation from the web interface to the
backend.

db/elabinelab_bossinit.in

@@ -132,7 +132,7 @@ while (my ($uid,$admin) = $users_result->fetchrow_array()) {
 my $query_result =
     DBQueryFatal("select gid_idx from groups where pid='$pid' and pid!=gid");
 while (my ($gid_idx) = $query_result->fetchrow_array()) {
-    mysystem("$TB/sbin/mkgroup $gid_idx");
+    mysystem("$TB/sbin/mkgroup -s $gid_idx");
 }
 
 #

tbsetup/mkgroup.in

@@ -18,12 +18,13 @@ use strict;
 #
 sub usage()
 {
-    print STDOUT "Usage: mkgroup <gid>\n";
+    print STDOUT "Usage: mkgroup [-s] <gid>\n";
     exit(-1);
 }
-sub fatal($);
+my $optlist = "s";
+my $silent  = 0;
 
-my  $optlist = "";
+sub fatal($);
 
 #
 # Configure variables
@@ -104,6 +105,9 @@ my %options = ();
 if (! getopts($optlist, \%options)) {
     usage();
 }
+if (defined($options{"s"})) {
+    $silent = 1;
+}
 if (@ARGV != 1) {
     usage();
 }
@@ -260,24 +264,26 @@ if ($pid ne $gid) {
     }
 }
 
-#
-# Send an email message with a join link.
-#
-my $group_leader_name  = $leader->name();
-my $group_leader_email = $leader->email();
-my $group_leader_uid   = $leader->uid();
-
-SENDMAIL("$group_leader_name '$group_leader_uid' <$group_leader_email>",
-    "New Group '$pid/$pid ($gid_idx)' Created",
-    "This message is to notify you that group '$gid' in project '$pid'\n".
-    "has been created. Please save this link so that you can send it to\n".
-    "people you wish to have join this group:\n".
-    "\n".
-    "    ${TBBASE}/joinproject.php3?target_pid=$pid&target_gid=$gid\n".
-    "\n",
-    "$user_name '$user_uid' <$user_email>",
-    "CC: $user_name '$user_uid' <$user_email>");
-    
+# No email when the project group being created.
+if (!$silent && !$group->IsProjectGroup()) {
+    #
+    # Send an email message with a join link.
+    #
+    my $group_leader_name  = $leader->name();
+    my $group_leader_email = $leader->email();
+    my $group_leader_uid   = $leader->uid();
+
+    SENDMAIL("$group_leader_name '$group_leader_uid' <$group_leader_email>",
+     "New Group '$pid/$pid ($gid_idx)' Created",
+     "This message is to notify you that group '$gid' in project '$pid'\n".
+     "has been created. Please save this link so that you can send it to\n".
+     "people you wish to have join this group:\n".
+     "\n".
+     "    ${TBBASE}/joinproject.php3?target_pid=$pid&target_gid=$gid\n".
+     "\n",
+     "$user_name '$user_uid' <$user_email>",
+     "CC: $user_name '$user_uid' <$user_email>");
+}
 print "Group Creation Completed!\n";
 exit(0);