Revision 5311
Added by daigle about 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