Revision 3291
Added by Jing Tao over 17 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 2358 | 2358 |
dontOccur($doc, "//dataset/access/deny", "dataset/access/deny"); |
| 2359 | 2359 |
|
| 2360 | 2360 |
$results = $doc->findnodes('//dataset/access/allow');
|
| 2361 |
if ($results->size() != 3) {
|
|
| 2362 |
errMoreThanN("dataset/access/allow");
|
|
| 2363 |
} else {
|
|
| 2364 |
my $accessError = 0; |
|
| 2361 |
my $accessError = 0; |
|
| 2365 | 2362 |
foreach $node ($results->get_nodelist) {
|
| 2366 | 2363 |
my @children = $node->childNodes; |
| 2367 | 2364 |
my $principal = ""; |
| ... | ... | |
| 2394 | 2391 |
my $error ="The ACL for this document has been changed outside the registry. Please use Morpho to edit this document"; |
| 2395 | 2392 |
push(@errorMessages, $error."\n"); |
| 2396 | 2393 |
} |
| 2397 |
} |
|
| 2394 |
|
|
| 2398 | 2395 |
######################################################## |
| 2399 | 2396 |
|
| 2400 | 2397 |
|
Also available in: Unified diff
Remove the rule that the access allow rule should equals three.