Revision 4600
Added by walbridge about 16 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 1696 | 1696 |
} |
| 1697 | 1697 |
|
| 1698 | 1698 |
sub accessElement {
|
| 1699 |
my $public = shift; |
|
| 1700 |
if (!$public) {
|
|
| 1701 |
$public = $config->{'publicReadable'};
|
|
| 1702 |
} |
|
| 1703 |
|
|
| 1699 | 1704 |
my $access = ""; |
| 1700 | 1705 |
|
| 1701 | 1706 |
$access .= "<access authSystem=\"knb\" order=\"denyFirst\">\n"; |
| ... | ... | |
| 1711 | 1716 |
$access .= allowElement(getUsername(), 'read', 'write'); |
| 1712 | 1717 |
} |
| 1713 | 1718 |
|
| 1714 |
if ($config->{'publicReadable'} eq "true") {
|
|
| 1719 |
if ($public eq "true") {
|
|
| 1715 | 1720 |
$access .= allowElement('public', 'read');
|
| 1716 | 1721 |
} |
| 1717 | 1722 |
$access .= "</access>\n"; |
Also available in: Unified diff
Update accessElement to accept a value for publicly readable