|
Lines 248-253
Link Here
|
| 248 |
my $action = $data->{"what"} || ""; |
248 |
my $action = $data->{"what"} || ""; |
| 249 |
# check the presence of required attributes |
249 |
# check the presence of required attributes |
| 250 |
foreach my $req (@required_attrs) { |
250 |
foreach my $req (@required_attrs) { |
|
|
251 |
if ( $req eq "uniqueMember" ) { |
| 252 |
$req = "uniquemember"; |
| 253 |
} |
| 251 |
my $val = $data->{$req}; |
254 |
my $val = $data->{$req}; |
| 252 |
if (substr ($action, 0, 5) eq "edit_" && !defined $val) { |
255 |
if (substr ($action, 0, 5) eq "edit_" && !defined $val) { |
| 253 |
# when editing using YaPI, attribute dosn't have to be loaded |
256 |
# when editing using YaPI, attribute dosn't have to be loaded |