Fix warning in deposit_iban_qr (undef in eq)
This commit is contained in:
parent
0bd9c807a1
commit
adba63da57
1 changed files with 4 additions and 2 deletions
|
@ -49,11 +49,13 @@ sub how :Tab(&how_tab) {
|
||||||
my $how = $self->{how} = $methods{$input}
|
my $how = $self->{how} = $methods{$input}
|
||||||
or return REJECT, "'$input' is not a valid answer.";
|
or return REJECT, "'$input' is not a valid answer.";
|
||||||
|
|
||||||
|
$how->{_key} = $input;
|
||||||
|
|
||||||
if (@{ $how->{prompts} // [] }) {
|
if (@{ $how->{prompts} // [] }) {
|
||||||
return shift @{ $how->{prompts} }, \&how_prompt;
|
return shift @{ $how->{prompts} }, \&how_prompt;
|
||||||
}
|
}
|
||||||
|
|
||||||
$cart->add(undef, +$self->{amount}, $how->{description}, { is_deposit => 1, method => $input });
|
$cart->add(undef, +$self->{amount}, $how->{description}, { is_deposit => 1, method => $how->{_key} });
|
||||||
return ACCEPT;
|
return ACCEPT;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -75,7 +77,7 @@ sub how_prompt {
|
||||||
|
|
||||||
my $desc = sprintf $how->{description}, @{ $how->{answers} };
|
my $desc = sprintf $how->{description}, @{ $how->{answers} };
|
||||||
|
|
||||||
$cart->add(undef, +$self->{amount}, $desc, { is_deposit => 1 });
|
$cart->add(undef, +$self->{amount}, $desc, { is_deposit => 1, method => $how->{_key} });
|
||||||
return ACCEPT;
|
return ACCEPT;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue