Project

General

Profile

Revision 4600

Added by walbridge about 12 years ago

Update accessElement to accept a value for publicly readable

View differences:

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