Commit a620018b authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix to ListUsage and ListHistory.

parent 2abb0b5a
...@@ -1354,7 +1354,7 @@ sub ListUsage($) ...@@ -1354,7 +1354,7 @@ sub ListUsage($)
return GeniResponse->MalformedArgsResponse("Missing arguments"); return GeniResponse->MalformedArgsResponse("Missing arguments");
} }
my @credentials = @{ $credentials }; my @credentials = @{ $credentials };
return GeniCM::ListUsage({"credentials" => $credentials[0]}); return GeniCM::ListUsage({"credential" => $credentials[0]});
} }
sub ListHistory($) sub ListHistory($)
...@@ -1367,8 +1367,8 @@ sub ListHistory($) ...@@ -1367,8 +1367,8 @@ sub ListHistory($)
return GeniResponse->MalformedArgsResponse("Missing arguments"); return GeniResponse->MalformedArgsResponse("Missing arguments");
} }
my @credentials = @{ $credentials }; my @credentials = @{ $credentials };
return GeniCM::ListHistory({"credentials" => $credentials[0], return GeniCM::ListHistory({"credential" => $credentials[0],
"type" => $type}); "type" => $type});
} }
# #
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment