| Line 21... |
Line 21... |
| 21 |
my $dbh = getRCDBH;
|
21 |
my $dbh = getRCDBH;
|
| 22 |
my $depts = getDepartments (); # HashRef of the department TLAs -> Display Names...
|
22 |
my $depts = getDepartments (); # HashRef of the department TLAs -> Display Names...
|
| 23 |
my $deptDesc = getDepartmentDescriptions ();
|
23 |
my $deptDesc = getDepartmentDescriptions ();
|
| 24 |
my $deptLink = getDepartmentLinks ();
|
24 |
my $deptLink = getDepartmentLinks ();
|
| 25 |
my $AccessLevel = getAccessLevels;
|
25 |
my $AccessLevel = getAccessLevels;
|
| 26 |
my @tshirtOptions = ("", "MS", "MM", "ML", "MXL", "M2X", "M3X");
|
26 |
my @tshirtOptions = ("", "MS", "MM", "ML", "MXL", "M2X", "M3X", "M4X");
|
| 27 |
my @AUTODEPTS = map { $_->[0] } @{$dbh->selectall_arrayref ("select TLA from department where autoapprove = true")};
|
27 |
my @AUTODEPTS = map { $_->[0] } @{$dbh->selectall_arrayref ("select TLA from department where autoapprove = true")};
|
| 28 |
my @FIELDS = qw/ derby_name email real_name phone password access department tshirt pronouns timeformat showme /;
|
28 |
my @FIELDS = qw/ derby_name email real_name phone password access department tshirt pronouns timeformat showme /;
|
| 29 |
my @PRIVFIELDS = qw/ email access /;
|
29 |
my @PRIVFIELDS = qw/ email access /;
|
| 30 |
$ORCUSER->{department} = ref $ORCUSER->{department} eq "HASH" ? $ORCUSER->{department} : convertDepartments($ORCUSER->{department});
|
30 |
$ORCUSER->{department} = ref $ORCUSER->{department} eq "HASH" ? $ORCUSER->{department} : convertDepartments($ORCUSER->{department});
|
| Line 540... |
Line 540... |
| 540 |
logit ($ORCUSER->{RCid}, "Updated User [$uid]: $field -> $newvalue");
|
540 |
logit ($ORCUSER->{RCid}, "Updated User [$uid]: $field -> $newvalue");
|
| 541 |
logit ($uid, "$ORCUSER->{derby_name} updated your profile: $field -> $newvalue");
|
541 |
logit ($uid, "$ORCUSER->{derby_name} updated your profile: $field -> $newvalue");
|
| 542 |
}
|
542 |
}
|
| Line 543... |
Line 543... |
| 543 |
|
543 |
|
| 544 |
return;
|
- |
|
| 545 |
}
|
544 |
return;
|
| - |
|
545 |
}
|