Project

General

Profile

« Previous | Next » 

Revision 9645

merge from 2.6 branch: add method for retrieving access control block from metacat api

View differences:

src/perl/Metacat/Metacat.pm
366 366
  return $returnval;
367 367
}
368 368

  
369
#############################################################
370
# subroutine to get access info from Metacat
371
# returns access XML block from Metacat
372
#############################################################
373
sub getaccess {
374
    my $self = shift;
375
    my $docid = shift;
376
    
377
    my %postData = ( action => 'getaccess',
378
    docid => $docid
379
    );
380
    
381
    my $response = $self->sendData(%postData);
382
    
383
    my $returnval = 0;
384
    if ($response) {
385
        $returnval = $response;
386
    }
387
    
388
    return $returnval;
389
}
369 390

  
370 391
#############################################################
371 392
# subroutine to read an XML document from Metacat

Also available in: Unified diff