| Line 40... |
Line 40... |
| 40 |
# Has the form been re-submitted with a confirmation?
|
40 |
# Has the form been re-submitted with a confirmation?
|
| 41 |
if ($confirmed eq "YES") {
|
41 |
if ($confirmed eq "YES") {
|
| 42 |
print $h->p ("Very well. Activating $targetuser->{derby_name} (RCid: $targetRCid)...");
|
42 |
print $h->p ("Very well. Activating $targetuser->{derby_name} (RCid: $targetRCid)...");
|
| 43 |
ACTIVATE ($targetuser, $targetDept, $user);
|
43 |
ACTIVATE ($targetuser, $targetDept, $user);
|
| 44 |
print $h->p ("Done. Now emailing the user to let them know...");
|
44 |
print $h->p ("Done. Now emailing the user to let them know...");
|
| 45 |
# sendEmail ($targetuser);
|
45 |
sendEmail ($targetuser);
|
| 46 |
print $h->p ("Done. You can close this window now (if it doesn't close automatically). Nothing else is going to happen here.");
|
46 |
print $h->p ("Done. You can close this window now (if it doesn't close automatically). Nothing else is going to happen here.");
|
| 47 |
print<<tail;
|
47 |
print<<tail;
|
| 48 |
<SCRIPT language="JavaScript">
|
48 |
<SCRIPT language="JavaScript">
|
| 49 |
<!--
|
49 |
<!--
|
| 50 |
function sleep(milliseconds) {
|
50 |
function sleep(milliseconds) {
|
| Line 84... |
Line 84... |
| 84 |
my $D = shift;
|
84 |
my $D = shift;
|
| 85 |
my $OU = shift;
|
85 |
my $OU = shift;
|
| Line 86... |
Line 86... |
| 86 |
|
86 |
|
| 87 |
$U->{department}->{$D} = 1;
|
87 |
$U->{department}->{$D} = 1;
|
| 88 |
$U->{department} = convertDepartments ($U->{department});
|
88 |
$U->{department} = convertDepartments ($U->{department});
|
| 89 |
$dbh->do ("update official set department = ? where RCid = ?", undef, $U->{department}, $U->{RCid}) or printError ("Something 'bad' happened when saving to the database.".$dbh->errstr);
|
89 |
$dbh->do ("update official set access = 1, department = ? where RCid = ?", undef, $U->{department}, $U->{RCid}) or printError ("Something 'bad' happened when saving to the database.".$dbh->errstr);
|
| 90 |
logit ($OU->{RCid}, "Activated $U->{derby_name} ($U->{RCid}) to work in $DEPT->{$D} Department");
|
90 |
logit ($OU->{RCid}, "Activated $U->{derby_name} ($U->{RCid}) to work in $DEPT->{$D} Department");
|
| 91 |
logit ($U->{RCid}, "Activated to work in $DEPT->{$D} Department");
|
91 |
logit ($U->{RCid}, "Activated to work in $DEPT->{$D} Department");
|
| Line 92... |
Line 92... |
| 92 |
}
|
92 |
}
|
| Line 124... |
Line 124... |
| 124 |
|
124 |
|
| Line 125... |
Line 125... |
| 125 |
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.
|
125 |
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.
|
| Line -... |
Line 126... |
| - |
|
126 |
|
| - |
|
127 |
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.
|
| - |
|
128 |
|
| - |
|
129 |
If you're new to using vORC, you may want to read this:
|
| 126 |
|
130 |
|
| Line 127... |
Line 131... |
| 127 |
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.
|
131 |
https://volunteers.rollercon.com/info.html
|
| 128 |
|
132 |
|