Revision 4726
Added by walbridge over 15 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 122 | 122 |
} |
| 123 | 123 |
|
| 124 | 124 |
# replacements for appconfig values using properties |
| 125 |
my $moderators = $properties->getProperty('moderators');
|
|
| 125 |
my $moderators = $properties->getProperty('auth.moderators');
|
|
| 126 | 126 |
my $config = $skinProperties->splitToTree(qr/\./, 'registry.config'); |
| 127 | 127 |
my $templates = $skinProperties->splitToTree(qr/\./, 'registry.templates'); |
| 128 | 128 |
my $modules = $skinProperties->splitToTree(qr/\./, 'registry.modules'); |
| ... | ... | |
| 2470 | 2470 |
foreach $node ($results->get_nodelist) {
|
| 2471 | 2471 |
my @children = $node->childNodes; |
| 2472 | 2472 |
my $permission = ""; |
| 2473 |
my $principal = ""; |
|
| 2473 | 2474 |
for (my $i = 0; $i < scalar(@children); $i++) {
|
| 2474 | 2475 |
my $child = $children[$i]; |
| 2475 | 2476 |
if ($child->nodeName eq 'principal') {
|
| ... | ... | |
| 2811 | 2812 |
sub handleRead {
|
| 2812 | 2813 |
my $docid = $FORM::docid; |
| 2813 | 2814 |
my $errorMessage; |
| 2814 |
|
|
| 2815 |
#debug("REGISTRY: \n\n\n\n$docid");
|
|
| 2815 | 2816 |
print "Content-type: text/html\n\n"; |
| 2816 | 2817 |
|
| 2817 | 2818 |
# Check if the session exists |
Also available in: Unified diff
Update moderators element to current token, fix undefined variable in ESA logic.