Metacat

# subroutine to set access for an XML document in Metacat

# If success, return 1, else return 0

#############################################################

sub setaccess {

  my $self = shift;

  my $docid = shift;

  my $principal = shift;

  my $permission = shift;

  my $permType = shift;

  my $permOrder = shift;

  my $returnval = 0;

  my %postData = ( action => 'setaccess',

                   docid => $docid,

		   principal => $principal,

		   permission => $permission,

		   permType => $permType,

		   permOrder => $permOrder

                 );

  my $response = $self->sendData(%postData);

  if (($response) && $response->content =~ /<success>/) {

    $returnval = 1;

  }

  return $returnval;

}

#############################################################

  $response = $metacat->setaccess($docid,$principal,$permission,$permType,$permOrder);