- Timestamp:
- 01/31/22 18:52:50 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Partage.pm
r2506 r2507 12 12 use DateTime; 13 13 use Digest::HMAC_SHA1; 14 use XML::XPath;15 14 16 15 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; … … 96 95 } 97 96 98 sub sendrequestasxpath {99 my ( $self, $subUri, %param ) = @_;100 101 my $xml = $self->_sendrequest( $subUri, %param );102 103 my $xpath = XML::XPath->new(xml => $xml);104 105 if (my $node = $xpath->findnodes('//faultstring')) {106 la_log(LA_ERR, "Saop error: %s", $node->string_value);107 return;108 }109 110 return $xpath;111 }112 113 97 sub _connect { 114 98 my ( $self ) = @_;
Note: See TracChangeset
for help on using the changeset viewer.