| Line 130... |
Line 130... |
| 130 |
my ($EM, $PWD, $AL) = split /&/, $cookie_string;
|
130 |
my ($EM, $PWD, $AL) = split /&/, $cookie_string;
|
| Line 131... |
Line 131... |
| 131 |
|
131 |
|
| Line 132... |
Line 132... |
| 132 |
my $OG = getUser ($F->{RCid});
|
132 |
my $OG = getUser ($F->{RCid});
|
| - |
|
133 |
|
| 133 |
|
134 |
if ($F->{derby_name} ne $OG->{derby_name} and checkDupes ('derby_name', $F->{derby_name})) { push @ERRORS, "Derby Name already in use. Pick a different one."; $F->{derby_name} = ""; }
|
| 134 |
if ($F->{derby_name} ne $OG->{derby_name} and checkDupes ('derby_name', $F->{derby_name})) { push @ERRORS, "Derby Name already in use. Pick a different one."; $F->{derby_name} = ""; }
|
135 |
if (!$F->{derby_name}) { push @ERRORS, "Blank Derby Name!"; }
|
| Line 135... |
Line 136... |
| 135 |
if ($F->{email} ne $OG->{email} and checkDupes ('email', $F->{email})) { push @ERRORS, "Email Address already in use. Pick a different one."; $F->{email} = ""; }
|
136 |
if ($F->{email} ne $OG->{email} and checkDupes ('email', $F->{email})) { push @ERRORS, "Email Address already in use. Pick a different one."; $F->{email} = ""; }
|
| 136 |
if (!$F->{real_name}) { push @ERRORS, "Blank Full Name!"; }
|
137 |
if (!$F->{real_name}) { push @ERRORS, "Blank Full Name!"; }
|
| Line 158... |
Line 159... |
| 158 |
map { $FORMDepts->{$_} = max ($DBDepts->{$_}, $FORMDepts->{$_}) } keys %{$DBDepts};
|
159 |
map { $FORMDepts->{$_} = max ($DBDepts->{$_}, $FORMDepts->{$_}) } keys %{$DBDepts};
|
| 159 |
$F->{department} = convertDepartments $FORMDepts;
|
160 |
$F->{department} = convertDepartments $FORMDepts;
|
| 160 |
}
|
161 |
}
|
| Line 161... |
Line 162... |
| 161 |
|
162 |
|
| 162 |
foreach my $field (@FIELDS) {
|
163 |
foreach my $field (@FIELDS) {
|
| 163 |
if ($F->{$field} eq $OG->{$field} or $F->{$field} == $OG->{$field} or ($field eq "password" and !$F->{$field})) {
|
164 |
if ($F->{$field} eq $OG->{$field} or ($field eq "access" and $F->{$field} == $OG->{$field}) or ($field eq "password" and !$F->{$field})) {
|
| 164 |
# No changes to this field, move on...
|
165 |
# No changes to this field, move on...
|
| 165 |
next;
|
166 |
next;
|
| Line 166... |
Line 167... |
| 166 |
}
|
167 |
}
|