sergiotarxz/MakeThemPay
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add starting price.

Browse Source
This commit is contained in:
Sergiotarxz 2024-11-12 23:48:58 +01:00
parent ebb2fd6cff
commit ef43cfc335
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/MakeThemPay/Controller/Main.pm
View File

@ -17,12 +17,13 @@ use MakeThemPay::DB;
sub price($self) {
my $uuid = $self->param('uuid');
my ( $price, $discount );
my ( $price, $discount, $starting_price );
eval { $self->_insert_license( $uuid, 0 ); };
if ($@) {
warn $@;
}
eval { ( $price, $discount ) = $self->_get_real_price; };
eval { ( $price, $discount, $starting_price ) = $self->_get_real_price; };
say $starting_price;
if ($@) {
warn $@;
$self->res->code(500);
@ -33,6 +34,7 @@ sub price($self) {
json => {
price => $price,
discount => $discount,
starting_price => $starting_price,
}
);
}
@ -48,11 +50,11 @@ sub _get_real_price($self) {
die
"Bad price and/or discount format price: $price discount: $discount";
}
my $discounted_price = int($price - ( ( $price * $discount ) / 100 ));
if (!wantarray) {
my $discounted_price = int( $price - ( ( $price * $discount ) / 100 ) );
if ( !wantarray ) {
return $discounted_price;
}
return ( $discounted_price, $discount );
return ( $discounted_price, $discount, $price );
}
sub get_paid($self) {
@ -114,7 +116,7 @@ sub get_url ($self) {
},
form => {
currency => 'eur',
unit_amount => int($self->_get_real_price),
unit_amount => int( $self->_get_real_price ),
product => $product_id,
}
)->result;