Subversion Repositories ORC

Rev

Rev 31 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 31 Rev 35
Line 101... Line 101...
101 
			# We have a correctly formatted email address with a mail host record, go ahead and add the user
 101 
			# We have a correctly formatted email address with a mail host record, go ahead and add the user
102 
#			my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");
 102 
#			my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");
103 
			my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles'))");
 103 
			my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles'))");
Line 104... Line 104...
104 
 
 104 
 
105 
#			$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, 0, $F->{department}, 0);
 105 
#			$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, 0, $F->{department}, 0);
Line 106... Line 106...
106 
			$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, 0, $F->{department});
 106 
			$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, 1, $F->{department});
107 
 
 107 
 
108 
			$sth = $dbh->prepare ("select RCid from official where email = ?");
 108 
			$sth = $dbh->prepare ("select RCid from official where email = ?");
109 
			$sth->execute ($F->{email});
 109 
			$sth->execute ($F->{email});
Line 150... Line 150...
150 
				logit ($F->{RCid}, "Updated User Details");
 150 
				logit ($F->{RCid}, "Updated User Details");
151 
			}
 151 
			}
152 
		} elsif ($AL > 1) { # A lead or higher is updating someone else's record
 152 
		} elsif ($AL > 1) { # A lead or higher is updating someone else's record
Line 153... Line 153...
153
153
154 
		  use List::Util qw/sum/;
 154 
		  use List::Util qw/sum/;
- 
 
 155 
#		  if (sum (values %{ convertDepartments ($F->{department}) }) > 0 and $F->{access} == 0) {
155 
		  if (sum (values %{ convertDepartments ($F->{department}) }) > 0 and $F->{access} == 0) {
 156 
		  if (sum (values %{ convertDepartments ($F->{department}) }) > 0 and $F->{access} == 1) {
156 
		    # activating a user for the first time...
 157 
		    # activating a user for the first time...
157 
		    $F->{access} = 1;
 158 
		    $F->{access} = 1;
158 
		    sendEMail ("Activate", $F);
 159 
		    sendEMail ("Activate", $F);
Line 217... Line 218...
217 
#  		if ($currentuser->{access} > 2) {
 218 
#  		if ($currentuser->{access} > 2) {
218 
#  			$F->{clinic_pass} = "<INPUT type='checkbox' name='clinic_pass' value=$F->{clinic_pass} $checked>";
 219 
#  			$F->{clinic_pass} = "<INPUT type='checkbox' name='clinic_pass' value=$F->{clinic_pass} $checked>";
219 
#  		} else {
 220 
#  		} else {
220 
#  			$F->{clinic_pass} = "<INPUT type='checkbox' name='clinic_pass' $checked disabled readonly>";
 221 
#  			$F->{clinic_pass} = "<INPUT type='checkbox' name='clinic_pass' $checked disabled readonly>";
221 
#  		}
 222 
#  		}
- 
 
 223 
      if ($AL == 5) {
222 
#  		$F->{email}      = $h->input ({ type=>"text", name=>"email", value=>$F->{email}, readonly=>[] });
 224 
    	  $F->{email}      = $h->input ({ type=>"text", name=>"email", value=>$F->{email} });
- 
 
 225 
    	} else {
223 
  		$F->{email}      = $F->{email}.$h->input ({ type=>"hidden", name=>"email", value=>$F->{email} });
 226 
  		  $F->{email}      = $F->{email}.$h->input ({ type=>"hidden", name=>"email", value=>$F->{email} });
- 
 
 227 
  		}
224 
  		if ($currentuser->{RCid} eq $F->{RCid} or $currentuser->{access} > 4) {
 228 
  		if ($currentuser->{RCid} eq $F->{RCid} or $currentuser->{access} > 4) {
225 
  			$F->{password}   = $h->input ({ type=>"password", name=>"password" });
 229 
  			$F->{password}   = $h->input ({ type=>"password", name=>"password" });
226 
  			$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });
 230 
  			$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });
227 
  			$F->{real_name}  = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });
 231 
  			$F->{real_name}  = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });
228 
  			$F->{pronouns}   = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });
 232 
  			$F->{pronouns}   = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });
Line 258... Line 262...
258 
  	} else {
 262 
  	} else {
259 
  		$ERRMSG = "Attempting to update someone else's record, and you don't have permission to do that.";
 263 
  		$ERRMSG = "Attempting to update someone else's record, and you don't have permission to do that.";
260 
  	}
 264 
  	}
Line 261... Line 265...
261 
 
 265 
 
262 
  } elsif ($view eq 'New User') {
 266 
  } elsif ($view eq 'New User') {
263 
    $errors .= $h->br."NOTE: You will not be able to login until your account has been reviewed and approved. Watch your email for notification.";
 267 
    $errors .= $h->br."NOTE: You will not be able to sign-up for things until your account has been reviewed and approved. Watch your email for notification.";
264 
  	# Skip authentication
 268 
  	# Skip authentication
265 
 		$F->{email}      = $h->input ({ type=>"text", name=>"email", value=>$F->{email} });
 269 
 		$F->{email}      = $h->input ({ type=>"text", name=>"email", value=>$F->{email} });
266 
 		$F->{password}   = $h->input ({ type=>"password", name=>"password" });
 270 
 		$F->{password}   = $h->input ({ type=>"password", name=>"password" });
267 
 		$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });
 271 
 		$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });
Line 450... Line 454...
450 
 
 454 
 
Line 451... Line 455...
451 
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.
 455 
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.
Line 452... Line 456...
452 
 
 456 
 
Line 453... Line 457...
453 
https://volunteers.rollercon.com/schedule/
 457 
https://volunteers.rollercon.com/schedule/
Line 454... Line 458...
454 
 
 458