WebSVN – ORC – Diff – /trunk/site/schedule/manage_user.pl

 				logit ($F->{RCid}, "DB ERROR: Updating Self Details: $ERRMSG");
 			} else {
 				logit ($F->{RCid}, "Updated User Details");
+			}
 		} elsif ($AL > 1) { # A lead or higher is updating someone else's record
+		  use List::Util qw/sum/;
+		  if (sum (values %{ convertDepartments ($F->{department}) }) > 0 and $F->{access} == 0) {
+		    # activating a user for the first time...
+		    $F->{access} = 1;
+		    sendEMail ("Activate", $F);
+		  }
 			if ($FORM->{password}) {
 #				my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");
 #				$sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})
 				my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?)");
 				$sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{access}, $F->{department}, getUser($F->{email})->{added}, getUser($F->{email})->{last_login})
 	my $data = shift;
 	use RCMailer;
 	my $email = $data->{email};
+	my $subject = 'Officiating RollerCon Schedule Manager - New User Request';
+	my $body;
-	my $subject = 'Officiating RollerCon Schedule Manager - New User Request';
+	if ($context eq "New User") {
-	my $body = "Greetings,
+	  $body = "Greetings,
 It appears as though you've registered a new account to Officiate at RollerCon with the following information:
 YOU WILL NOT BE ABLE TO LOG IN UNTIL YOU RECEIVE ANOTHER EMAIL STATING YOUR ACCOUNT REQUEST HAS BEEN APPROVED!
+Once approved, you'll be able to log in and view the schedule and sign up for shifts.  Please be considerate of others and don't hogger all of the shifts.  If you do, we will find you and randomly drop your shifts.
+http://volunteers.rollercon.com/schedule/
-Once approved, you'll be able to log in and view the schedule and sign up for shifts.  Please be considerate of others and don't hogger all of the shifts.  If you do, we will find you and randomly drop your shifts.
+If you're new to using vORC, you may want to read this:
+https://volunteers.rollercon.com/info.html
+If you didn't make this request, well, you're still the only one who received this email, and you now have an account request.  You should probably let us know that someone is messing with you.
+-RollerCon Management
+";
+  } elsif ($context eq "Activate") {
+    my $tempDepartments = convertDepartments ($data->{department});
+    my $printableDepartments = join "\n", map { $depts->{$_}.": ".$AccessLevel->{$tempDepartments->{$_}} } sort keys %{$tempDepartments};
+    $body = "Greetings again,
+You have been approved to volunteer at RollerCon in the following departments:
+$printableDepartments
+You may log into vORC and begin signing up for shifts.  Please be considerate of others and don't hogger all of the shifts.  If you do, we will find you and randomly drop your shifts.
+https://volunteers.rollercon.com/schedule/
+Please note that you are limited to signing up to a limnited number of shifts per day.  (Meaning, once you sign up for X shifts, you'll have to wait until tomorrow to sign up for more.)  Please understand, while you are a nice, concientious, and good-looking person yourself, who knows how to share, there are others out there that will hogger up all of the shifts.  As time goes by and we get closer to the event, we may lift the limit.  Who knows?
+If you've already signed up for your daily limit of shifts, and another shift REALLY strikes your fancy, try dropping one of your shifts.  That should allow you to pick up a different one.
+We'll be adding shifts over time, again to throttle how fast some people (not you, mind you) gobble up the shifts.  Check back, maybe even daily.
+If you're new to using vORC, you may want to read this:
-http://officials.rollercon.com/schedule/
+https://volunteers.rollercon.com/info.html
+If you didn't make this request, well, you're still the only one who received this email, and you now have an active account.  You should probably let us know that someone is messing with you.
 -RollerCon Management
-If you didn't make this request, well, you're still the only one who received this email, and you now have an account request.  You should probably let us know that someone is messing with you.
+";
   } else {

Subversion Repositories ORC

(root)/trunk/site/schedule/manage_user.pl – Rev 8 → 16