43
sub login {
43
sub login {
44
my ($self, $params) = @_;
44
my ($self, $params) = @_;
45
my $remember = $params->{remember};
45
my $remember = $params->{remember};
47
# Username and password params are required
48
foreach my $param ("login", "password") {
49
defined $params->{$param}
50
|| ThrowCodeError('param_required', { param => $param });
47
# Convert $remember from a boolean 0/1 value to a CGI-compatible one.
53
# Convert $remember from a boolean 0/1 value to a CGI-compatible one.
48
if (defined($remember)) {
54
if (defined($remember)) {
49
$remember = $remember? 'on': '';
55
$remember = $remember? 'on': '';
287
The account has been disabled. A reason may be specified with the
293
The account has been disabled. A reason may be specified with the
296
=item 50 (Param Required)
298
A login or password parameter was not provided.
added
removed
expand all
collapse all