Revision 5311
Added by daigle over 14 years ago
Metacat.pm | ||
---|---|---|
175 | 175 |
} |
176 | 176 |
|
177 | 177 |
############################################################# |
178 |
# subroutine to log into Metacat and get usr info xml for |
|
179 |
# a logged in user |
|
180 |
############################################################# |
|
181 |
sub getUserInfo { |
|
182 |
my $self = shift; |
|
183 |
|
|
184 |
my %postData = (action => 'getloggedinuserinfo'); |
|
185 |
|
|
186 |
my $response = $self->sendData(%postData); |
|
187 |
|
|
188 |
return $response->content; |
|
189 |
} |
|
190 |
|
|
191 |
############################################################# |
|
178 | 192 |
# subroutine to insert an XML document into Metacat |
179 | 193 |
# If success, return 1, else return 0 |
180 | 194 |
############################################################# |
Also available in: Unified diff
Merge 1.9.2 changes back into the trunk