| Line 122... |
Line 122... |
| 122 |
$F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, 0, $F->{department})
|
122 |
$F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, 0, $F->{department})
|
| 123 |
or display_form ("New", "New User", "ERROR: DB: ".$dbh->errstr, $F);
|
123 |
or display_form ("New", "New User", "ERROR: DB: ".$dbh->errstr, $F);
|
| Line 124... |
Line 124... |
| 124 |
|
124 |
|
| Line 125... |
Line 125... |
| 125 |
($F->{RCid}, $F->{activation}) = $dbh->selectrow_array ("select RCid, activation from official where email = ?", undef, $F->{email});
|
125 |
($F->{RCid}, $F->{activation}) = $dbh->selectrow_array ("select RCid, activation from official where email = ?", undef, $F->{email});
|
| 126 |
|
126 |
|
| 127 |
$dbh->do ("replace into RCid_ticket_link select official.RCid, v_ticket.id from official join v_ticket on official.email = v_ticket.email and official.real_name = v_ticket.full_name where official.RCid = ?", undef, $F->{RCid});
|
127 |
$dbh->do ("replace into RCid_ticket_link select official.RCid, v_ticket.id, year(now()) from official join v_ticket on official.email = v_ticket.email and official.real_name = v_ticket.full_name where official.RCid = ?", undef, $F->{RCid});
|
| 128 |
logit ($F->{RCid}, "New User Registration");
|
128 |
logit ($F->{RCid}, "New User Registration");
|
| 129 |
sendNewUserEMail ("New User", $F);
|
129 |
sendNewUserEMail ("New User", $F);
|
| 130 |
$cookie_string = authenticate (RollerCon::USER);
|
130 |
$cookie_string = authenticate (RollerCon::USER);
|
| Line 191... |
Line 191... |
| 191 |
}
|
191 |
}
|
| 192 |
}
|
192 |
}
|
| 193 |
$F->{password} = "*******";
|
193 |
$F->{password} = "*******";
|
| 194 |
$F->{buttons} = $h->input ({ type=>"hidden", name=>"RCid", value=>$F->{RCid} }).$h->input ({ type=>"submit", name=>"submit", value=>"Edit" });
|
194 |
$F->{buttons} = $h->input ({ type=>"hidden", name=>"RCid", value=>$F->{RCid} }).$h->input ({ type=>"submit", name=>"submit", value=>"Edit" });
|
| 195 |
$F->{department} = convertDepartments ($F->{department});
|
195 |
$F->{department} = convertDepartments ($F->{department});
|
| 196 |
$dbh->do ("replace into RCid_ticket_link select official.RCid, v_ticket.id from official join v_ticket on official.email = v_ticket.email and official.real_name = v_ticket.full_name where official.RCid = ?", undef, $F->{RCid});
|
196 |
$dbh->do ("replace into RCid_ticket_link select official.RCid, v_ticket.id, year(now()) from official join v_ticket on official.email = v_ticket.email and official.real_name = v_ticket.full_name where official.RCid = ?", undef, $F->{RCid});
|
| Line 197... |
Line 197... |
| 197 |
|
197 |
|
| 198 |
if (scalar @ERRORS) {
|
198 |
if (scalar @ERRORS) {
|
| 199 |
$ERRMSG = join $h->br, @ERRORS;
|
199 |
$ERRMSG = join $h->br, @ERRORS;
|